Macro help
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 |
Macro help
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 |
Macro help
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 |
Macro help
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 |
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 |
Macro help
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 |
All times are GMT +1. The time now is 05:28 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com