Delete specified critria rows

R

rn

Hi

What code can I use to delete rows based on the values of
two fields/columns on the same row. (if cell A1 is not
blank and cell B1=0 delete)

Thanks.
 
B

Bob Phillips

Insert a row at the top, and then a spare column, add

=AND(A2<>"",B2=0)

Select this column and Menu Data>AuItofilter.
Click the dropdown and select TRUE from the list
Delete all visible rows, including row 1

All done


--

HTH

RP
(remove nothere from the email address if mailing direct)
 
J

Jason Morin

Sub DeleteRows()
Dim iLastRow As Long
Dim i As Long

Application.ScreenUpdating = False

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 1 Step -1
With Cells(i, "A")
If .Value <> "" And _
.Offset(0, 1).Value = 0 Then
.EntireRow.Delete
End If
End With
Next i

Application.ScreenUpdating = True

End Sub
 
R

rn

Thanks for your help.

-----Original Message-----
Sub DeleteRows()
Dim iLastRow As Long
Dim i As Long

Application.ScreenUpdating = False

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 1 Step -1
With Cells(i, "A")
If .Value <> "" And _
.Offset(0, 1).Value = 0 Then
.EntireRow.Delete
End If
End With
Next i

Application.ScreenUpdating = True

End Sub

---
HTH
Jason
Atlanta, GA

.
Click to expand...
 
R

rn

Thanks.

-----Original Message-----
Insert a row at the top, and then a spare column, add

=AND(A2<>"",B2=0)

Select this column and Menu Data>AuItofilter.
Click the dropdown and select TRUE from the list
Delete all visible rows, including row 1

All done


--

HTH

RP
(remove nothere from the email address if mailing direct)





.
Click to expand...
 
Top