Delete Row based on multiple criteriaChange Sheet(1) to required Sheet - Cacher Snippet

9/4/2013 - 3:30 AM

Delete Row based on multiple criteria Change Sheet(1) to required Sheet

Delete Row based on multiple criteria Change Sheet(1) to required Sheet

Delete Row based on conditions

Sub DeleteRows()
    Dim x As Long
    With Sheets(1)
        For x = .UsedRange.Rows.Count To 2 Step -1
            If .Cells(x, 1) < 0.2 And .Cells(x, 2) > 0.3 And .Cells(x, 3) > 10 Then
                .Rows(x).Delete
            End If
        Next
    End With
End Sub