Deletion of rows where a value is satisfied

[Larry Wallis]

I have a spreadsheet with 3 colums. Columns are headed Part Number,
Description and Qty.

What I would like to do is delete all rows where the qty value is zero.

I can't do this using auto filter as I have some small sub headings within
the list and want them to stay visible.

Any ideas please?

Many thanks.

Larry.

[Jason Morin]

One way. Press ALT+F11, go to Insert > Module, and paste
in the code below. Press ALT+Q and run the macro from
Tools > Macro. The code below evaluates col. A:

Sub DeleteRow()
'Adapted from Microsoft code found at
'msdn.microsoft.com
Dim sFind As Long
Dim Rng As Range
Dim sFindRow As Long
sFind = 0
Set Rng = Range("A:A").Find(What:=sFind, lookat:=xlWhole)
While Not Rng Is Nothing
sFindRow = Rng.Row
Rng.EntireRow.Delete
Set Rng = Range("A" & sFindRow - 1 & ":A" & _
Rows.Count) _
.Find(What:=sFind, lookat:=xlWhole)
Wend
End Sub

---
Note that this works on 0 values, not formulas returning
the value 0.

HTH
Jason
Atlanta, GA

>-----Original Message-----
>I have a spreadsheet with 3 colums. Columns are headed
Part Number,
>Description and Qty.
>
>What I would like to do is delete all rows where the qty
value is zero.
>
>I can't do this using auto filter as I have some small
sub headings within
>the list and want them to stay visible.
>
>Any ideas please?
>
>Many thanks.
>
>Larry.
>.
>