could not set the list property. İnvalid property array index." hatası verdi. Textboxlar da 1, 2, 3 gibi değiştirmedim ustam
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For x = 0 To 10
Controls("TextBox" & x + 1).Value = ListBox1.List(x, 0)
Next x
End Sub
(25/04/2021, 01:29)malatyalı yazdı: List(x, 0)
Burası hatalı.Daha önce yazdığım gibi listindexli olarak deneyin.
Sayın feraz hayırlı geceler
Ben yapamadım vallaha
(25/04/2021, 01:40)malatyalı yazdı: Sayın feraz hayırlı geceler
Ben yapamadım vallaha
Sizede abey.
Pc başında değilim abey örneğinizi ekleyin sahurda bakayım(3 saat sonra) berduş hocamız lalletmezse.
sayın @
malatyalı aşağıdaki kodu denedim çalışıyor, yani 2. mesajda yazdığım kod doğru
For x = 0 To 10
Controls("textbox" & x + 1).Value = Me.ListBox1.List(0, x)
Next x
(25/04/2021, 03:13)berduş yazdı: sayın @malatyalı aşağıdaki kodu denedim çalışıyor, yani 2. mesajda yazdığım kod doğru
For x = 0 To 10
Controls("textbox" & x + 1).Value = Me.ListBox1.List(0, x)
Next x
Berduş hocam kodunuz çalışıyor ama her zaman 1.satırdaki veriler geliyor 0 olduğu için.Listindex ise seçilen satırdaki satır noyu bulur abey.
For x = 0 To 10
Controls("textbox" & x + 1).Value = Me.ListBox1.List(ListBox1.ListIndex, x)
Next x
Yada listyerine
Column olarak alttaki gibi olur parantez içi yerdeğiştirip.
For x = 0 To 10
Controls("textbox" & x + 1).Value = Me.ListBox1.Column(x, ListBox1.ListIndex)
Next x