VBA Excel - Looping através das Abas com o AutoFiltro - Loop through sheets and filter

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Ordena a  Coluna A em todas as Abas com um loopins usando o AutoFiltro:

 Sub Filter_All_Sheets()

    Dim WS As Object

    For Each WS In Worksheets

        With WS.Range("A1")

            .AutoFilter

            .Sort Key1:=WS.Range("A1"), Order1:=xlAscending, Header:= _

                  xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

                  DataOption1:=xlSortNormal

        End With

    Next WS

    

End Sub

Tags: Excel, VBA, Loop, Sheets, sheet, Looping, Abas, Filtro, filter, autofilter,