Combobox yerine listboxta gösterme

[heft]

Merhaba,
For b = 2 To Sheets("data").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("data").Range("A2:A" & b), Sheets("data").Cells(b, 1)) = 1 Then
ComboBox1.AddItem Sheets("data").Cells(b, 1).Value
End If
Next
olayını 5 sütünlü listbox1 e nasıl uyarlarım?

Yani A sütunu ayıklanan olacak ve diğer B.C.D.E sütünlarındaki veriler seçtiği A satırındaki değerler olacak

Teşekkürler

 

[selami güzel]

merhaba heft

ListBox1.RowSource = "data!A1:E65536" & a + 1

anladığım kadarı ile böyle bir şey.
kolay gelsin

 

[heft]

tşk syn selami ancak hata veriyor

 

[selami güzel]

Listbox

merhaba sn.heft
ekde ki dosyayı kendi çalımanıza uyarlayın.ComboBox tan seçtiğiniz veriler ListBox ta listeleniyor. ve listBox ta tıkladığınız da textbox lara geliyor.Böyle bişeymi.
veya bu kodu dene
ListBox1.RowSource = "data!A1:E65000"
saygılar.