Boş satırlar listbox'ta listelenmesin.

[Orion1]

Mrb.

Private Sub UserForm_Initialize()
dolu_son_satır = Sheets("Sevkiyat").Cells(65536, "A").End(xlUp).Row

ListBox1.RowSource = "Sevkiyat!A6: I65536"
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 9
ListBox1.ListIndex = 0
Satirsayisi = ListBox1.ListCount
Label12.Caption = Satirsayisi
End Sub

Yukarıdaki kodlar ile çalışma sayfasında A6:I65536 aralığındaki hücrelerin verilerini
ListBox'a aktarıyorum.Bu durumda hiç veri olmayan satırlarda listbox'ta listeleniyor.
Boş olan satırlar listBox'ta listelenmesin.
Teşekkür ederim.
Kolay gelsin.

 

[Explorer]

Bu şekilde bir deneyin,
[vb:1:a708fdb1f8]Private Sub UserForm_Initialize()
dolu_son_satır = Sheets("Sevkiyat").Cells(65536, "A").End(xlUp).Row

ListBox1.RowSource = "Sevkiyat!A6:I" & dolu_son_satır
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 9
ListBox1.ListIndex = 0
Satirsayisi = ListBox1.ListCount
Label12.Caption = Satirsayisi
End Sub[/vb:1:a708fdb1f8]

 

[Haluk]

Aşağıdaki satırı değiştirip bir deneyin, bakalım olucak mı ?

ListBox1.RowSource = "Sevkiyat!A6:I" & dolu_son_satır

 

[idogus]

dolu_satir = WorkSheetFunction.CountA(Sheets("Sevkiyat").[A1:A65536])
ListBox1.RowSource = "Sevkiyat!A6:I" & dolu_satir

Bunu da deneyebilirsin !