Overflow (Error 6) Hatası

[mrt]

Selamlar,


Sub bos_satir_sil2()
Application.ScreenUpdating = False
Dim i As Integer
t = ActiveSheet.UsedRange.Rows.Count
For i = t To 1 Step -1
If IsEmpty(Cells(i, 5)) Then
Rows(i).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub


Makrosunu çalıştırdığımda, hata veriyor ve For i = t To 1 Step -1 satırını seçiyor.

Bu hatayı nasıl düzeltebilirim.


Yapmak istediğim;

E Sutununda boş olan hücrelere ait satırları silmek.

 

[Ömer]

Merhaba,

Sub Sil()
Dim i As Long
Application.ScreenUpdating = False
    For i = [E65536].End(3).Row To 1 Step -1
        If IsEmpty(Cells(i, "e")) Then
            Rows(i).Delete Shift:=xlUp
        End If
    Next i
Application.ScreenUpdating = True
End Sub

Yada

Sub Sil1()
On Error Resume Next
    Range("E:E").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub