VBA Filter codes needs amendment to filter values which are seperated with a comma

[hrayani]

Hi,

I am using this VBA code to filter records.

Private Sub Worksheet_Change(ByVal Target As Range) 
 Application.ScreenUpdating = False
    
    With ActiveSheet.Range("D5:F1000")
    .AutoFilter
    .AutoFilter Field:=1, Criteria1:="*" & Range("D4") & "*", visibledropdown:=False
    .AutoFilter Field:=2, Criteria1:="*" & Range("E4") & "*", visibledropdown:=False
    .AutoFilter Field:=3, Criteria1:="*" & Range("F4") & "*", visibledropdown:=False
    End With
    
    Application.ScreenUpdating = True


End Sub

Here is what i require:

If I enter (Tony, Smith) in cell D4 then the code should filter both records for tony & smith.

As of now the code only allows me to enter a single criteria in cells D4:F4

I would want the code to allow me to enter multiple criteria entered with a comma sign.

Any help would be appreciated

Regards,

Humayun

 

[hrayani]

Hi Akuini

Around 5 years back you provided me the code & it is working just fine

Now I have started a thread coz I wanted a code similar to the one you provided but instead of filtering rows now I want to filter the columns
I was not sure whether to start a new thread or ask for the answer here on old thread

Hence, I started a new thread

Amend the VBA code to Filter Columns Instead of Rows

Hello Friends, Some years back a gentleman here provided me the below code which works perfectly for filtering the rows with one or more criteria in a cell with comma separated values & not only this but also works with multiple entries like values in different cells Can someone pls amend the...

www.mrexcel.com

It would be very helpful if you could have a look at it

Regards,

Humayun