Row Deletion

D

Dan

I am trying to create a macro that looks at all the data
from row 26 down and using data in column D if it does not
equal DR* or DB* delete the row.

End result all rows below 26 are deleted leaving DR* and
DB*.
 
P

...Patrick

it is possible with a automatic filter !!!
filter with db*



--
....Patrick
Quoi que vous fassiez, faites le bien .
Mail: http://cerbermail.com/?KPW0tTCjFw
Connectez vous sur ce forum par :
news://msnews.microsoft.com/microsoft.public.fr.excel
 
D

Don Guillett

something like this from the bottom up. I did not test but you get the idea
for i = cells(rows.count,"d").end(xlup).row to 26 step -1
if cells(i,"d")<> "DR*" and cells(i,"d")<>"DB*" then
cells(i,"d").entirerow.delete
next
 
Top