Userformda en son satıra kaydet ?

[BASKICI]

Selamlar ; aşağıdaki kodlar sütundaki en son hücreye textbox umdaki veriyi kaydedebiliyorum.

Worksheets("Sayfa1").Range("A65536").End(Xlup).Offset(1) = Textbox1

Ancak düşüncem şu.. Mesela 10 adet textbox um var ve ilk girişimde 3 tanesine veri giriyorum. Diğerleri boş oluyor. 2nci veri girişimde bir diğer satıra geçiyorum ancak ilk girişimde veri girmediğim yerlere kayıyor doğal olarak kayıtlarım. Kayıt işlemini sütun değilde satır bazında nasıl yapabilirim.??

 

[Ayşavkı]

Merhaba!! tam bilmemekle beraber doğru anladı isem
Off set(1) kırmızı parantez içindeki 1 rakamını 3 veya 4 ile değiştirin Saygılar

 

[Orion1]

Buyurun.

sat=Worksheets("Sayfa1").Range("A65536").End(Xlup)
Worksheets("Sayfa1").cells(sat +1,"A").value= Textbox1
Worksheets("Sayfa1").cells(sat +2,"A").value= Textbox2
'------------------
'---------------
Worksheets("Sayfa1").cells(sat +5,"A").value= Textbox5

 

[BASKICI]

Selamlar. Sayın Evren Bey ve Sayın Ayşavkı ;
Öncelikle ilginiz için teşekkür ederim.
Sayın ayşavkı ; dediklerinizi daha önce bende denedim ancak bir sonuca ulaşamadım.
Sayın Evren Bey ; verdiğiniz kodlar devamlı alt alta yazması için. Sanırım ben yanlış anlattım . Textbox 1 A sütununa devamlı veri yazmakta. Textbox 2 B Textbox 3 C diye gidiyor.

 

[Orion1]

Selamlar. Sayın Evren Bey ve Sayın Ayşavkı ;
Öncelikle ilginiz için teşekkür ederim.
Sayın ayşavkı ; dediklerinizi daha önce bende denedim ancak bir sonuca ulaşamadım.
Sayın Evren Bey ; verdiğiniz kodlar devamlı alt alta yazması için. Sanırım ben yanlış anlattım . Textbox 1 A sütununa devamlı veri yazmakta. Textbox 2 B Textbox 3 C diye gidiyor.

Kodlarınız.

'coder:Evren Gizlen
'email:evrengizlen@hotmail.com
'date:23.02.2011
sat=Worksheets("Sayfa1").Range("A65536").End(Xlup) +1
Worksheets("Sayfa1").cells(sat,"A").value= Textbox1.text
Worksheets("Sayfa1").cells(sat,"B").value= Textbox2.text
Worksheets("Sayfa1").cells(sat,"C").value= Textbox3.text

 

[BASKICI]

Sayın Evren Gizlen; Allah razı olsun ne diyeyim başka Teşekkür ederim