Últimos Posts

Olá pessoal, tudo On?

Sabe aquela hora que queremos ordenar planilhas alfabeticamente e não sabemos como fazer? Esta macro colocará rapidamente suas planilhas em ordem.

Para isso, abra o VBE (Visual Basic Editor), usando o atalho ALT + F11 (caso queira ver outros atalhos bacanas como este, clique aqui), vá em INSERIR >> MÓDULO e copie e cole o código abaixo:

Option Explicit
 
Sub OrdenaPlanilhas()
     
    Dim N As Integer
    Dim M As Integer
    Dim PrimeiraWSParaOrdenar As Integer
    Dim UltimaWSParaOrdenar As Integer
    Dim OrdenarDescrescente As Boolean
     
    OrdenarDescrescente = False
     
    If ActiveWindow.SelectedSheets.Count = 1 Then
         
         ‘Altere o 1 para a planilha que você quer colocar primeiro
        PrimeiraWSParaOrdenar = 1
        UltimaWSParaOrdenar = Worksheets.Count
    Else
        With ActiveWindow.SelectedSheets
            For N = 2 To .Count
                If .Item(N – 1).Index <> .Item(N).Index – 1 Then
                    MsgBox “Você não pode ordenar planilhas que não estejam em sequência”
                    Exit Sub
                End If
            Next N
            PrimeiraWSParaOrdenar = .Item(1).Index
            UltimaWSParaOrdenar = .Item(.Count).Index
        End With
    End If
     
    For M = PrimeiraWSParaOrdenar To UltimaWSParaOrdenar
        For N = M To UltimaWSParaOrdenar
            If OrdenarDescrescente = True Then
                If UCase(Worksheets(N).Name) > UCase(Worksheets(M).Name) Then
                    Worksheets(N).Move Before:=Worksheets(M)
                End If
            Else
                If UCase(Worksheets(N).Name) < UCase(Worksheets(M).Name) Then
                    Worksheets(N).Move Before:=Worksheets(M)
                End If
            End If
        Next N
    Next M
     
End Sub

Salve seu código, retorne ao Excel e rode sua macro, pressionando ALT + F8 e escolhendo a macro OrdenaPlanilhas e clicando em executar.

Pronto, suas planilhas estão em ordem alfabética!

Bom pessoal, dica rápida que espero que tenham curtido, um forte abraço e até a próxima!