combobox a a verileri alamıyorum..

[excelboy]

merhaba.herkeze kolay gelsin.

içinde yaklaşık 8 tane userform olan projemde userform2 deki combobox1 e excel sayfasındaki verileri aktaramadım.aşağıda yazılı kodlarda nerde hata yapıyorum acaba.yardımcı olacak arkadaşlara tşk ederim.saygılar

Private Sub UserForm2_Activate()
For i = 6 To 1000
If Sayfa2.Cells(i, 1) = "" Then Exit For
UserForm2.ComboBox1.AddItem (Sayfa2.Cells(i, 1))
Next

 

[L_M]

Dene bakalım bi..

Private Sub UserForm2_Activate()
For i = 6 To 1000
If Sheets("Sayfa2").Cells(i, 1) = "" Then Exit For
UserForm2.ComboBox1.AddItem (Sheets("Sayfa2").Cells(i, 1))
Next

 

[excelboy]

sn L_M maalesef olmadı.yani ben yine bir yerlerde çok basit hata yapıyorum ama acaba nerde. :kafa:

 

[L_M]

If Sheets("Sayfa2").Cells(i, 1) = "" Then Exit For satırın boş ise hiç bir veri almaz.

amacın boş olanlar haricindekileri almak ise aşağıdaki kodu dene bi.


Private Sub UserForm2_Activate()
For i = 6 To 1000
If Sheets("Sayfa2").Cells(i, 1) <> "" Then UserForm2.ComboBox1.AddItem (Sheets("Sayfa2").Cells(i, 1))
Next
End Sub

 

[Haluk]

Private Sub UserForm_Activate()
    For i = 6 To 1000
    If Sayfa2.Cells(i, 1) = "" Then GoTo 10:
    UserForm2.ComboBox1.AddItem (Sayfa2.Cells(i, 1))
10: Next
End Sub

 

[excelboy]

arkadaşlar maalesef yine olmadı.ben en iyisi dosyayı gönderiyorum.belki daha iyi olur.saygılar..

 

[Haluk]

Yazım hatası yapıyorsunuz.

Aşağıdakini kopyalayıp, dosyadaki yerine yapıştırın... (UserForm2_Activate diye bir şey olamaz.)

Private Sub UserForm_Activate()
For i = 6 To 1000
If Sheets("İNŞAAT TABLO").Cells(i, 1) = "" Then GoTo 10:
UserForm2.ComboBox1.AddItem (Sheets("İNŞAAT TABLO").Cells(i, 1))
10: Next
End Sub

 

[excelboy]

sn haluk bey.elinize beyninize sağlık şimdi çalışıyor.iyi çalışmalar.saygılar