userform kayıt problemi

[mraltin]

Userformumdaki textboxlara bilgileri girip kayıt butonuna bastigimda kayit ediyor fakat 2-3 kayittan sonra satir atliyor(ornegin sayfa! in A satirina 1-2-3 diye yazarken birden a8 e yazmis oluyor.Kullandigim kodlar;
Private Sub kaydet_cmd_Click()
If sira_no_txt.Text = "" Or plaka_txt.Text = "" Then
MsgBox "Primary KEY BOÞ BIRAKILAMAZ", vbOKOnly, "VERİ TABANI KAYIT HATASI"
Else
dene = Application.CountA(Sheets("DATA").Columns("A")) + 1
sira = sira_no_txt
Sheets("DATA").Cells(dene, 1) = sira_no_txt.Text
Sheets("DATA").Cells(dene, 2) = plaka_txt.Text
Sheets("DATA").Cells(dene, 3) = marka_cmb.Text
Sheets("DATA").Cells(dene, 4) = model_yili_txt.Text
Sheets("DATA").Cells(dene, 5) = km_txt.Text
Sheets("DATA").Cells(dene, 6) = silindir_txt.Text
Sheets("DATA").Cells(dene, 7) = yakit_cmb.Text
Sheets("DATA").Cells(dene, 8) = motor_txt
End If
End Sub

 

[zafer]

Merhaba
Bunu denermisiniz

DENE = Cells(65536, 1).End(xlUp).Row+1

 

[mraltin]

zafer bey
dene = Application.CountA(Sheets("DATA").Columns("A")) + 1 kodunun yerine sizin yazdiginiz kodu yazdim bu kodu yazinca kayit islemi yapmşyor.hatada vermedi ama sayfaya kayitta yapmiyor.tesekkur edrim.