Advance Filtering in VBA with multiple wildcard criterias

[Tacty]

Hello everyone. working on a sheet that i would like to use some advance autofilters on with multiple wild cards.
basically when I click the program button it will filter out with wild cards on a specific column.

would like it to filter for

*Honda-CFW-6
*Honda-CFW-8
*Honda-CFW-3
*Honda-CFW-2
*Honda-CFW-1

though they will have more information following after, I would just like to filter for anything "containing" those following texts, even though they will have more information after it. Such as Honda-CFW-6122-555.

i have included a sample workbook, if anyone could show me how to get this started i would be greatful.

 

[Tacty]

k I made an example sheet closer to my data Dante.

Sorry, should of done this from the begginning.

Sheet

Your code that i'm using with some modifications

Sub CommandButton1_Click()
  Dim a As Variant, b As Variant, arr() As Variant
  Dim i As Long, j As Long, k As Long, lr As Long
 
  If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
  lr = Range("G" & Rows.Count).End(3).Row
  Range("A3:Z" & lr).Sort Range("A4"), xlAscending, Header:=xlYes
  a = Range("A4:L" & lr).Value
  b = Range("AO3", Range("AO" & Rows.Count).End(3)).Value
 
  For i = 1 To UBound(a, 1)
    For j = 1 To UBound(b, 1)
      If a(i, 10) Like b(j, 1) & "*" Then
        k = k + 1
        ReDim Preserve arr(1 To k)
        arr(k) = a(i, 10)
      End If
    Next
  Next
  If k > 0 Then Range("A3:Z" & lr).AutoFilter 10, Array(arr), xlFilterValues
End Sub

Sample Excel.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK	AL	AM	AN	AO
3	Column1	Column2	Column3	Column4	Column5	Column6	Column7	Column8	Column9	Column10	Column11	Column12	Column13	Column14	Column15	Column16	Column17	Column18	Column19	Column20	Column21	Column22	Column23	Column24	Column25	Column26															Column7
4							Honda-CFW-344-115																																		Honda-CFW-3
5							Honda-CFW-344-117																																		Honda-CFW-8
6							Honda-CFW-344-118																																		Honda-CFW-1
7							Honda-CFW-344-125
8							Honda-CFW-346-119
9							Honda-CFW-346-120
10							Honda-CFW-446-121
11							Honda-CFW-446-122
12							Honda-CFW-444-123
13							Honda-CFW-444-124
14							Honda-CFW-347-126
15							Honda-CFW-347-127
16							Honda-CFW-348-131
17							Honda-CFW-547-128
18							Honda-CFW-548-129
19							Honda-CFW-548-130
20							Honda-CFW-348-132
21							Honda-CFW-349-135
22							Honda-CFW-354-116
23							Honda-CFW-362-138
24							Honda-CFW-362-144
25							Honda-CFW-362-147
26							Honda-CFW-362-148
27							Honda-CFW-362-153
28							Honda-CFW-362-154
29							Honda-CFW-362-158
30							Honda-CFW-382-152
31							Honda-CFW-648-133
32							Honda-CFW-649-134
33							Honda-CFW-649-136
34							Honda-CFW-962-145
35							Honda-CFW-962-146
36							Honda-CFW-662-137
37							Honda-CFW-861-139
38							Honda-CFW-262-149
39							Honda-CFW-262-150
40							Honda-CFW-281-151
41							Honda-CFW-862-142
42							Honda-CFW-862-143
43							Honda-CFW-864-140
44							Honda-CFW-162-155
45							Honda-CFW-179-156
46							Honda-CFW-177-157
47							Honda-CFW-867-141
Sheet1

 

[DanteAmor]

So, is it working now?

 

[Tacty]

So, is it working now?

Hey Dante, Unfortunately no.

In my last messg I included a mini sheet closer to my actual document. take a look at it and see if you can modify/change the code.

 

[DanteAmor]

Sorry, should of done this from the begginning.

That's right, that's what you should do, since macros, particularly this macro, are not that dynamic and you have to tell exactly where the data is.

This is the updated macro with your model from post #11

Sub CommandButton1_Click()
  Dim a As Variant, b As Variant, arr() As Variant
  Dim i As Long, j As Long, k As Long, lr As Long
  
  If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
  lr = Range("G" & Rows.Count).End(3).Row
  Range("A3:Z" & lr).Sort Range("G4"), xlAscending, Header:=xlYes
  a = Range("A4:Z" & lr).Value
  b = Range("AO4", Range("AO" & Rows.Count).End(3)).Value
  
  For i = 1 To UBound(a, 1)
    For j = 1 To UBound(b, 1)
      If a(i, 7) Like b(j, 1) & "*" Then
        k = k + 1
        ReDim Preserve arr(1 To k)
        arr(k) = a(i, 7)
      End If
    Next
  Next
  If k > 0 Then Range("A3:Z" & lr).AutoFilter 7, Array(arr), xlFilterValues
End Sub