How to Delete row with criteria ?
Sub DeleteRows_With_Zero()
findstring = "0"
Set B = Range("A:A").Find(What:=findstring, LookAt:=xlPart)
While Not (B Is Nothing)
B.EntireRow.Delete
Set B = Range("A:A").Find(What:=findstring, LookAt:=xlPart)
Wend
End Sub
Gord Dibben MS Excel MVP
On Wed, 19 Jul 2006 12:27:58 -0400, vumian
wrote:
I wanna delete the rows that contain zero value .
thanks for ur help
|