Listbox'ta boş satırları yok etmek

[1903bjk]

Üstadlar Merhaba

Listbox'a veri alırken boş satırları nasıl yok edebiliriz.

Userform initialize olayına aşağıdaki kodu yazdım ama olmadı
ListBox1.RowSource = "Sheet1!c2:c1000" & WorksheetFunction.CountA(Range("c2:c1000")) + 1

Örnek dosyam ektedir.

Yardımınızı rica ederim.

Saygılarımla

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Private Sub userform_initialize()
Dim i As Long
For i = 1 To [C65536].End(3).Row
    If Cells(i, "C") <> "" Then ListBox1.AddItem Cells(i, "C")
Next i
End Sub

 

[1903bjk]

Sn Necdet Bey,

Elinize, emeğinize sağlık,

Çok telşekkür ederim.

Saygılarımla,

 

[Necdet]

Saygı bizden, iyi bayramlar.