• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

LİSTBOXTA Kİ SUTUNLARI TEXBOXA YAZMA

Katılım
4 Mayıs 2020
Mesajlar
49
Excel Vers. ve Dili
Excel 2016 Türkçe
[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]
 

Ekli dosyalar

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:

PHP:
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.
 
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:

PHP:
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ş
 
Geri
Üst