sayfaya aktarma ve alma

[akd]

Merhaba arkadaşlar,
Bir sicil bilgileri sorgulama çalışması yapıyorum,
Userform üzerinde 60 adet textbox ve combobox var bunlara t1,t2,t3,t4..... diye isimlendirip vazdığım bilgileri sayfaya A2 itibaren satır satır kaydetmek istiyorum.
her texti ayrı ayrı yazmadansa döngü ile bunları daha kolay kaydetme ve sorgulama şekli yokmu.
lig = Columns(1).Find("", [a1], , , xlByRows).Row
Cells(lig, 1) = ActiveCell.Offset(-1, 0) + 1
Cells(lig, 2) = t1.Text
Cells(lig, 3) = t2.Text
Cells(lig, 4) = t3.Text
......
......
bu şekilde çok uzun kod kalabalığı oluyor , döngü ile hepsini birden kaydedip ve sorgulama olayı yokmu.
Herkese selamler...

 

[ALPEN]

http://www.excel.web.tr/viewtopic.php?t=1927

 

[akd]

Merhaba sayın alpen
Ã?ncelikle ilginiz için teşekkürler
Ama ben texteki bilgilerin hepsini birden sayfaya gönderme ve sayfadan sorgulama hakkında bilgi almak istemiştim.
saygılar...

 

[ALPEN]

merhaba

linkte user form üzerindeki kontroller arasında, teker teker referans göstermeden, bir döngü dolaşabilecek kodlar mevcut.
yapmanız gereken sadece sizin istediğiniz şekle sokmak.

mesela


[vb:1:ee18fa1ef6]lig = Columns(1).Find("", [a1], , , xlByRows).Row
For a = 1 To 60
Cells(lig, a) = UserForm1.Controls("T" & a) .text
Next a[/vb:1:ee18fa1ef6]

gibi.

 

[akd]

Çok çok teşekürler sayın alpen kardeşim...