Döngü İle Aktarma

1 2 3
25/04/2021, 00:56

malatyalı

Hayırlı Geceler, Hayırlı Sahurlar.
Listboxta 11 sütun veri var. Aynı zamanda da 11 Tane textbox var.

TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 0) formatı ile değil de Listboxa çift tıklama ile bir kerede döngü kurarak aktarılabilmesi mümkün müdür?
25/04/2021, 01:09

berduş

For x=0 to 10
Controls("TextBox" &  x +1).value=listbox1.list(0,x)
Next x
Şeklinde bir kod işinize yarayabilir
25/04/2021, 01:19

malatyalı

Ustam
Could Not Find the specified object "Belirtilen nesne Bulunamadı" diye bir hata verdi


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For x = 0 To 10
Controls("TextBox" & x + 1).Value = ListBox1.List(0, x)
Next x
End Sub
25/04/2021, 01:21

feraz

(25/04/2021, 01:09)berduş yazdı: list(0,x)

0 yerine
ListBox1.ListIndex olacak sanki içimden bir his öyle dedi
25/04/2021, 01:21

berduş

ListBox1.List(0, x) yerine ListBox1.List(x,0) dener misiniz
25/04/2021, 01:27

feraz

(25/04/2021, 01:19)malatyalı yazdı: Could Not Find the specified object "Belirtilen nesne Bulunamadı" diye bir hata verdi
Textbox adları textbox1,2,....11 gibi değilse hata vermiştir büyük ihtimalle.
1 2 3