Makroda Hata

[airborne]

s.a.

arkadaşlar aşağıdaki makronun neresinde hata olduğu komusundayardımcı olursanız sevinirim.

Private Sub CommandButton1_Click()
On Error Resume Next
Dim KayitSayisi As Integer
If TextBox1.Value = "" Then
MsgBox "isim yazmadınız!", , "Eksik Alan Bulundu"
Exit Sub
End If
say = WorksheetFunction.CountA(Range("A1:A500")) + 1
Cells(say, 1).Value = TextBox1.Value
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki tanımlamayı kod içinde hiçbiryerde kullanmamışsınız.

KayitSayisi

Bunun yerine kod içinde "say" değişkeni kullanmışsınız. İki tanımlama aynı olmalıdır.

 

[airborne]

korhan ayhan teşekkür ederim