Deleting rows containing the Auto Filter

[Mizzness]

Hello All.

I want to delete all rows that contain 8 digits/numerics (i.e.: 45876523) in column "A".

Here is my code with my criteria denoted by the ??? marks.

Thanks in advance.
Mizzness

With Sheets("PV&quot.Columns("A:A&quot.Rows("3:3000&quot
.AutoFilter Field:=1, Criteria1:="=*????*"
.EntireRow.Delete Shift:=xlUp
End With

 

[SkipVought]

Hi,

Make another column

=LEN(A2)

the length of value in col A

Then filter on the length.



Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[Mizzness]

Skip,

Thanks for the quick reply.
Let me clarify though, I want the macro to delete all rows with an eight digit number in column "A".
Can this be done in the same context as if I'm trying to delete rows that contain a certain keyword ?

Thanks.
Mizzness

 

[SkipVought]

    ActiveSheet.Cells(1, 1).AutoFilter
    With ActiveSheet.Columns("A:A").Rows("2:5")
        .AutoFilter Field:=4, Criteria1:="8"
        .EntireRow.Delete Shift:=xlUp
    End With

where COL 4 is the LEN of col A (I had 5 rows)

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[TonyJollans]

Hi Mizzness,

You can filter on a range, so try ...

.AutoFilter Field:=1, Criteria1:=&quot;>=10000000&quot;, Operator:=xlAnd, Criteria2:=&quot;<=99999999&quot;

Enjoy,
Tony

 

[Mizzness]

Tony,

Sorry for getting back to you so late.
This is definitely along theline of what I am trying to do.
However, it's still not working.
I've pasted the code if you could give it a look.
In the meantime, the testing continues.

Regards,
Mizzness

With Sheets("PV&quot.Columns("A:A&quot.Rows("3:3000&quot
.AutoFilter Field:=1, Criteria1:=">=10000000",
Operator:=xlAnd, Criteria2:=<&quot;=999999999&quot;
.EntireRow.Delete Shift:=xlDown
End With

 

[Mizzness]

Tony,

Disregard prior message; problem solved.

Thanks.
Mizzness