close
For a Macro novice...
Is there an easy macro that deletes rows when a particular cell has the
value 0 (zero)?
Thank you
try
Sub deletezerorows()
Application.DisplayAlerts = False
On Error Resume Next
vlr = Cells(Rows.Count, quot;dquot;).End(xlUp).Row
With Range(Cells(2, quot;Dquot;), Cells(vlr, quot;Dquot;))
.AutoFilter Field:=1, Criteria1:=quot;0quot;
..SpecialCells(xlCellTypeVisible).Delete
.AutoFilter
End With
Application.DisplayAlerts = False
End Sub
--
Don Guillett
SalesAid Software
quot;fak119quot; gt; wrote in message
...
gt; For a Macro novice...
gt;
gt; Is there an easy macro that deletes rows when a particular cell has the
gt; value 0 (zero)?
gt;
gt; Thank you
全站熱搜
留言列表
