Listbox

[kutlu]

Arkadaşlar selam!
Bir sütunda farklı farklı hücrelerde bulunan değerleri (aralarda boş olan hücrelerde var) listbox a Listbox.rowsource kodu ile aktardığımda aradaki boş hücrelerde çıkıyor. Listenin boşluksuz alt alta dizelmesi için ne yapabilirim.

 

[Serpily]

Mükemmel değil ama bir fikir belki çalışmanızda yardımı olur.

Private Sub Worksheet_Activate()
ListBox1.Clear
For i = 1 To 1000
a = Range("a" & i).Value
If a <> "" Then
ListBox1.AddItem a
End If
Next i
End Sub