How to loop over all indice in a filtered column

[Zyeuxrouge]

Hello,

I want to loop over all indices in a filtered column & do something for each indice each time, how can i do that please ?

Thank you in advance

 

[Tetra201]

Maybe

Sub Example()
    Dim c As Range
    For Each c In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
        If c <> "" Then 'do something
    Next c
End Sub

 

[Zyeuxrouge]

Maybe

Sub Example()
    Dim c As Range
    For Each c In Range("A2:A22").SpecialCells(xlCellTypeVisible)
        If c <> "" Then 'do something
    Next c
End Sub

Thank you for your answer, sorry i missed to say that i want to loop over the criteria*, as i searched i guess there is no way to loop over the criteria single to single, i think i need to store the uniques values in an array then manage to loop with the array