Microsoft Excel VBA – Ordenar planilhas alfabeticamente

Fabio Joaquim
Por Fabio Joaquim março 25, 2015 11:14

Microsoft Excel VBA – Ordenar planilhas alfabeticamente

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!

Fabio Joaquim
Por Fabio Joaquim março 25, 2015 11:14
Escreva um comentário

Nenhum comentário

Nenhum comentário ainda!

Deixe-me contar uma história triste! Não há comentários ainda, mas você pode ser o primeiro a comentar esse artigo.

Escreva um comentário
Ver comentários

Escreva um comentário

Seu endereço de e-mail não será publicado.
Campos requeridos estão marcados*

COMENTÁRIOS RECENTES

  • Todi

    Todi

    Ótimo obrigado.

    Ver artigo
  • Victor

    Victor

    Fiz os treinamentos de Excel Básico e Intermediário. Ambos são excelentes e proporcionam um ótimo domínio da ferramenta para que…

    Ver artigo
  • PL

    PL

    Ajudou pacas, muito prático. vlw.

    Ver artigo

AGENDA

ENCONTRE-NOS NO FACEBOOK

CADASTRE-SE PARA NOVIDADES