Listboxa listenin boş satır olmadan listelenmesi

[Mx@Raid]

Arkadaşlar aşağıdaki yöntem ile irapor sayfasından verileri çekiyorum. Yalnız ListBox a aktarırken boş satırların gelmemesi gerekiyor. Kodlama hakkında yardımcı olursanız sevinirim.

Private Sub CommandButton3_Click()

ListBox2.ColumnCount = 18
ListBox3.RowSource = "iRapor!B5:S" & [B65536].End(3).Row
ListBox2.BoundColumn = 0
ListBox2.ColumnWidths = "20;55;45;54;48;40;45;58;58;55;48;52;45;42;53;72"

End Sub

Teşekkürler.

 

[Orion1]

B sütununda dolu olan hücreleri s tünuna kadar alıp listeler.

Private Sub CommandButton1_Click()
Dim myarr(), a As Long, i As Long, sat As Long
ListBox3.Clear
sat = Sheets("iRapor").Cells(65536, "B").End(xlUp).Row
ReDim myarr(1 To 18, 1 To sat)
For i = 5 To sat
    If Cells(i, "B").Value <> "" Then
        a = a + 1
        For k = 1 To 18
            myarr(k, a) = Sheets("iRapor").Cells(i, k + 1).Value
        Next
    End If
Next i
If a > 0 Then
    ReDim Preserve myarr(1 To 18, 1 To a)
    ListBox3.Column = myarr
End If
End Sub

 

[Mx@Raid]

Evren Bey çok teşekkür ederim. Herzamanki gibi çözümleriniz çok iyi.

 

[Orion1]

Evren Bey çok teşekkür ederim. Herzamanki gibi çözümleriniz çok iyi.

Rica ederim.
iyi çalışmalar.