Macro to delete row if two columns contain zero amount

[dnlrsms]

Hi,
I need help getting a macro to delete the entire row if column A is zero and column B is zero, but it should not delete the row if column B contains an amount greater than 0.

I have done some searching, but I was not able to find an example that can do this.
Column A = 0, Column B = 0 - Delete the row
Column A = 0, Column B = 1 - Do not delete the row
Column A = 1, Column B = 0 - Do not delete the row
Column A = 1, Column B = 1 - Do not delete the row

Any help will be greatly appreciated.

Regards

 

[VoG]

Try

Sub TEST()
Dim LR As Long, I As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For I = LR To 1 Step -1
    With Range("A" & I)
        If .Value = 0 And .Offset(, 1).Value = 0 Then .entirerow.Delete
    End With
Next I
End Sub

 

[nuked]

This should work.

Sub DeleteRows()
Dim rng As Range, cel As Range
Dim N As Long
Set rng = ActiveSheet.Range("A1:A" & ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row)
For N = rng.Rows.Count To 1 Step -1
If rng.Cells(N, 1) = 0 And rng.Cells(N, 2) = 0 Then
    
    rng.Cells(N, 1).EntireRow.Delete shift:=xlShiftUp
End If
Next N
 
 

End Sub

 

[dnlrsms]

This should work.

Sub DeleteRows()
Dim rng As Range, cel As Range
Dim N As Long
Set rng = ActiveSheet.Range("A1:A" & ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row)
For N = rng.Rows.Count To 1 Step -1
If rng.Cells(N, 1) = 0 And rng.Cells(N, 2) = 0 Then
    
    rng.Cells(N, 1).EntireRow.Delete shift:=xlShiftUp
End If
Next N
 
 

End Sub

Hi nuked,

Thank you so much for the code. It is awesome and is just what I needed to complete my project.

Thanks