create macro - if cell is 0 delete row

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

pywhacket - 15 Mar 2006 16:46 GMT

Is there a way to create a macro that will search a section of a worksheet
and delete rows that have a zero in the leading cell?

Thanks in advance!

Reply to this Message

Tom Ogilvy - 15 Mar 2006 16:55 GMT

Sub DeleteRowswithZeroInColumnA()
Dim lastrow as Long, i as Long
lastrow = cells(rows.count,1).End(xlup).Row
for i = lastrow to 2 step -1
if cells(i,1).Value = 0 then
rows(i).Delete
end if
Next
End Sub

Signature

Regards,
Tom Ogilvy

> Is there a way to create a macro that will search a section of a worksheet
> and delete rows that have a zero in the leading cell?
>
> Thanks in advance!

Reply to this Message