0088-Macro para ordenar planilhas

O código abaixo realiza a ordenação das planilhas de uma pasta de trabalho com base nos seus nomes.
É exibida uma caixa de diálogo para que o usuário possa selecionar se a ordenação será crescente ou decrescente.

Sub OrdenarPlanilhasPelosNomes()

'Código para ordenação das planilhas de uma pasta de trabalho
'com base nos seus nomes

Dim k           As Integer
Dim i           As Integer
Dim Tipo        As Integer
Dim Mensagem    As String

'Exibir caixa de mensagem para que o usuário possa selecionar
'o tipo de ordenação desejada

Mensagem = "Pressione Sim para ordenação crescente" & vbLf & _
"e Não para ordenação decrescente"
Tipo = MsgBox(Mensagem, vbYesNo + vbApplicationModal, _
"Ordenar planilhas")

Select Case Tipo
Case vbYes
    'Opção de ordenação crescente
    For k = 1 To ThisWorkbook.Sheets.Count
        For i = 1 To ThisWorkbook.Sheets.Count - 1
            If Sheets(i).Name > Sheets(i + 1).Name Then
            Sheets(i + 1).Move Before:=Sheets(i)
            End If
        Next i
    Next k
Case vbNo
'Opção de ordenação decrescente
    For k = 1 To ThisWorkbook.Sheets.Count
        For i = 1 To ThisWorkbook.Sheets.Count - 1
            If Sheets(i).Name < Sheets(i + 1).Name Then
            Sheets(i + 1).Move Before:=Sheets(i)
            End If
        Next i
    Next k
End Select

End Sub
Anúncios

In Excel We Trust

Marcado com: , , , , , ,
Publicado em Nível: Avançado
2 comentários em “0088-Macro para ordenar planilhas
  1. kio disse:

    Muito legal essas dicas. O Excel é muito abrangente nesse ponto. Obrigado por compartilhar o conhecimento.
    Da uma olhada nesse site tem varias planilhas e modelos pronto pra usar:
    http://www.lojaexcel.com.br
    Gosto bastante desse site!
    Grande abraço

  2. Desirée disse:

    Muito obrigado!!!
    Salvou minha vida! hahaha

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Visitas dos usuários
  • 2,077,129

Clique para assinar este blog e receber notificações de novos artigos por email.

Junte-se a 1.537 outros seguidores

Aumente sua interação

Siga-nos do twitter (@usuariosdoexcel).

Acesse o nosso fórum e compartilhe as suas dúvidas.

Curta nossa página no Facebook.

Junte-se ao grupo do LinkedIn.

Visite-nos utilizando o seu smartphone ou tablet.

Recomende este Blog
Visualizar notícias
Site monitorado:
Real Time Web Analytics

Clicky

%d blogueiros gostam disto: