Combobox boş hücrelerin gösterilmemesi

[tezsen]

Merhaba,

Userform açıldığında 2 ayrı sayfadan comboboxlara veri almakta ve bilgi girişi oldukça satır sayısı artacağından dolayı a4:a200 arası verilerin combobox ta görünmesi gerekiyor. Benim hedefim boş olan hücreleri göstermemesi ancak başarılı olamadım.

Private Sub UserForm_Initialize()
Sheets("MAIN").Range("A4").Select
Combobox2.RowSource = "(Selection, Selection.End(xlDown)"
End Sub

denememe rağmen sonuç alamadım.

Private Sub UserForm_Initialize()
ComboBox2.RowSource = "MAIN!a4:a200"
ComboBox3.RowSource = "combo!a3:a200"
End Sub

Yardımlarınızı bekliyorum. Teşekkürler.

 

[Orion1]

Buyurun.

For i = 4 To 200
    If Cells(i, "A").Value <> "" Then ComboBox2.AddItem Cells(i, "A").Value
Next

 

[tezsen]

İvedi yardımlarınız için teşekkürlerimi sunarım.