Soru Boşluksuz liste alma

[sirkülasyon]

bul = Sheets("okul_yer").Range("B2:Q2")
ListBox1.ColumnCount = UBound(bul)
ListBox1.List = Application.Transpose(bul)

B2:Q2 aralığındaki veriyi listboxa alıyorum ama boş olan sütunlarda görünüyor. Boş olan sütunların listede çıkmamasını nasıl sağlayabilirim?

 

[muygun]

Merhaba;
Daha hızlı ve net sonuç almak istiyorsanız sorunuzu örnek dosya ile destekleyin.
Eki inceleyin.
İyi çalışmalar.

 

[Korhan Ayhan]

Alternatif;

Private Sub UserForm_Initialize()
    Dim Alan As Range, Veri As Variant
    Set Alan = Sheets("okul_yer").Range("B2:Q2")
    Veri = Application.Evaluate("=IF(LEN('" & Alan.Parent.Name & "'!" & Alan.Address & ")>0,'" & Alan.Parent.Name & "'!" & Alan.Address & ",""X"")")
    ListBox1.List = Filter(Veri, "X", False)
    Set Alan = Nothing
End Sub

 

[sirkülasyon]

muygun ustam haklısın. Dosya yüklemeyi unuttuğum için özür dilerim.
Hem size hem de Korhan Ayhan abime yardımlarınız için teşekkür ederim.