---

(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