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

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

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

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?

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

For x=0 to 10

Controls("TextBox" &  x +1).value=listbox1.list(0,x)

Next x

Şeklinde bir kod işinize yarayabilir

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

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

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

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

0 yerine
ListBox1.ListIndex olacak sanki içimden bir his öyle dedi Img-grin

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

ListBox1.List(0, x) yerine ListBox1.List(x,0) dener misiniz

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

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