Delete all line that are not ".XX"

[Jeeremy7]

Hello Everyone,

I'm having trouble with a macro i'm trying to create.
Somoene already helped me here with a macro I was trying to do which was deleting all line that are not ending with .02. I modified it to add the .12 and .22 condition.
Now I would like the macro to delete everything that is not .XX (by .XX i mean anything)
Is that possible or I would need to enumerate every .XX there is in my sheet (There's quite a lot)

Thanks a lot !

Here's the original macro if it's easier for you to work with

Dim lr As Long

Dim r As Long

Dim Rng As Range



Application.EnableEvents = False

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

' Find last row with data in column A

lr = Cells(Rows.Count, "A").End(xlUp).Row

' Loop through all rows backwards and delete ones not meeting conditions

For r = lr To 1 Step -1

If Right(Cells(r, "A"), 3) <> ".02" And Right(Cells(r, "A"), 3) <> ".12" And Right(Cells(r, "A"), 3) <> ".22" Then

If Rng Is Nothing Then Set Rng = Rows(r) Else Set Rng = Union(Rng, Rows(r))

End If

Next r

If Not Rng Is Nothing Then Rng.Delete



Application.Calculation = xlCalculationAutomatic

Application.ScreenUpdating = True

Application.EnableEvents = True

 

[mikerickson]

Instead of a lot of = or <> you could use the test

aString Like "*.??"

Which will test if aString ends in a dot followed by any two characters.

 

[Jeeremy7]

So would it be
If Right(Cells(r, "A"), 3) aString Like "*.??" Then

 

[mikerickson]

I would be

If Cells(r, "A") like "*.??" Then

 

[Jeeremy7]

It deleted every .XX I had but not the rest

 

[mikerickson]

Isn't that what you wanted?

 

[Jeeremy7]

No hehe I wanted to delete everything but the .XX

Sorry i'm still practicing my english might have phrased wrong

 

[mikerickson]

Then you could use

If Not (Cells(r, "A") like "*.??") Then

 

[Jeeremy7]

IT WORKED

Thanks a lot :D

 

[mikerickson]

I'm glad it worked for you.