Macro hatası

[hamza02]

Private Sub CommandButton3_Click()
Dim SonSatir As Long
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Kayıt")
SonSatir = .Cells(Rows.Count, "B").End(xlUp).Row
.Cells(SonSatir, "B").ClearContents
End With
Application.ScreenUpdating = True
MsgBox "Kayıt Sayfası Son Kayıt Silindi "
End Sub


Bu kodda nerede hata yaptım acaba çözemedim.
yapmak istediğim Sayfa1 'deki butona tıkladığımda Sayfa2(Kayıt) sayfasındaki son kaydı silsin.

 

[Ouzz_z]

Rows.Count'tan önce nokta koymalısınız .Rows.Count, ayrıca satırı içerik olarak değil tamamen temizlemek için .Rows(SonSatir).Delete kullanabilirsiniz.

 

[hamza02]

denedim olmadı

 

[hamza02]

normal kodlar çalışınca sadece B sütunu son dolu hücreyi temizliyor. Benim yapmak istediğim son dolu satırı temizlemek.

 

[hamza02]

İndir deneme Kopya xlsm

Dosyayı indir deneme Kopya xlsm

dosya.co

dosya yükledim

 

[Ouzz_z]

Private Sub CommandButton1_Click()
    Dim SonSatir As Long
    Application.ScreenUpdating = False
    With ThisWorkbook.Worksheets("Kayıt")
        SonSatir = .Cells(.Rows.Count, "B").End(xlUp).Row
        .Rows(SonSatir).ClearContents
    End With
    
    Application.ScreenUpdating = True

    MsgBox "Kayıt Sayfası Son Kayıt Silindi "

End Sub

 

[hamza02]

Sayın Ouzz_z
Denedim sağlıklı bir şekilde çalışıyor, elinize emeğinize sağlık, çok teşekkür ederim.
Allah'a emanet olun.