Metin kutusundaki verileri hücreye aktarma

[tristanfermat]

Merhaba,
ekte bulunan örnek dosya da ilk sayfada iki tane metin kutusu bulunuyor. Ilk kutuya her hangi bir sayi degeri, ikinci kutuya tarih giriliyor ve eger ilk sayfanin A1 hücresi
A ise A sayfasina B ise B sayfasina C ise C sayfasina bilgiler aktariliyor. A,B ve C sayfalarindaki A sütunuda en son dolu hücredeki sayi neyse otomatik olarak 1 fazlasi geliyor yani B ve C sütunlarina gelen veri Metin kutusundan A sütununa gelen ise en son sayinin bir fazlasi seklinde. Nasil bir makro yazmaliyim?
Tesekkürler

 

[Orion1]

Dosyanız ektedir.

Sub aktar_59()
Dim sonsat As Long
If Not IsNumeric(Sayfa1.TextBox1.Value) Then
    MsgBox "textbox1 sayı değil!Aktarma yapılmadı.", vbCritical, "UYARI"
    Exit Sub
End If
If Not IsDate(Sayfa1.TextBox2.Value) Then
    MsgBox "textbox2 tarih değil!İşlem iptal oldu.", vbCritical, "UYARI"
    Exit Sub
End If
sonsat = Sheets(Range("A1").Value).Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets(Range("A1").Value).Cells(sonsat, "A").Value = sonsat - 1
Sheets(Range("A1").Value).Cells(sonsat, "B").Value = CDbl(Sayfa1.TextBox1.Value)
Sheets(Range("A1").Value).Cells(sonsat, "C").Value = CDate(Sayfa1.TextBox2.Value)
MsgBox "Veriler kaydedildi.", vbOKOnly, "KAYIT YAPILDI"
End Sub

 

[tristanfermat]

Hocam sagolun cok hizlisiniz

 

[Orion1]

Hocam sagolun cok hizlisiniz

Rica ederim.
İyi çalışmalar.