delete rows with 0 values

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

how can i create a macro that select column O, delete every row that contains
empty cells, cells with 0 values, and non-numeric cells such as --------.
thanks
 
Sub test
dim rng as range

For each rng in Range("O2", Range("O2").End(xlDown))
If rng.value = "0" or rng.value= "---------"Then rng.clear
Next
columns("O:O").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End sub
Regards
Jean-Yves
 
Back
Top