ListBox'ta satırsayısı değeşkenine göre Listeleme

[Orion1]

Mrb

Private Sub UserForm_Initialize()
    Dim MyArr(1 To 4, 1 To 10)
    Dim i As Long
    ListBox1.ColumnCount = 4
        For i = 1 To 10
            MyArr(1, i) = Range("A" & i + 2)
            MyArr(2, i) = Range("B" & i + 2)
            MyArr(3, i) = Range("C" & i + 2)
            MyArr(4, i) = Range("H" & i + 2)
        Next
    ListBox1.Column = MyArr
End Sub

Yukarıdaki Kodlar ile 4 sütunlu 10 satırlı bir listbox'ta listeleme yapılıyor.

Satırların Değişken olması durumunda bu kodu nasıl düzenleyebiliriz.
Ã?rneğin:1 To 10 değilde satır sayısının tutulduğu bir değeşken'i kullanabilirmiyiz.Mesala Satır sayısının tutulduğu değişkenin adı ="satirsayisi" olsun. 1 To satirsayisi
Böylece dağa esnek bir kod olur düşüncesindeyim.
Teşekkür ederim.
İyi çalışmalar.

:hey:

 

[veyselemre]

[vb:1:f6e618b0b0]Private Sub UserForm_Initialize()
satirsay = [a65536].End(3).Row
MsgBox satirsay
ReDim MyArr(1 To satirsay - 2, 1 To 4)
Dim i As Long
ListBox1.ColumnCount = 4
For i = 3 To satirsay
MyArr(i - 2, 1) = Cells(i, 1)
MyArr(i - 2, 2) = Cells(i, 2)
MyArr(i - 2, 3) = Cells(i, 3)
MyArr(i - 2, 4) = Cells(i, 8)
Next
ListBox1.List = MyArr
End Sub
[/vb:1:f6e618b0b0]

 

[Orion1]

Sn.Veyselemre
Teşekkür ederim iyi çalışmalar
:hey: