Textboxlari Kaydetme

[osmanfenerli1907]

MERHABALAR
saygıdeğer hocalarım
Ben userformdaki textboxları(textbox1, textbox2, ..textbox24) commandbutton1 e tıklayınca kayıtlar sayfasında a1:x1 e kaydetmesini.Birdaha kaydetme işini yapınca a2:x1 e kaydetmesini istiyorum.Forumda örnekler mevcuttu ama kendime uyarlayamadım.Yardımcı olursanız sevinirim.
İYİ günler

 

[captan]

kaydet buton

Private Sub CommandButton1_Click()
On Error Resume Next
Sheets("Sayfa1").Select
son = [a65536].End(3).Row + 1
Cells(son, 1) = sonsat - 1
Cells(son, 2) = TextBox1.Value
Cells(son, 3) = TextBox2.Value
End Sub

Bu kodlar A:A satırında en son kayıtlı veriyi bulur daha sonra da A sütunun son boş satırına sıra numarası yazar daha sonra hemen onun yanındaki B nin hücresine TextBox1 i, onun yanındaki C nin hücresine TextBox2 yi yazar.

Devamını getirirsin. .

 

[osmanfenerli1907]

Sayin Hata Verİyor.
Hata Resİmde

 

[Recep İpek]

Cells(son, 1) = sonsat - 1

satırını

Cells(son, 1) = son - 1

olarak düzeltin.

 

[osmanfenerli1907]

SAYIN RİPEK
YİNE HATA VERİYOR

son = [a5000].End(3).Row + 1

SATIRINDAKİ [a5000] KELİMESİNİN MAVİ YAPIYOR.hata veriyor.
YARDIMCI OLABİLİRSENİZ SEVİNİRİM
iyi günler

 

[osmanfenerli1907]

sayın hocalarım
Yardımcı olabilir misiniz?
İYİ AKŞAMLAR

 

[Recep İpek]

Dosyanızın boyutu büyük değil ise buraya ekleyebilirmisiniz?

 

[excellium]

SAYIN RİPEK
YİNE HATA VERİYOR

son = [a5000].End(3).Row + 1

SATIRINDAKİ [a5000] KELİMESİNİN MAVİ YAPIYOR.hata veriyor.
YARDIMCI OLABİLİRSENİZ SEVİNİRİM
iyi günler

şunu dener misiniz?

son = range("a65536").End(xlup).Row + 1

 

[Zorro]

SAYIN RİPEK
YİNE HATA VERİYOR

son = [a5000].End(3).Row + 1

SATIRINDAKİ [a5000] KELİMESİNİN MAVİ YAPIYOR.hata veriyor.
YARDIMCI OLABİLİRSENİZ SEVİNİRİM
iyi günler

son = ActiveSheet.[a5000].End(3).Row + 1 deneyin.

 

[Orion1]

merhaba
Aşağıdaki şekilde deneyin.

son = Cells(65536, "A").End(xlUp).Row + 1

 

[osmanfenerli1907]

hepinize teşekkürler
İYİ günler