Excel VBA Filter More Than 2 Criteria

[ststern45]

Hi everyone,

Is there another option to adding a 3rd Criteria:

Sub AutoSortSetsR()

Dim AAMin As Long
Dim AAMax As Long


AAMin = Sheets("Sets").Range("H28").Value
AAMax = Sheets("Sets").Range("J28").Value


Sheets("1000Numbers").Select

Selection.AutoFilter Field:=18, Criteria1:="=" & AAMin, Operator:=xlOr, _
Criteria2:="=" & AAMax


Sheets("Sets").Select
Range("F19").Select


End Sub


Thanks in advance!!

 

[AlphaFrog]

If you have Excel 2007 or later, you can use an Array for the filter criteria.

Selection.AutoFilter Field:=18, Criteria1:=[B]Array(AAMin, AAMax, AAOther), Operator:=xlFilterValues[/B]

 

[RudiS]

Something like this should work...

Sub AutoSortSetsR()
Dim AAMin As Long
Dim AAMax As Long
Dim Filter3 As Long


    AAMin = Sheets("Sets").Range("H28").Value
    AAMax = Sheets("Sets").Range("J28").Value
    Filter3 = 100
    
    Sheets("1000Numbers").Select
    Selection.AutoFilter Field:=18, Criteria1:=Array(AAMin, AAMax, Filter3), Operator:=xlFilterValues


    Sheets("Sets").Select
    Range("F19").Select


End Sub

 

[Marcelo Branco]

I think is necessary to convert the values to strings, i.e., the criteria-array has to be an array of strings

Something like

Sheets("1000Numbers").Select
ActiveSheet.Range("A1").AutoFilter Field:=18, _
        Criteria1:=Array(CStr(AAMin), CStr(AAMax), CStr(AAOther)), Operator:=xlFilterValues

M.

 

[ststern45]

Thankyou everyone for all your help. Very much appreciated. Works great.