Have a dynamic criteria array in VBA

[DRG1978]

Hi All,

How should the criteria look for an array that filters all "AMAT2"

See current criteria array with specific AMAT2's:

ActiveSheet.Range("$A$1:$E$1695").AutoFilter Field:=3, Criteria1:=Array( _
"AMAT2-01A", "AMAT2-01B", "AMAT2-01C", "AMAT2-01D", "AMAT2-02A", "AMAT2-02B", _
"AMAT2-02C", "AMAT2-02D", "AMAT2-03A", "AMAT2-03B", "AMAT2-03C", "AMAT2-03D", _
"AMAT2-04A", "AMAT2-04B", "AMAT2-04C", "AMAT2-04D", "AMAT2-05A", "AMAT2-05B", _
"AMAT2-05C", "AMAT2-05D", "AMAT2-06A", "AMAT2-06B", "AMAT2-06C", "AMAT2-06D"),


Thank you all!!

 

[JackDanIce]

Try:

ActiveSheet.cells(1,1).resize(1695,5).AutoFilter Field:=3, Criteria1:="AMAT2-*"

 

[Fluff]

Beaten 2 it

 

[DRG1978]

Thank you very much, JackDanIce!! Much appreciated!!

What would it be if you had two criteria like this:

ActiveSheet.Range("$A$1:$E$1695").AutoFilter Field:=3, Criteria1:=Array( _
"AMAT2-01A", "AMAT2-01B", "AMAT2-01C", "AMAT2-01D", "AMAT2-02A", "AMAT2-02B", _
"AMAT2-02C", "AMAT2-02D", "AMAT2-03A", "AMAT2-03B", "AMAT2-03C", "AMAT2-03D", _
"AMAT2-04A", "AMAT2-04B", "AMAT2-04C", "AMAT2-04D", "AMAT2-05A", "AMAT2-05B", _
"AMAT2-05C", "AMAT2-05D", "AMAT2-06A", "AMAT2-06B", "AMAT2-06C", "AMAT2-06D", _
"AMAT-PLT1", "AMAT-PLT2", "AMAT-PLT3", "AMAT-PLT4", "AMAT-PLT5", "AMAT-PLT6", _
"AMAT-PLT7", "AMAT-PLT8", "AMAT-PLT9")

 

[DRG1978]

so AMAT2 AND AMAT-PLT

 

[DRG1978]

Hi Fluff,

Do you know what if would be for two criteria? So AMAT2 and AMAT-PLT

See example:

What would it be if you had two criteria like this:

ActiveSheet.Range("$A$1:$E$1695").AutoFilter Field:=3, Criteria1:=Array( _
"AMAT2-01A", "AMAT2-01B", "AMAT2-01C", "AMAT2-01D", "AMAT2-02A", "AMAT2-02B", _
"AMAT2-02C", "AMAT2-02D", "AMAT2-03A", "AMAT2-03B", "AMAT2-03C", "AMAT2-03D", _
"AMAT2-04A", "AMAT2-04B", "AMAT2-04C", "AMAT2-04D", "AMAT2-05A", "AMAT2-05B", _
"AMAT2-05C", "AMAT2-05D", "AMAT2-06A", "AMAT2-06B", "AMAT2-06C", "AMAT2-06D", _
"AMAT-PLT1", "AMAT-PLT2", "AMAT-PLT3", "AMAT-PLT4", "AMAT-PLT5", "AMAT-PLT6", _
"AMAT-PLT7", "AMAT-PLT8", "AMAT-PLT9")

 

[JackDanIce]

Try:

ActiveSheet.Range("$A$1:$E$1695").AutoFilter Field:=3, Criteria1:=Array("AMAT2*","AMAT-PLT*")

 

[DRG1978]

Lovely!!!
Thank you very much,JackDanIce!!

Have a nice day!!

 

[JackDanIce]

Thanks, you're welcome!