overfalow hatası

[milow]

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

merhaba 174108 satırlık veri sayfasında boş satırları silmek için böyle birşey buldum ama over falow hatası veriyor f5 ile yapacam ama arada bazı veriler var amacım sadece ve sadece boş olan satırları silmek hücreleri değil teşekürler yardımlarınızı bekliyorum

 

[mancubus]

overflow olacak.

daha iyi bir yöntem önereyim.

Sub xlTR_t152072_Boş_Satırları_Sil_AutoFilter()
     
    With Worksheets("Sayfa1") 'Sayfa1'i verinin bulunbuğu sayfanın ismi ile değiştir
        .AutoFilterMode = False
        .UsedRange.AutoFilter Field:=1, Criteria1:="="
        .UsedRange.AutoFilter Field:=2, Criteria1:="="
        .UsedRange.AutoFilter Field:=3, Criteria1:="="
        .UsedRange.AutoFilter Field:=4, Criteria1:="="
        .UsedRange.Columns(1).Offset(1).SpecialCells(12).EntireRow.Delete
        .AutoFilterMode = False
    End With

End Sub

 

[milow]

teşekür ederim bende harika oldu

 

[mancubus]

rica ederim. işe yaradığına sevindim.

 

[mancubus]

şu aşağıdaki daha güvenilir bir kod:

Sub xlTR_t152072_Boş_Satırları_Sil_AutoFilter()
     
    Dim c As Long
     
    With Worksheets("Sayfa1") 'Sayfa1'i verinin bulunduğu sayfanın ismi ile değiştir
        .AutoFilterMode = False
        For c = 1 To 4
            .UsedRange.AutoFilter Field:=c, Criteria1:="="
            .UsedRange.Columns(1).Offset(1).SpecialCells(12).EntireRow.Delete
            .AutoFilterMode = False
        Next c
    End With

End Sub