Delete based on results of formula
Perfect. Thank you.
-----Original Message-----
Range("a1").Select
While ActiveCell < ""
If ActiveCell + ActiveCell.Offset(0,1) < 1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Wend
--
Regards,
Tom Ogilvy
"Steve R" wrote in
message
...
In the code below, I am able to delete rows that have a
value of less than one. What I really want to do is to
delete rows where (A1 + B1)<1, (A2 + B2)<1, and so on.
How do I write a simple formula like the above that is
similar to the below? Thanks in advance.
Range("a1").Select
While ActiveCell < ""
If ActiveCell < 1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Wend
.
|