Delete based on results of formula

  • Thread starter Thread starter Steve R
  • Start date Start date
S

Steve R

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
 
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
 
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




.
Click to expand...
 
Back
Top