delete row is if a cell value is higher than...

B

barkiny

A column

50
800
Ron
Dave
0
400

i want to delete the entire row if a cell > 300

thanks in advance
 
P

Paul B

Barkiny, you could use autofilter and filter using custom >300 then delete
the rows, or you could use a macro like this

Sub Deleterows()
'will delete rows where column A >300
Dim lastrow As Long, r As Long
Application.ScreenUpdating = False
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For r = lastrow To 2 Step -1
If Cells(r, "A") > 300 Then
Rows(r).EntireRow.Delete
End If
Next r
Application.ScreenUpdating = True
End Sub

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003
 
Top