Formül içeren boş satır silme

[mesutaygun70]

Kolay gelsin. Benim formumda hücreler =EĞER(a.kayıt!V17=0;"";a.kayıt!M17) şeklinde formül içeriyor. Bu yüzden bazı satırlar boş bazı satırlar dolu. Boş satırları silmek için
Sub Sil()
Application.ScreenUpdating = False
Dim i As Integer
t = ActiveSheet.UsedRange.Rows.Count
For i = t To 1 Step -1
If IsEmpty(Cells(i, 1)) And IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i, 3)) And IsEmpty(Cells(i, 4)) Then
Rows(i).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub

Kodunu kullanıyordum ama formül içerdiği için çalışmıyor formülleri silersem çalışıyor. Nasıl yapabilirim.

 

[Muzaffer Ali]

If IsEmpty(Cells(i, 1)) And IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i, 3)) And IsEmpty(Cells(i, 4)) Then

Satırını aşağıdaki gibi değiştirin.

If Cells(i, 1).Value = "" And Cells(i, 2).Value = "" And Cells(i, 3).Value = "" And Cells(i, 4).Value = "" Then