Listbox boş hücreler hakkında yardım

[mozakay]

Arkadaşlar merhaba.

gönderdiğim örnek dosyada listbox üzerindeki veriler listelenirken boş hücreler de görülüyor. boş hücrelerin görünmemesi sadece verilerin listelenmesi için ne yapılabilir. bu konuda yardımcı olabilecek arkadaş varsa sevinirim.

http://s6.dosya.tc/server5/hzbg83/ORNEK_DOSYA_LISTBOX.rar.html

 

[PLİNT]

Arkadaşlar merhaba.

gönderdiğim örnek dosyada listbox üzerindeki veriler listelenirken boş hücreler de görülüyor. boş hücrelerin görünmemesi sadece verilerin listelenmesi için ne yapılabilir. bu konuda yardımcı olabilecek arkadaş varsa sevinirim.

http://s6.dosya.tc/server5/hzbg83/ORNEK_DOSYA_LISTBOX.rar.html

Merhaba
"Userform" "Listbox1" ve "Listbox2" "properties" ten "RowSource"leri boşaltıp
Userform kod sayfasına ekleyin.

Private Sub UserForm_Initialize()
Set s1 = Sheets("Sayfa2")
For a = 2 To s1.Cells(Rows.Count, 1).End(3).Row
If s1.Cells(a, "B") <> "" Then ListBox1.AddItem s1.Cells(a, "B")
If s1.Cells(a, "C") <> "" Then ListBox2.AddItem s1.Cells(a, "C")
Next
End Sub

 

[Necdet]

Merhaba,

RowSource kullanmayın, aşağıdaki kodları deneyiniz.
ben birini yaptım, diğerini de siz yapın.

Private Sub UserForm_Initialize()
    
    Dim i   As Long, _
        sh2 As Worksheet
    
    Set sh2 = Sheets("Sayfa2")
    
    For i = 2 To sh2.Cells(Rows.Count, "B").End(3).Row
        If Not sh2.Cells(i, "B") = "" Then ListBox1.AddItem sh2.Cells(i, "B")
    Next i
    
End Sub

 

[mozakay]

bu sefer userform u açan makro hata veriyor.

 

[mozakay]

Tamamdır. hatalı işlem yapmışım. düzelttim. teşekkürler