FONTES EM DASHBOARDS NO EXCEL

Guia Prático

PLANILHAS EM ORDEM ALFABÉTICA

Muitas vezes você começa a criar diversas planilhas em sua pasta de trabalho mas precisa deixar as planilhas em ordem alfabética. Veja o exemplo:

Em primeiro lugar, antes de pensarmos em deixar as planilhas em ordem alfabética, é salvar o arquivo como Pasta de Trabalho Habilitada para Macro do Excel – extensão XLSM ou XLSB.

Depois, vamos acessar o Visual Basic Editor, para digitarmos o código da macro, que irá relacionar as planilhas. Para tanto podemos pressionar as teclas Alt + F11.

A janela do VBA será aberta. Você terá algo similar a isto (se não estiver exatamente igual, não se preocupe):

Agora, clique em INSERIR > MÓDULO:

Ao clicar no menu, vai aparecer um ítem chamado MÓDULO 1.

E à direita uma tela em branco, que será o local onde colaremos nosso código (baixe a planilha que está ao final desta postagem).

Sub ClassificaPlanilhas()

'***************************************************************************************
'Cria Variáveis
'***************************************************************************************

Dim Ultima As Integer
Dim NomePlan As String

'***************************************************************************************
'Define a posição da úlitma
'***************************************************************************************
Ultima = Sheets.Count

'***************************************************************************************
'adiciona uma planilha temporária no final de todas
'***************************************************************************************

Sheets.Add after:=Sheets(Ultima)

'***************************************************************************************
'adiciona na planilha temprário o nome de todas as planilhas (na ordem em que estão)
'***************************************************************************************

For NumPlanilhas = 1 To Ultima


 Sheets(Ultima + 1).Cells(NumPlanilhas, 1) = Sheets(NumPlanilhas).Name


Next NumPlanilhas

'***************************************************************************************
'Classifica o nome das planilhas que estão na planilha temprária
'***************************************************************************************

With Sheets(Ultima + 1)

.Sort.SortFields.Clear
 .Sort.SortFields.Add Key:=Range("A1")
 
 .Sort.SetRange Range("A1").CurrentRegion
 .Sort.Header = xlNo
 .Sort.Orientation = xlTopToBottom
 .Sort.Apply
 
 
End With

'***************************************************************************************
'move as planilhas para a posição me que agora estão na planilha temporária
'***************************************************************************************
 
For NumPlanilhas = 1 To Ultima

NomePlan = Sheets(Ultima + 1).Cells(NumPlanilhas, 1).Value
 Sheets(NomePlan).Move before:=Sheets(NumPlanilhas + 1)

Next NumPlanilhas

'***************************************************************************************
'apaga a planilha temporária
'***************************************************************************************

Application.DisplayAlerts = False
 
 Sheets(Ultima + 1).Delete

Application.DisplayAlerts = True


End Sub

Feche o Visual Basic Editor (ALT + Q).

Na planilha vamos inserir um botão. Vá em INSERIR > FORMAS e escolha o quadrado (na verdade, pode ser qualquer coisa…):

Escreva dentro da forma o que quiser e depois clique sobre o botão e depois clique com o botão direito sobre o contorno deste desenho.

No menu que aparecer, Clique em ATRIBUIR MACRO.

Seleciona o nome da macro criada  – ClassificaPlanilhas e dê OK:

Clique fora do botão e em seguida no botão para que ele classifique as planilhas.

Caso queira, a planilha está aqui.

Licença Creative Commons

OUTROS ARTIGOS DE INTERESSE

Como Fazer Uma Tabela no Excel

COMO FAZER UMA TABELA NO EXCEL A partir da versão do Excel 2007 foi introduzido um recurso fantástico: a Tabela (não confunda com a tabela de dados, que é outra coisa - você pode entendê-la melhor aqui). Neste tutorial você aprenderá como fazer uma tabela no Excel....

ler mais

Função SES

FUNÇÃO SES Se você usa a função SE com diversas condições (escrevemos mais sobre isto aqui), temos uma nova função a partir do Excel 2016. Ela é a função SES. Basicamente a função SES condensa dezenas de SE dentro de uma única função, eliminando a necessidade de se...

ler mais

Como Importar o Facebook para o Excel

Como importar o Facebook para o Excel Já pensou em analisar seu feed do Facebook no Excel, quem sabe usando uma tabela dinâmica, filtros, ou simplesmente ter um histórico das besteiras coisas legais que você escreve? Existe um método relativamente simples para...

ler mais
Comentários
Fabio Vianna
Siga-Me

Fabio Vianna

Modela planilhas deste 1994 e ministra treinamentos desde 1997.
Especialista em Modelagem Profissional de Planilhas, incluindo Dashboards no Excel.
Fabio Vianna
Siga-Me

Últimos posts por Fabio Vianna (exibir todos)

Receba nossa Agenda

Cadastre-se para receber nossa agenda de treinamentos.

Obrigado :)