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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.
