Userformda listeleme

[onurdogan]

Arkadaşlar merhaba
Userformda listeleme yapmaya ihtiyacım var. Formda birkaç örnek buldum ama uygulamakta başarısız oldum yardımcı olursanız çok sevinirim

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
satır = ListBox1.ListIndex + 1
For i = 1 To 2
Controls("Textbox" & i).Value = Sheets("Sayfa1").Cells(satır, i).Value
Next
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.RowSource = "Sayfa1!a1:b100"
For i = 1 To 2
Controls("Textbox" & i).Value = ""
Next
End Sub

 

[onurdogan]

ilginiz için teşekkür ederim işe yaradı