tek Kod Kullanarak TextBox' ları Aktarmak .

[ynmcan]

Merhaba Arkadaşlar ;
*100 Adet TextBox' atki verileri AKTAR Butonu ile Sayfa1' de "A"Sütununa aynı sıra ile aktarmaktayım.

*Ancak ben bunu Buton yardımı ile değil, TextBox' a yazar yazmaz aktarmasını istiyorum.

*Her textBox' un "Private Sub TextBox1_Change()" Prosedürüne

"Cells(1, 1) = TextBox1"

Yazarak Bunu yapıyorum.

*Ancak bunu her textBox için yazmak yerine,toplu şekilde yazacağım bir Kod Varmı ?

"For i = 1 To 10
Cells(i, 1) = Controls("TextBox" & i)
Next i"

Bunun gibi
Örnek Dosyam Ekte

 

[Levent Menteşoğlu]

Bu işlemi pratik hale getirmek için class modül kullanabilirsiniz. Burada dikkat edilmesi gereken textbox isimlerinin ardışık bir sırada olmasıdır. Düzenlediğim dosyanız ektedir.

 

[ynmcan]

Syn. Levent Menteşoğlu ;
Teşekkürler.Hayırlı akşamlar