VBA Find and Delete Row question?

[stvnhdmpa]

I'm a newb to VBA and I am trying to find and delete all items in a sheet that equal zero.

For example: my sheet "FINAL_INVENTORY" has a column "K" with the number of items on hand. I want to search through the Range "K:K" and find any cell that has a value of 0 and delete the entire row. Once it reaches the end of cells with values, I want it to stop.

Any help would be greatly appreciated.

Regards!

 

[Marcelo Branco]

Hi,

Take a look at
http://www.rondebruin.nl/delete.htm

M.

 

[mirabeau]

Sub delrowswith0()
Dim x
On Error Resume Next
With Range("K:K")
    x = .Replace("0", "", xlWhole)
    .SpecialCells(4).EntireRow.Delete
End With
End Sub

 

[stvnhdmpa]

Thanks. I was able to get this working. Marcelo, that is a great reference. I have saved it to my favorites.