| Home |
| Search |
| Today's Posts |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
delete rows if data is either
That worked. Thanks so much.
"Dave Peterson" wrote: I bet the cells that contain "redi avg" contain more than those characters--maybe extra spaces??? If that's true, maybe you could eliminate those spaces with: If trim(.Cells(i, 7).value) = "adj" _ Or trim(.Cells(i, 7).value) = "redi avg" Then Or you maybe your string is in upper case??? If lcase(trim(.Cells(i, 7).value)) = lcase("adj") _ Or lcase(trim(.Cells(i, 7).value)) = lcase("redi avg") Then aileen wrote: I'm trying to delete rows based on whether the data in column G is "adj" or "redi avg". I am using the following code, but it is only deleting the rows with "adj" in the cell: Dim lr As Long, i As Long lr = ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row For i = lr To 1 Step -1 With ActiveSheet If .Cells(i, 7) = "adj" Or .Cells(i, 7) = "redi avg" Then .Cells(i, 1).EntireRow.Delete End If End With Next Please let me know how to get the rows with "redi avg" to delete also. Thanks! -- Dave Peterson |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| automate delete rows without data | Excel Worksheet Functions | |||
| Delete rows with data | Excel Programming | |||
| How do I delete all rows that contain no red highlighted data? | Excel Discussion (Misc queries) | |||
| Delete rows with no data | Setting up and Configuration of Excel | |||
| Delete certain rows of data... | Excel Programming | |||
Threaded Mode
