Listbox Data Aktarma

[usngl]

Arkadaşlar merhabalar, elimde bir excel sayfasında bulunan verileri userform ekranında bulunan listbox'ıma aktarmak istiyorum. Bununla ilgili epey konuya baktım ama uygun kodu bir türlü uyarlayamadım. Satır sayısı her çekilen datada değiştiği için başına bir do while ile satır sayısını kontrol ettirdim ve aşağıda ki koda ulaştım en son ancak mismatch hatası verdi.

Private Sub UserForm_Initialize()
Sheets("Sheet2").Select
Dim x As Integer
x = 1
Do While Sheet2.Cells(x, 2) <> ""
x = x + 1
Loop
ListBox1.RowSource = Range(Cells(1, 1), Cells(x, 5))
End Sub

Data ise şu şekilde(karışmasın diye "|" karakteri attım):

No |||Talep No |||Ürün Kodu |||Adet |||Seri No
1 |||ASD11611280027 |||21101326 |||1 |||792Q6001799
2 |||ASD11611280027 |||98030376 |||4 |||KLK1161010005B001
3 |||ASD11611280027 |||21101327 |||1 |||792Q6001800

 

[Orion1]

Buyurun.

Private Sub UserForm_Initialize()
Dim sonsat As Long
Sheets("Sheet2").Select
ListBox1.ColumnCount = 5
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
ListBox1.RowSource = "A1:E" & sonsat

End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyiniz; (Evren bey cevaplamış alternatif olsun)

Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 5
.ColumnWidths = "30,80,80,30,80"
End With
Sheets("Sheet2").Select
a = Sheets("Sheet2").Cells(Rows.Count, "B").End(3).Row
ListBox1.RowSource = "Sheet2!A1:E" & a
End Sub

 

[usngl]

Ne kadar teşekkür etsem azdır, çok sağolun dostlar işe yaradı.