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 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

Listas Expansíveis

LISTAS EXPANSÍVEIS ONDE PODEMOS USAR LISTAS EXPANSÍVEIS É muito comum termos listas diversas no Excel e precisarmos aplicá-las em outros locais, como em uma validação de dados, em um formulário e outras situações. Porém, se simplesmente selecionamos um intervalo,...

ler mais

Erros em planilhas

ERROS EM PLANILHAS Estava lendo um artigo que foi publicado no site da The Economist, em que mostram um estudo acerca de erros em planilhas usadas especificamente por cientistas (não que não tenhamos erros em outros tipos de planilhas - o Ray Panko tem uns estudos...

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)

Optimization WordPress Plugins & Solutions by W3 EDGE