How to add the ability to filter the column with several words to the following code?

[shafiey]

Criteria1 (cell D1) has multiple words separated by commas and I want the column in the "Projects" sheet to be filtered by these words.
How to add the ability to filter the column with several words to the following code?
Data sheet is in "Projects" sheet and in table= "projectstbl" and Data column= AC column, Field= 29, Header=1st row, Table Range= A2:AQ2100
Criteria is in "keywords analysis" sheet, D1 cell.
Thank you.

VBA code:

Sub Filtering_AC_v2()
  
  Dim namebakhsh As String
  
  namebakhsh = Worksheets("Keywords Analysis").Range("D1").Value
  Application.Calculation = xlCalculationManual
  With Worksheets("Projects")
    .AutoFilterMode = False
    .Range("A1:AQ" & .Cells(.Rows.Count, "AC").End(xlUp).Row).AutoFilter Field:=29, Criteria1:=namebakhsh
  End With
  Application.Calculation = xlCalculationAutomatic
End Sub

 

[John_w]

        .Range("A1:AQ" & .Cells(.Rows.Count, "AC").End(xlUp).Row).AutoFilter Field:=29, Criteria1:=Split(namebakhsh, ","), Operator:=xlFilterValues

 

[shafiey]

        .Range("A1:AQ" & .Cells(.Rows.Count, "AC").End(xlUp).Row).AutoFilter Field:=29, Criteria1:=Split(namebakhsh, ","), Operator:=xlFilterValues

Thank you very very much

 

[Wookiee]

Not to gainsay what John W offered, but I noticed you said it was in a table (and also, I dummied up a workbook to try and solve this, so I'm going to post my message anyways in hopes that it helps).

Here's my suggestion:

Sub MultiFilter()
'Crafted by Wookiee at MrExcel.com


Dim wkbMe As Workbook
Dim objTable As Object

Set wkbMe = ThisWorkbook
Dim rngFilter As Range

Set rngFilter = wkbMe.Sheets("Keyword Analysis").Range("D21")
Set objTable = wkbMe.Sheets("Projects").ListObjects("projectstbl")

Dim vArray As Variant

vArray = VBA.Split(rngFilter.Formula, ",")

With objTable.Range

.AutoFilter _
    Field:=29, _
    Criteria1:=Array(vArray), _
    Operator:=xlFilterValues
End With

End Sub

 

[shafiey]

Not to gainsay what John W offered, but I noticed you said it was in a table (and also, I dummied up a workbook to try and solve this, so I'm going to post my message anyways in hopes that it helps).

Here's my suggestion:

Sub MultiFilter()
'Crafted by Wookiee at MrExcel.com


Dim wkbMe As Workbook
Dim objTable As Object

Set wkbMe = ThisWorkbook
Dim rngFilter As Range

Set rngFilter = wkbMe.Sheets("Keyword Analysis").Range("D21")
Set objTable = wkbMe.Sheets("Projects").ListObjects("projectstbl")

Dim vArray As Variant

vArray = VBA.Split(rngFilter.Formula, ",")

With objTable.Range

.AutoFilter _
    Field:=29, _
    Criteria1:=Array(vArray), _
    Operator:=xlFilterValues
End With

End Sub

This code also worked well, thank you very much.

 

[shafiey]

Not to gainsay what John W offered, but I noticed you said it was in a table (and also, I dummied up a workbook to try and solve this, so I'm going to post my message anyways in hopes that it helps).

Here's my suggestion:

Sub MultiFilter()
'Crafted by Wookiee at MrExcel.com


Dim wkbMe As Workbook
Dim objTable As Object

Set wkbMe = ThisWorkbook
Dim rngFilter As Range

Set rngFilter = wkbMe.Sheets("Keyword Analysis").Range("D21")
Set objTable = wkbMe.Sheets("Projects").ListObjects("projectstbl")

Dim vArray As Variant

vArray = VBA.Split(rngFilter.Formula, ",")

With objTable.Range

.AutoFilter _
    Field:=29, _
    Criteria1:=Array(vArray), _
    Operator:=xlFilterValues
End With

End Sub

Thank you for your effort,
If I want to use the greater than, smaller and equal sign in this code, how should I write it?
Similar to this code:

Criteria1:=">=" & Array(vArray), _

V‌BA code:

Sub Filter_saleshoroo()
     'Crafted by Wookiee at MrExcel.com


Dim wkbMe As Workbook
Dim objTable As Object

Set wkbMe = ThisWorkbook
Dim rngFilter As Range

Set rngFilter = wkbMe.Sheets("Keywords Analysis").Range("H1")
Set objTable = wkbMe.Sheets("Projects").ListObjects("projectstbl")

Dim vArray As Variant

vArray = VBA.Split(rngFilter.Formula, ", ")

With objTable.Range

.AutoFilter _
    Field:=32, _
    Criteria1:=Array(vArray), _
    Operator:=xlFilterValues
End With
End Sub

 

[shafiey]

        .Range("A1:AQ" & .Cells(.Rows.Count, "AC").End(xlUp).Row).AutoFilter Field:=29, Criteria1:=Split(namebakhsh, ","), Operator:=xlFilterValues

I think the Wookiee are sleeping.
Please, if possible, guide me in the problem of post #6.
sincerely

 

[shafiey]

Thank you for your effort,
If I want to use the greater than, smaller and equal sign in this code, how should I write it?
Similar to this code:


V‌BA code:

Sub Filter_saleshoroo()
     'Crafted by Wookiee at MrExcel.com


Dim wkbMe As Workbook
Dim objTable As Object

Set wkbMe = ThisWorkbook
Dim rngFilter As Range

Set rngFilter = wkbMe.Sheets("Keywords Analysis").Range("H1")
Set objTable = wkbMe.Sheets("Projects").ListObjects("projectstbl")

Dim vArray As Variant

vArray = VBA.Split(rngFilter.Formula, ", ")

With objTable.Range

.AutoFilter _
    Field:=32, _
    Criteria1:=Array(vArray), _
    Operator:=xlFilterValues
End With
End Sub

Hi, Please, if possible, guide me in the problem of post #6.
sincerely

 

[Wookiee]

I think the Wookiee are sleeping.
Please, if possible, guide me in the problem of post #6.
sincerely

Wookiee participates in this forum on his own free time and at his leisure.

Your question as you asked it was answered. You have an entirely different question now, so I encourage you to post it as such.