deleting rows in a non-continous range
Try this
For x = 2 To 100000
If Range("A" & x) = "" Then Exit For
If Range("A" & x) = 0 Then
Range("A" & x).Delete
x = x + 1
End If
Next x
--
"Tim McPhillips" wrote in message
...
I need help with the following problem. A worksheet with
a non-continous range has data that occassionally has zero
populated. I need code that will cycle through the entire
range, identify if any cells are zero, and delete those
rows. My code isn't working. This is what I came up with:
With Workbooks("test").Worksheets("MHE").range
("CHECKRANGE")
Set c = Workbooks("test").Worksheets("MHE").range
("CHECKRANGE") _
.Cells(1)
For xy = 1 To Workbooks("test").Worksheets("MHE") _
.range("CHECKRANGE").Count
If c.Value = 0 Then
Set deleteaddress = range(c.Address)
Set c = c.Next
deleteaddress.Select
selection.EntireRow.Delete
Else
Set c = c.Next
End If
Next xy
End With
Any help would be appreciated!
Thanks,
Tim
|