debug hatası

[Ercan_ÇELİKOĞLU]

http://s2.dosya.tc/server4/x6f7uo/ERCAN_KKE_DENEME.xls.html


KAYDET BUTONUNA BASINCA KAYDEDİYOR AMA DEBUG HATASI VERİYOR
SİL BUTONUNA BASINCA SİLİYOR AMA DEBUG HATASI VERİYOR YARDIM EDEBİLİRMİSİNİZ.
ayrıca forma tıklayıp tab tuşu ile bir sonrakine geçtiğimde baba adından sonra 1 alltaki yerine kaydete gidiyor bu hataları nasıl düzeltirim.

 

[PLİNT]

Merhaba
Hata uyarıların kaynağı dosya adında ("_") alt tire eksikliğidir.
("thisworkbook.save" şeklindede kullanabilirsiniz)
Sıra no ları "b" sütununa göre tam olması için
"sil" butonu altında aşağıdaki değişiklileri yapınız.

Private Sub cmdsil_Click()
   '.......
'........kodlarınız
'......
'....
   say = WorksheetFunction.CountA(Range("[COLOR="Red"]B2:B65000[/COLOR]"))
[COLOR="Red"]Range("A2:A" & Cells(Rows.Count, 1).End(3).Row) = ""[/COLOR]
    For i = 1 To say
        Cells(i + 1, 1) = i
    Next i
     'thisworkbook.save
      Workbooks("ERCA[COLOR="Red"]N_KKE_D[/COLOR]ENEME.XLS").Save
    MsgBox "Veriniz Silindi", , "KAYIT"
'.....
'.....
End Sub

Çıkışta bir alttaki "textbox"a geçmesi içinde

Private Sub txtmaas_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.txtanne.SetFocus 'anne adı textbox ına geçmesi için 
End Sub