vba multiple filter

[kelvin_9]

Hi All,

i am looking for a vba that could do below criteria at the same time, can some one point me out?

first:

Sub Macro3()
'
' Macro3 Macro
'

'
    Sheets("data").Select
    Rows("1:1").Select
    Selection.AutoFilter
    
    With Range("a1:ab1")
    .AutoFilter Field:=4, Criteria1:="*pickup*"
    .AutoFilter Field:=5, Criteria1:="xlFilterToday"
    
End With

and finally i would like to filter column Y base on sheet2 E49 and column AB base on sheet 2 E50

thank you very much for your help

 

[kevin9999]

Does this do what you want?

Option Explicit
Sub kelvin_9()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = Worksheets("data")
    Set ws2 = Worksheets("Sheet2")      '<-- *** change sheet name to suit ***
    
    If ws1.AutoFilterMode Then ws1.AutoFilter.ShowAllData
    With ws1.Range("A1").CurrentRegion
        .AutoFilter 4, "*pickup*"
        .AutoFilter 5, 1, 11
        .AutoFilter 25, ws2.Range("E49").Value
        .AutoFilter 28, ws2.Range("E50").Value
    End With
End Sub

 

[kelvin_9]

Does this do what you want?

Option Explicit
Sub kelvin_9()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = Worksheets("data")
    Set ws2 = Worksheets("Sheet2")      '<-- *** change sheet name to suit ***
   
    If ws1.AutoFilterMode Then ws1.AutoFilter.ShowAllData
    With ws1.Range("A1").CurrentRegion
        .AutoFilter 4, "*pickup*"
        .AutoFilter 5, 1, 11
        .AutoFilter 25, ws2.Range("E49").Value
        .AutoFilter 28, ws2.Range("E50").Value
    End With
End Sub

thank you very much for your reply, kevin9999

it filtered all the data but not the correct one

thank you very much

 

[kevin9999]

I can't tell from the image you posted which columns it didn't filter - the code you posted suggested the filters should be applied to columns 4, 5, 25 & 28 (D, E, Y & AB). Is that not correct?

 

[kelvin_9]

I can't tell from the image you posted which columns it didn't filter - the code you posted suggested the filters should be applied to columns 4, 5, 25 & 28 (D, E, Y & AB). Is that not correct?

thank you very much for your reply, kevin9999

i apologize for the replied and i finally did it
it is really fantasic

thank you very much for your guidance

 

[kevin9999]

thank you very much for your reply, kevin9999

i apologize for the replied and i finally did it
it is really fantasic

thank you very much for your guidance

Sounds like it worked out for you, which is great news, and thanks for the feedback

 

[kelvin_9]

Sounds like it worked out for you, which is great news, and thanks for the feedback

can this be only filled "pickup"?

thank you very much for your reply

 

[kevin9999]

Do you mean only filtered on column D as "PICKUP" and not "READY TO PICKUP"?
And do you want the filter applied to column D only, and not on any of the other columns previously mentioned in this thread?

 

[kevin9999]

If you mean ignore "READY TO PICKUP" in your filtering, then just remove the wildcards (asterisks **) from "*pickup*".
Like this:

Option Explicit
Sub kelvin_9()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = Worksheets("data")
    Set ws2 = Worksheets("Sheet2")      '<-- *** change sheet name to suit ***
    
    If ws1.AutoFilterMode Then ws1.AutoFilter.ShowAllData
    With ws1.Range("A1").CurrentRegion
        .AutoFilter 4, "pickup"
        .AutoFilter 5, 1, 11
        .AutoFilter 25, ws2.Range("E49").Value
        .AutoFilter 28, ws2.Range("E50").Value
    End With
End Sub