Tablonun seçilen satırlarını listboxa almak

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar ekli çalışmada basit bir tablo hazırladım. A1:F13 aralığındaki verilerden sadece A5:F5 , A9:F9, A12:F12 satırlarının ListBox da görünmesini nasıl sağlayabiliriz. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Orion1]

dosyanız ektedir.

Private Sub UserForm_Initialize()
With UserForm1.ListBox1
         .ColumnCount = 6
        .ColumnWidths = "30;30;30;30;30;30"
        For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row Step 4
            .AddItem
            For j = 1 To 6
                .List(X, j - 1) = Cells(i, j).Value
            Next j
            X = X + 1
        Next i
End With
End Sub

 

[excellcan]

dosyanız ektedir.

Private Sub UserForm_Initialize()
With UserForm1.ListBox1
         .ColumnCount = 6
        .ColumnWidths = "30;30;30;30;30;30"
        For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row Step 4
            .AddItem
            For j = 1 To 6
                .List(X, j - 1) = Cells(i, j).Value
            Next j
            X = X + 1
        Next i
End With
End Sub

Hocam emeğiniz için çok teşekkürler. Bu soruyu tamamlaması açısından bir şey daha sormak istiyorum. Ben tablo aralığını A1:N13 olarak değiştirdiğimde kodlar
hata verdi. Sanırım AddItem yönteminin sınırından kaynaklı bir durum. Bu durumda kodlar nasıl ayarlanmalı ? İlginiz ve emeğiniz için tekrar teşekkürler.