| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete based on results of formula
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Delete based on results of formula
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 . |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| hyperlink to cell based on formula results | Excel Discussion (Misc queries) | |||
| Countif if counted results are based on formula | Excel Worksheet Functions | |||
| Delete Formula Based on Multiple Columns | Excel Discussion (Misc queries) | |||
| Assigning a Value based on Results | Excel Worksheet Functions | |||
| How do I delete the formula but keep the results | Excel Worksheet Functions | |||
![Steve R[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
