Macro help
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
|