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!

spelling?
spaces?

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"aileen" <(E-Mail Removed)> wrote in message
news:A581EBBF-AAEB-44A4-A5B5-(E-Mail Removed)...
> 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!

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

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
>