Auto Filter Macro with Two Conditions then Delete Everything Except Condition

[cvici]

Hello everyone, I am wanting to add another condition to my Auto-Filter. Currently my filter is simply using one condition which is “SK Subtotal” then it deletes all other rows except the condition.

I am wanting to add another condition then proceed to delete all other rows that do not meet the conditions. When I try to add criteria2 it seems to not be coming back with my intended result.

In the attached document I provide a template and another sheet named completed. Completed is the final result that I am wanting the result to be.

Below is the current Macro that I am using, not sure if we could add on it or if there is better solution.

Please Login or Register  to view this content.

[Fluff13]

How about

Please Login or Register  to view this content.

[cvici]

Thank you so much..... I saw where I made my mistake. Thank you for your time

[Fluff13]

You're welcome & thanks for the feedback.

[cvici]

If I wanted to make one more addition or continue to make additions. Would I use the same rule such as

Please Login or Register  to view this content.

Just want to know for future reference?

[Fluff13]

Unfortunately not, unless you are doing an exact match you are limited to 2 criteria.

[cvici]

Okay, if I wanted to do 3 how might I construct that code. To keep the same method, meaning delete everything else but Filter "SK Subtotal", "Other Fee SubTotal", and "Transfer Fee".

[Fluff13]

A number of options.
1) Use an advanced filter instead.
2) put a formula in the 1st blank column that returns true or false depending on whether that row should be deleted & filter on that.
3) Use the code to delete 2 values & then repeat it to delete rows with the 3rd value

[Marc L]

According to the attachment - and post #7 - a VBA demonstration as a beginner starter
to paste to the Sheet1 (Example) worksheet module :

Sub Demo1() 
        Application.ScreenUpdating = False 
        If FilterMode Then ShowAllData 
    With [A1].CurrentRegion.Columns 
       .Cells(2, .Count + 1).Resize(.Rows.Count - 1).Formula = "=AND(RIGHT(H2,9)<>"" SubTotal"",H2<>""Transfer Fee"")" 
       .Resize(, .Count + 1).Sort .Cells(1, .Count + 1), xlAscending, Header:=xlYes 
        V = Application.Match(True, .Item(.Count + 1), 0) 
        If IsNumeric(V) Then .Rows(V & ":" & .Rows.Count).Clear 
       .Item(.Count + 1).Clear 
    End With 
        Application.ScreenUpdating = True 
End Sub  

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄