Listbox 'dan TextBox 'a Veri Alma

[mustafakoker]

Hayırlı Akşamlar
Ekli Tablomda Listboxtaki ismlerin üstüne geldiğimde ilgili textboxlara verileri almasını sağlayamadım yardımcı olursanız sevinirim textbox numaraları sıralı gitmediğinden karışık alıyor

Not:forumdaki ve arşivimdeki birsürü örneği inceledim ama beceremedim

 

[Excelmy]

Kodlarınız değiştiriniz

Private Sub ListBox1_Click()
TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 0)
TextBox8.Value = ListBox1.List(ListBox1.ListIndex, 1)
TextBox2.Value = ListBox1.List(ListBox1.ListIndex, 2)
TextBox3.Value = ListBox1.List(ListBox1.ListIndex, 3)
TextBox4.Value = ListBox1.List(ListBox1.ListIndex, 4)
End Sub

 

[mustafakoker]

Teşekkürler

 

[tufyy3434]

Sayın Excelmy
Peki Sayfa2 deki bir user formdaki listbox tan çift tıkladığımızda sayfa1 deki tektbox a veriyi nasıl göndeririz?

 

[Excelmy]

Sayın Excelmy
Peki Sayfa2 deki bir user formdaki listbox tan çift tıkladığımızda sayfa1 deki tektbox a veriyi nasıl göndeririz?

Merhaba,

"Sayfa2 deki Userfom" ...? tam anlayamadım.

Altta eklenen kodlarda belirtilen kısımları kendinize uyarlayınız.

Private Sub ListBox[B][COLOR="Red"]1[/COLOR][/B]_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox[B][COLOR="red"]1[/COLOR][/B].ListCount < 1 Then: Exit Sub
TextBox[B][COLOR="red"]1[/COLOR][/B] = ListBox[B][COLOR="red"]1[/COLOR][/B].List(ListBox[B][COLOR="red"]1[/COLOR][/B].ListIndex, [B][COLOR="red"]0[/COLOR][/B])
End Sub