VBA code to Filter by Begins with xx and 1

[NZAS]

I have a VBA code that does some filtering but would like to change it so it filters by using the begins with "MF" and also there is 1 in some of the rows.
Original code is below was create by some one else and I would like to change the criteria 1 and 2 to be a single criteria that would be begins with "MF" and also a criteria "1"
where the "1" in the data is a line break to show different days of week. The final out put should on display the rows where the "1" is as well as any rows That begins with "MF" from the wharf/ destination column which is field14

Original VBA that needs to be changed

With Sheets("Dispatch Sheet")
Range("A2:P2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$P$77").AutoFilter Field:=14, Criteria1:="=MFINGOT", _
Operator:=xlOr, Criteria2:="=MFBILLET"

Below is the data

Cheers
NZAS

 

[vcoolio]

Hello NZAS,

See if the following works for you:-

Sub Test()

        With Sheets("Dispatch Sheet").Range("A2:P2")
               .AutoFilter 14, "*" & "MF" & "*", xlOr, 1
        End With

End Sub

I hope that this helps.

Cheerio,
vcoolio.

 

[Fluff]

How about

Sub NZAS()
   With Sheets("Dispatch Sheet")
      .Range("A1:P" & .Range("A" & Rows.Count).End(xlUp).Row).AutoFilter 14, "MF*", xlOr, "1"
   End With
End Sub