(18/01/2020, 17:49)berduş yazdı: dilerim işinize yarar

Dim SonStR, x As Long

Dim HcrAdrs, SonStN As String

HcrAdrs = Mid(Range("A1").SpecialCells(xlCellTypeLastCell).Address, 2) 'son hücrenin adresi

SonStN = Left(HcrAdrs, InStr(HcrAdrs, "$") - 1) 'son sütun

SonStR = Mid(HcrAdrs, InStr(HcrAdrs, "$") + 1) 'son satır

        Application.ScreenUpdating = False

 

        For I = SonStR To 1 Step -1 'son satırdan ilk satıra kadar döngü kurduk

            If Application.WorksheetFunction.CountA(Range("A" & I & ":" & SonStN & I)) = 0 Then 'Eğer tüm satır boşsa

                Rows(I).EntireRow.Delete ' Tüm satırı sil

            End If

        Next

 

        Application.ScreenUpdating = True

        Debug.Print "bitti"

İşinize karşmak gibi olmasında bundan yıllar önce alltaki kodu denemiştim hatalı çalışıyordu sanki.
Aklımda kaldığı kadarıyla mesela son satır A50 olsun bu a50 deki veri silinse bile son satır yine A50 çıkıyordu.Dediğim gibi emin değilim yinede.



xlCellTypeLastCell


Alttaki yapınca don satır no vermiyormu


Range("A1").SpecialCells(xlCellTypeLastCell).row