Filtering on multiple criteria not working

[Neild137]

I have the following code, which I would like to expand. I would like the data to be filtered down to anything that starts with the letter F in column 113 and certain things that start with the letter V. I would like to expand upon this, to include a list of about 23 allowable criteria that start with V, but I am already running into roadblocks.

Any clue how to solve this?

Sub filter2()
    
    
    Dim Lastrow As Long
    Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
  
  With ActiveSheet.Range("A1:EN" & Lastrow)
    If ActiveSheet.FilterMode Then .AutoFilter
    .AutoFilter Field:=113, Criteria1:=Array("F***"), Operator:=xlOr, Criteria2:=Array("VMMA", "VMMB", "VMMC, "VMME")

  End With
End Sub

 

[Fluff]

When using wildcards you can only have 2 values for the autofilter.
One option is this

Sub filter2()
    
    
    Dim UsdRws As Long
    Dim Fltr As Variant
    Dim Val As Variant
    Dim Cl As Range
    Dim Dict As Object
    
    UsdRws = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    Set Dict = CreateObject("scripting.dictionary")
    Fltr = Array([COLOR=#0000ff]"F*", "ARX", "ADSL", "TSC2"[/COLOR])
  
    With ActiveSheet
        .FilterMode = False
        For Each Val In Fltr
            For Each Cl In .Range("[COLOR=#0000ff]E2:E"[/COLOR] & UsdRws)
                If Cl.Value Like Val Then Dict(Cl.Value) = vbNullString
            Next Cl
        Next Val
    .Range("A1:EN" & UsdRws).AutoFilter field:=[COLOR=#0000ff]5[/COLOR], Criteria1:=Dict.keys, Operator:=xlFilterValues
  End With
End Sub

Change the values in blue to match your needs

 

[Fluff]

Slight rethink on this, are most of your criteria hard values (ie no wildcards)?

 

[RoryA]

Please take a minute to read the forum rules, especially relating to cross-posting, and then comply with them. Thank you.

An advanced filter would probably be easier for this.