Kaydet Makrosu Hatası

[airborne]

s.a.

Private Sub CommandButton1_Click()
On Error Resume Next
Dim KayitSayisi As Integer
If TextBox1.Value = "" Then
MsgBox "Yavrukurt isim yazmadın!", , "Eksik Alan Bulundu"
Exit Sub
End If
Set S30 = Worksheets("Sayfa30")
KayitSayisi = WorksheetFunction.CountA(Sayfa30.Range("A:A"))
S30.Cells(KayitSayisi + 1, 1).Value = TextBox1.Value
End Sub

kodu ile kayıt yapıyorum, problemim sadece Sayfa 30'un 33. satırına kayıt yapıyor. nedenini bir türlü çözemedim.

 

[uzmanamele]

s.a.

Private Sub CommandButton1_Click()
On Error Resume Next
Dim KayitSayisi As Integer
If TextBox1.Value = "" Then
MsgBox "Yavrukurt isim yazmadın!", , "Eksik Alan Bulundu"
Exit Sub
End If
Set S30 = Worksheets("Sayfa30")
KayitSayisi = WorksheetFunction.CountA(Sayfa30.Range("A:A"))
S30.Cells(KayitSayisi + 1, 1).Value = TextBox1.Value
End Sub

kodu ile kayıt yapıyorum, problemim sadece Sayfa 30'un 33. satırına kayıt yapıyor. nedenini bir türlü çözemedim.

Merhaba
On Error Resume Next demekle hata oluşursa görmezden gel demişsiniz. Hatayı görememe sonucunu doğuruyor.

..
..
KayitSayisi = WorksheetFunction.CountA(Sayfa30.Range("A:A"))
MsgBox KayitSayisi
..
..
buraya deneme amaçlı koyacağınız mesaj komutu kayıt sayısının ne olacağını size gösterir.
makine aklında kayıt sayısını tutmuş, hep aynı sonucu verecektir.
bunu deneyiniz.

KayitSayisi = Application.WorksheetFunction.CountA(S30.Range("A:A"))