Classifica baseado na coluna A de todas as guias usando um loop com AutoFiltro

Ir em baixo

Classifica baseado na coluna A de todas as guias usando um loop com AutoFiltro

Mensagem por alexandrevba em Dom Mar 30, 2014 9:42 am

Bom dia!!

Código:
Sub FiltrarTodasGuias()

'Classifica baseado na coluna A de todas as guias usando um loop com AutoFiltro
    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

Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum