Delete rows that do not match criteria
 

This worked Great on the Sheet 1. When it comes to Sheet 2 and Sheet 3, I
believe it is looking for a number value, however because rows were deleted
on Sheet 1, I have errors on Sheet 2 and Sheet 3. How do I get it to delete
rows with errors also?

~Robert

"Bob Phillips" wrote:

For i = Cells(Rows.Count,"D").End(xlUp).Row To 2 Step -1
If Cells(i,"D").Value < Range("D2").Value Then
Rows(i).Delete
End If
Next i

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"rlee1999" wrote in message
...
I need to paste data into a template sheet. The data is never more than
2000
rows. If the data being pasted is only 1000 rows I need check the entire
2000
rows in Col D against the value in D2. If D? does not match D2 I need that
row to be deleted... Any suggestions?

Delete rows that do not match criteria
 

how 'bout if you started backwards & deleted from worksheet 3 to
worksheet1? then the value you needed would be deleted last.
just an idea.........
susan


rlee1999 wrote:
This worked Great on the Sheet 1. When it comes to Sheet 2 and Sheet 3, I
believe it is looking for a number value, however because rows were deleted
on Sheet 1, I have errors on Sheet 2 and Sheet 3. How do I get it to delete
rows with errors also?

~Robert

"Bob Phillips" wrote:

For i = Cells(Rows.Count,"D").End(xlUp).Row To 2 Step -1
If Cells(i,"D").Value < Range("D2").Value Then
Rows(i).Delete
End If
Next i

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"rlee1999" wrote in message
...
I need to paste data into a template sheet. The data is never more than
2000
rows. If the data being pasted is only 1000 rows I need check the entire
2000
rows in Col D against the value in D2. If D? does not match D2 I need that
row to be deleted... Any suggestions?