Filter with more than one criteria.. Begins With and equals too

[ronanbaker1]

Hi,

I need a macro that will filter all properties starting with SA.
I also need to someway link in specific properties to the filter. Ie BTA, DSA, etc there are many....

Thanks

Ronan

 

[Peter_SSs]

Hi Peter,

Although I thought it would be the same if I changed some data it it not. Sorry to be bothering you about this but could you make this work?
Dim aVals
Const sVals As String = "=SA*,=PRIAC*,=BAT,=COMFUT,=DCP,=GICFUND,=GISACOMM," _
& "=GPSA, =GMSA, =GRPAN, =HICKORY, =IADEF, =IAPAY," _
& "=PARCC, =PARCCORP, =PARTCORP, =PARTCUST, =PARU, =PARUNJTR1, =PLAZTR1, =PLAZTR2, =PLNJMM, =PLNJTR1, =PLNJTR2, =PLUSUSD, =PPBO, =PRIVEST, =PRIVESTPLUS, =SEA, =SEASIADCP2, =UPARCC," _
& "=UPLAZTR1, =UPLAZTR2"

aVals = Split(sVals, ",")
Columns("R").Insert
Range("R1").Value = Range("A1").Value
With Range("R2").Resize(UBound(aVals) + 1)
.NumberFormat = "@"
.Value = WorksheetFunction.Transpose(aVals)
End With
Range("A1:Q5000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("R1").Resize(UBound(aVals) + 2), Unique:=False
Columns("R").Delete



What is happening is that it is filtering some values but not all of them? And my spelling is correct.

When posting code, please use Code tags - see my signature block for how to do it. Reading/debugging unindented code is much harder.

It looks to me that in the red part you've started inserting spaces after the commas.