(18/01/2020, 17:49)berduş yazdı: dilerim işinize yararTeşekkürler berduş
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"
@benbendedeilem