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

 Sub Filter_All_Sheets()
    Dim WS As Object

    For Each WS In Worksheets

        With WS.Range("A1")
            .Sort Key1:=WS.Range("A1"), Order1:=xlAscending, Header:= _
                  xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        End With

    Next WS
End Sub

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

Inline image 1
Related Posts Plugin for WordPress, Blogger...


diHITT - Notícias