Sub paradise()
Dim UsdRws As Long
With Sheets("pcode")
If .AutoFilterMode Then .AutoFilterMode = False
UsdRws = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A5:K" & UsdRws).AutoFilter 8, ""
.Range("A5:K" & UsdRws).AutoFilter 9, ""
.Range("A5:K" & UsdRws).AutoFilter 10, ""
.Range("A5:K" & UsdRws).AutoFilter 11, ""
.AutoFilter.Range.Offset(1).EntireRow.Delete
.AutoFilterMode = False
End With
End Sub
Sub Demo1()
Dim C&
Application.ScreenUpdating = False
With Sheet1.[C5].CurrentRegion.Columns("F:I")
For C = 1 To .Count: .AutoFilter C, "", xlOr, 0: Next
.Offset(1).EntireRow.Delete
.Parent.AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub
This works like a charm and worked must faster than expected.Thanx a lot.What about this?
Code:Sub belle() Dim i As Long For i = Cells(Rows.Count, 3).End(xlUp).Row To 6 Step -1 If Cells(i, 8) = "" And Cells(i, 9) = "" And Cells(i, 10) = "" And Cells(i, 11) = "" Then Range("C" & i).EntireRow.Delete Next End Sub
Sub belle()
Dim i As Long
For i = Cells(Rows.Count, 3).End(xlUp).Row To 6 Step -1
If Cells(i, 8) = 0 And Cells(i, 9) = 0 And Cells(i, 10) = 0 And Cells(i, 11) = 0 Then Range("C" & i).EntireRow.Delete
Next
End Sub