AccessTr.neT
Döngü İle Aktarma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Döngü İle Aktarma (/konu-dongu-ile-aktarma.html)

Sayfalar: 1 2 3

RE: Döngü İle Aktarma - malatyalı - 25/04/2021

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

RE: Döngü İle Aktarma - feraz - 25/04/2021

(25/04/2021, 01:29)malatyalı yazdı: List(x, 0)
Burası hatalı.Daha önce yazdığım gibi listindexli olarak deneyin.

RE: Döngü İle Aktarma - malatyalı - 25/04/2021

Sayın feraz hayırlı geceler
Ben yapamadım vallaha

RE: Döngü İle Aktarma - feraz - 25/04/2021

(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.

RE: Döngü İle Aktarma - berduş - 25/04/2021

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


Re: Döngü İle Aktarma - feraz - 25/04/2021

(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