KOD HATA VERİYOR..LÜTFEN..

[CAHİTBAVİK]

merhaba aşaıda yazılı kodlar hata variyor..ben comboboxtak1 de yazzan isme göre sayfa tanımladım..daha sonra txtboxlardaki bilgileri buraya atamak istiorum..lütfen yardımcı olusanız sevinirim..iyi çalışmalar

Set s1 = Sheets(ComboBox1)

say = WorksheetFunction.CountA(Worksheets("s1").Range("A:A")) + 4
TextBox1.Value = say
If TextBox9 = "" Then MsgBox "İş yeri kısmı boş olamaz", vbCritical, "Kontrol Edin": Exit Sub
If TextBox4 = "" Then MsgBox "Adet kısmı boş olamaz", vbCritical, "Kontrol Edin": Exit Sub
If TextBox5 = "" Then MsgBox "Benz kısmı boş olamaz", vbCritical, "Kontrol Edin": Exit Sub
If TextBox6 = "" Then MsgBox "En kısmı boş olamaz", vbCritical, "Kontrol Edin": Exit Sub
If TextBox7 = "" Then MsgBox "Boy kısmı boş olamaz", vbCritical, "Kontrol Edin": Exit Sub
If TextBox8 = "" Then MsgBox "Yük kısmı boş olamaz", vbCritical, "Kontrol Edin": Exit Sub

s1.Range("A" & say + 1).Value = TextBox10.Value
s1.Range("B" & say + 1).Value = TextBox9.Value
s1.Range("C" & say + 1).Value = TextBox4.Value
s1.Range("D" & say + 1).Value = TextBox5.Value
s1.Range("E" & say + 1).Value = TextBox6.Value
s1.Range("F" & say + 1).Value = TextBox7.Value
s1.Range("G" & say + 1).Value = TextBox8.Value
s1.Range("H" & say + 1).Value = Val(TextBox4) * Val(TextBox5) * Val(TextBox6) * Val(TextBox7) * Val(TextBox8)
s1.Range("H" & say + 2).Value = WorksheetFunction.Sum(Worksheets("S1").Range("I2:I100"))
For i = 3 To WorksheetFunction.CountA(Worksheets("S1").Range("A:A"))
Range("A2") = 1
Range("A" & i).Value = Range("A" & i - 1).Value + 1
Next

say = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A:A"))
ListBox1.RowSource = "S1!" & "A1" & ":" & "G" & say

 

[omerceri]

merhaba aşaıda yazılı kodlar hata variyor..ben comboboxtak1 de yazzan isme göre sayfa tanımladım..daha sonra txtboxlardaki bilgileri buraya atamak istiorum..lütfen yardımcı olusanız sevinirim..iyi çalışmalar

Form yöntecilerinin; Türkçeyi doğru kullanımı konusundaki, duyarlılıklarına katılıyorum.

 

[CAHİTBAVİK]

sn ömerceri..beni uyarmak içinmi yazdın bu mesajı..aceleden böyle türkçe hatasını yaptığımı anlıyacak yaşta olduğunu tahmin ediyorum..sen böy eleştiri yapıcağına ,acemi üyelerin sorularına neden cevap verilmiyo acaba onu araştırırsan sevinirim..sonuçta bu site nin amacı sadece excel ötesi bilgi sahibi üyeler için değil dir diye düşünüyorum

 

[omerceri]

Hayır iş şu veya bu şekilde halledilebilir. Ama Türkçemiz daha önemli.
Yazdığın cevapta, aynı hataları yapmaya devam ediyorsun.

 

[CAHİTBAVİK]

sn omerceri..ben polemiğe girmek istemiyorum..lütfen..sen benim türkçemi eleştirmekte gösterdiğin hassasiyeti lütfen memleket meseleri içininde göster lütfen..yani,ormana bakalım ama ağacı da görelim lütfen..