ListBox1'de Seçtiğim Sayfadaki Verilerin ListBox2'de görÃ

[programer]

Genel Satışa Tıkladığım zaman ListBox1'de müşteri isimleri var burda seçtiğim müşteri sayfasındaki verilerin ListBox2 de görünmesini istiyorum
aşağıdaki kodu kullandım ama sadece açtığım ilksayfadaki birinci satır görünüyo. Kodu nasıl değiştirmem lazım.

Private Sub UserForm_Initialize()
ListBox2.AddItem ActiveCell.Value
End Sub

 

[veyselemre]

listbox2 nin column count özelliğini 8 yapın

[vb:1:91ce287274]Private Sub ListBox1_Click()
Sheets(ListBox1.Text).Select
ListBox2.RowSource = [a1].CurrentRegion.Address
End Sub
[/vb:1:91ce287274]