Son Dolu Satırı Sil

[ziya]

Merhaba,
"Son Dolu Satırı Sil" makrosu lazım.
İnanın aradım,
Yardımlarınız için teşekkür ederim.

 

[volki_112]

Merhaba,
"Son Dolu Satırı Sil" makrosu lazım.
İnanın aradım,
Yardımlarınız için teşekkür ederim.

Sub SonDoluSatiriSil()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim sonSatir As Long
    sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' Eğer son satırda hiç veri yoksa çık
    If ws.Cells(sonSatir, "A").Value = "" Then
        MsgBox "A sütununda silinecek dolu bir satır bulunamadı.", vbExclamation
        Exit Sub
    End If
    
    ' Son dolu satırı sil
    ws.Rows(sonSatir).Delete
    MsgBox "Son dolu satır silindi: Satır " & sonSatir, vbInformation
End Sub

 

[ziya]

Teşekkür ederim.