Delete rows when checking that there is no zero value in one of the columns

[sofas]

Hello, I want a code that deletes rows that do not contain a zero value in columns A, B, C, and D. That is, I might try to filter the data and check if there is a 0 in one of the rows.

 

[Legacy 143009]

Hi,

I think this should work for you:

Sub test()
  Dim i As Long, lRow As Long
  lRow = Cells(Rows.Count, "A").End(xlUp).Row
  With Application
  .ScreenUpdating = False
  For i = lRow To 1 Step -1
    If IsError(.Match(0, Range("A" & i & ":D" & i), 0)) Then
      Rows(i).EntireRow.Delete
    End If
  Next
  .ScreenUpdating = True
  End With
End Sub

 

[sofas]

Hi,

I think this should work for you:

Sub test()
  Dim i As Long, lRow As Long
  lRow = Cells(Rows.Count, "A").End(xlUp).Row
  With Application
  .ScreenUpdating = False
  For i = lRow To 1 Step -1
    If IsError(.Match(0, Range("A" & i & ":D" & i), 0)) Then
      Rows(i).EntireRow.Delete
    End If
  Next
  .ScreenUpdating = True
  End With
End Sub

Great, this is what I'm looking for, thank you

 

[Legacy 143009]

You are welcome