ListBox a 1 den fazla sütundan veri alma

[soykan]

Müşterilerin datalarını tuttuğum 1 sayfada birden fazla sütunda bilgilerim var.

Bunları ListBox a almak istiyorum.
Aşağıdaki gibi kodları yazdım dayaları getiriyor ama hepsini tek bir sütunda.,
Nerede hata yapıyorum???

Private Sub UserForm_Initialize()
With ListBox1
.BoundColumn = 1
.ColumnCount = 3
.ColumnHeads = True
End With

sonstr = Sheets("Müşteri_Lst").[A50000].End(3).Row
For Each i In Sheets("Müşteri_Lst").Range("A2:C500" & sonstr)
ListBox1.AddItem (i)
Next i
End Sub

 

[hamitcan]

ListBox1.AddItem yöntemi yerine ListBox1.RowSource yöntemini kullanın. Forumda bir çok örnek bulabilirsiniz.

 

[soykan]

Teşekkürler dediğiniz yöntemle hallettim...