Help writing simple code

[thewiseguy]

Hi everyone,

Trying to write a simple code. Here is what I am trying to do:

In sheet "DETAIL1" from cell B4 to B316, wherever the value is "0," clear the contents of the entire row (but not column A).

Hope that is clear and any help is greatly appreciated!


-twg

 

[thewiseguy]

....

 

[Peter_SSs]

Hi everyone,

Trying to write a simple code. Here is what I am trying to do:

In sheet "DETAIL1" from cell B4 to B316, wherever the value is "0," clear the contents of the entire row (but not column A).

Hope that is clear and any help is greatly appreciated!


-twg

Try this. I'm assuming there is something in B3.

<font face=Courier New><br><br><SPAN style="color:#00007F">Sub</SPAN> ClearZeroRows()<br>    Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br>    <SPAN style="color:#00007F">With</SPAN> Sheets("DETAIL1").Range("B3:B316").Resize(, Columns.Count - 1)<br>        .AutoFilter Field:=1, Criteria1:="=0"<br>        <SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">Resume</SPAN> <SPAN style="color:#00007F">Next</SPAN><br>            .Offset(1).Resize(313).SpecialCells(xlCellTypeVisible).ClearContents<br>        <SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> 0<br>        .AutoFilter<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[thewiseguy]

Try this. I'm assuming there is something in B3.

<font face=Courier New><br><br><SPAN style="color:#00007F">Sub</SPAN> ClearZeroRows()<br>****Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br>****<SPAN style="color:#00007F">With</SPAN> Sheets("DETAIL1").Range("B3:B316").Resize(, Columns.Count - 1)<br>********.AutoFilter Field:=1, Criteria1:="=0"<br>********<SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">Resume</SPAN> <SPAN style="color:#00007F">Next</SPAN><br>************.Offset(1).Resize(313).SpecialCells(xlCellTypeVisible).ClearContents<br>********<SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> 0<br>********.AutoFilter<br>****<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>****Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

that worked perfectly peter...thank you.