Views

Histats

Vitrine

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")
            .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, 


Inline image 1

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...