ListBox ve ComboBox'taki boşluklar

[alipinar]

Merhaba arkadaşlar.
ListBox'a Sayfa1 deki B1 ile B125 arasındaki hücreleri RowSource ettim. Ancak bu hücrelerin hepsi dolu değil 15 tanesi dolu.
Sorum şu: LİstBox veya ComboBox'ta bu boşlukları göstermemek için ne yapabiliriz? Yardımlarınız için teşekkür ederim.

 

[Zeki Gürsoy]

Merhaba,
Aşağıdaki gibi deneyin.

Private Sub UserForm_Initialize()
For i = 1 To [b65536].End(3).Row
    If Cells(i, 2) = "" Then GoTo 10
    ListBox1.AddItem (Cells(i, 2))
10
Next
End Sub

 

[Levent Menteşoğlu]

Yine rowsource ile almak isterseniz aşağıdaki gibi en son dolu hücreyide tanıtabilirsiniz.

[vb:1:a6ed6be4cd]Private Sub UserForm_Initialize()
listbox1.rowsource="sayfa1!b1:b" & [sayfa1!b65536].end(3).row
End Sub[/vb:1:a6ed6be4cd]

 

[alipinar]

Sayın anemos ilginize teşekkür ederim.
Kodlar çalışıyor istediğim gibi. Ancak bazı sorunlar var:
1.) Yeni kayıt yaptığımda formu kapatıp açmazsam yeni kayıdı eklemiyor.
2.) kayıtlı bir veriyi sildiğimde de yine formu kapatıp açmazsam hala o veriyi gösteriyor.
Kaydet tuşunu son satırına "call Userform_Initialize" şeklinde kod yazdım ama çalışmadı. Ne yapabilrim? Tekrar teşekkür ederim.

 

[Zeki Gürsoy]

Formunuza bir buton ekleyin ve aşağıdaki kodu ilave edin.

Private Sub CommandButton1_Click()
ListBox1.Clear
UserForm_Initialize
End Sub

 

[alipinar]

Sayın Leventm sizin cevabınızı yeni gördüm ve denedim çalışıyor. İstediğim gibi. Biraz önce belirttiğim "call Userform_Initialize" kodu da çalışıyor. Biraz önce sayın anemos'un kodunu denerken bu satırı başka bir yere yazmışım.
sayın anemos ve levenm sizlere çok teşekkür ederim. :hey: :mutlu: