delete rows if data is either

[aileen]

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!

 

[Don Guillett]

spelling?
spaces?

 

[Dave Peterson]

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]

That worked. Thanks so much.

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