Delete an entire Row if 2 Columns = Zero Q
 

The code below deletes the entire row starting upwards from row 500 if the
value in H=0, but if E=VAT then ignore regardless if H in that particular
row = 0.

For i = Range("E500").End(xlUp).Row To 2 Step -1
If Left(Range("E" & i).Value, 3) < "VAT" Then
If Range("H" & i).Value = 0 Then
Range("H" & i).EntireRow.Delete
End If
End If
Next i


I wish to modify this slightly that even if E=VAT the row will still be
deleted if L=0. So in effect if H & L are "both" Zero, delete the entire
row. How would I do that

Thanks

Delete an entire Row if 2 Columns = Zero Q
 

For i = Range("E500").End(xlUp).Row To 2 Step -1
If Left(Range("E" & i).Value, 3) < "VAT" or _
Range("L" & i).Value = 0 Then
If Range("H" & i).Value = 0
Range("H" & i).EntireRow.Delete
End If
End If
Next i

--
Regards,
Tom Ogilvy


"John" wrote in message
...
The code below deletes the entire row starting upwards from row 500 if the
value in H=0, but if E=VAT then ignore regardless if H in that particular
row = 0.

For i = Range("E500").End(xlUp).Row To 2 Step -1
If Left(Range("E" & i).Value, 3) < "VAT" Then
If Range("H" & i).Value = 0 Then
Range("H" & i).EntireRow.Delete
End If
End If
Next i


I wish to modify this slightly that even if E=VAT the row will still be
deleted if L=0. So in effect if H & L are "both" Zero, delete the entire
row. How would I do that

Thanks

Delete an entire Row if 2 Columns = Zero Q
 

Thanks Tom

Just a "Then" missing from - If Range("H" & i).Value = 0


"Tom Ogilvy" wrote in message
...
For i = Range("E500").End(xlUp).Row To 2 Step -1
If Left(Range("E" & i).Value, 3) < "VAT" or _
Range("L" & i).Value = 0 Then
If Range("H" & i).Value = 0
Range("H" & i).EntireRow.Delete
End If
End If
Next i

--
Regards,
Tom Ogilvy


"John" wrote in message
...
The code below deletes the entire row starting upwards from row 500 if
the
value in H=0, but if E=VAT then ignore regardless if H in that particular
row = 0.

For i = Range("E500").End(xlUp).Row To 2 Step -1
If Left(Range("E" & i).Value, 3) < "VAT" Then
If Range("H" & i).Value = 0 Then
Range("H" & i).EntireRow.Delete
End If
End If
Next i


I wish to modify this slightly that even if E=VAT the row will still be
deleted if L=0. So in effect if H & L are "both" Zero, delete the entire
row. How would I do that

Thanks