Filtering and declaration

[Raj999]

Hi All,

I have declared the below

Dim Fltr As String
Dim Component As Integer


Fltr1 = "USA"
Fltr2 = "Ireland"
Fltr3 = "Australia"



and I am trying to loop in by using the above for the filter shown below.



Selection.AutoFilter
ActiveSheet.Range("$A:$U").AutoFilter Field:=2, Criteria1:= _
Fltr & Component


Have I declared string correctly and declared the Values for Fltr1,2 and 3 correctly? is the above Fltr & Component is correct . The macro is not filtering and resulting in blank. Please Help...!!!

 

[Joe4]

In the code you posted, you declared the variables Fltr and Component, but you have not set them equal to another before trying to use them in your filter. In any event, I think I see what you are trying to do, and don't think you can create enumerated variables on the fly like that. Better to use arrays, i.e.

    Dim Fltr As Variant
    Dim Component As Integer
    
    Fltr = Array("USA", "Ireland", "Australia")
    
    For Component = LBound(Fltr) To UBound(Fltr)

        Selection.AutoFilter
        ActiveSheet.Range("$A:$U").AutoFilter Field:=2, Criteria1:=Fltr(Component)

    Next Component

 

[Raj999]

Thanks a ton Joe. It works perfectly...