Can anyone help me write a macro that deletes the entire row if the cell
in the corresponding row in column AL = "0" ?

Thanks

Phil


--
phil2006
------------------------------------------------------------------------
phil2006's Profile: http://www.excelforum.com/member.php...o&userid=35092
View this thread: http://www.excelforum.com/showthread...hreadid=566272

try

for i =cells(rows.count,"al").end(xlup).row to 2 step -1
if cells(i,"al")=0 then rows(i).delete
next i

--
Don Guillett
SalesAid Software

"phil2006" wrote in
message ...

Can anyone help me write a macro that deletes the entire row if the cell
in the corresponding row in column AL = "0" ?

Thanks

Phil


--
phil2006
------------------------------------------------------------------------
phil2006's Profile:
http://www.excelforum.com/member.php...o&userid=35092
View this thread: http://www.excelforum.com/showthread...hreadid=566272

Sub DeleteRows_With_Zero()
findstring = "0"
Set B = Columns(38).Find(What:=findstring, LookAt:=xlPart)
While Not (B Is Nothing)
B.EntireRow.Delete
Set B = Columns(38).Find(What:=findstring, LookAt:=xlPart)
Wend
End Sub


Gord Dibben MS Excel MVP

On Sat, 29 Jul 2006 09:16:35 -0400, phil2006
wrote:


Can anyone help me write a macro that deletes the entire row if the cell
in the corresponding row in column AL = "0" ?

Thanks

Phil

Thanks! This isn't working entirely tho. I want the row deleted if the
cell has the value "0". Alternatively if I could Fill the whole row
with a colour it would be equally as effective and possibly more
useful.

Thanks



Phil


--
phil2006
------------------------------------------------------------------------
phil2006's Profile: http://www.excelforum.com/member.php...o&userid=35092
View this thread: http://www.excelforum.com/showthread...hreadid=566272

I think xlPart should be replaced with xlWhole.

707 should be kept
0 should be deleted.



Gord Dibben wrote:

Sub DeleteRows_With_Zero()
findstring = "0"
Set B = Columns(38).Find(What:=findstring, LookAt:=xlPart)
While Not (B Is Nothing)
B.EntireRow.Delete
Set B = Columns(38).Find(What:=findstring, LookAt:=xlPart)
Wend
End Sub

Gord Dibben MS Excel MVP

On Sat, 29 Jul 2006 09:16:35 -0400, phil2006
wrote:


Can anyone help me write a macro that deletes the entire row if the cell
in the corresponding row in column AL = "0" ?

Thanks

Phil

--

Dave Peterson

Thanks Dave.

This is the second time I have posted this code without making the correction.

Will make the change and re-archive.


Gord

On Sat, 29 Jul 2006 11:07:10 -0500, Dave Peterson
wrote:

I think xlPart should be replaced with xlWhole.

707 should be kept
0 should be deleted.



Gord Dibben wrote:

Sub DeleteRows_With_Zero()
findstring = "0"
Set B = Columns(38).Find(What:=findstring, LookAt:=xlPart)
While Not (B Is Nothing)
B.EntireRow.Delete
Set B = Columns(38).Find(What:=findstring, LookAt:=xlPart)
Wend
End Sub

Gord Dibben MS Excel MVP

On Sat, 29 Jul 2006 09:16:35 -0400, phil2006
wrote:


Can anyone help me write a macro that deletes the entire row if the cell
in the corresponding row in column AL = "0" ?

Thanks

Phil

Gord Dibben MS Excel MVP

Thanks very much for your help!


--
phil2006
------------------------------------------------------------------------
phil2006's Profile: http://www.excelforum.com/member.php...o&userid=35092
View this thread: http://www.excelforum.com/showthread...hreadid=566272