LİSTBOXTA Kİ SUTUNLARI TEXBOXA YAZMA

[ERBİL35]

[TR][TD]
Arkadaşlar ListBox veriyi seçip çift tıklayınca
[/TD][/TR]
[TR][TD]
ListBox daki 2. sutunu TextBox1 e , ListBox daki 3. sutunu TextBox2 e , ListBox daki 4. sutunu TextBox3 e , ListBox daki 5. sutunu TextBox4 e , ListBox daki 6. sutunu TextBox5 e , ListBox daki 7. sutunu TextBox6 e , ListBox daki 8. sutunu TextBox7 e , ListBox daki 9. sutunu TextBox8 e , ListBox daki 10. sutunu TextBox9 e ,ListBox daki 11. sutunu TextBox10 e yazmasını istiyorum nereye nasıl kodlama yapılacağı hakkında YARDIMCI OLABİLİRMİSİNİZ
[/TD][/TR]
[TR][TD]

[/TD][/TR]
[TR][TD]

[/TD][/TR]
[TR][TD]

[/TD][/TR]
[TR][TD]

[/TD][/TR]
[TR][TD]

[/TD][/TR]
[TR][TD]

[/TD][/TR]
[TR][TD]

[/TD][/TR]
[TR][TD]

[/TD][/TR]
[TR][TD]

[/TD][/TR]

 

[ERBİL35]

bu işlemi tamamladım kusura bakmayın

 

[YUSUF44]

Tamamlamışsınız ama ben de soruyu gördüğümden beri pratik bir yöntem düşünüyordum. Listbox1'in change kodlarını aşağıdaki gibi yaparsanız istediğiniz olur:

Private Sub ListBox1_Change()
For i = 1 To 10
    Me.Controls("textbox" & i) = ListBox1.List(ListBox1.ListIndex, i)
Next
End Sub

Sayenizde bu yöntemi kullanmayı öğrendim, teşekkürler.

 

[ERBİL35]

Tamamlamışsınız ama ben de soruyu gördüğümden beri pratik bir yöntem düşünüyordum. Listbox1'in change kodlarını aşağıdaki gibi yaparsanız istediğiniz olur:

Private Sub ListBox1_Change()
For i = 1 To 10
    Me.Controls("textbox" & i) = ListBox1.List(ListBox1.ListIndex, i)
Next
End Sub

Sayenizde bu yöntemi kullanmayı öğrendim, teşekkürler.

Teşekkür ederim çok güzel olmuş