Crie rapidamente uma planilha de resumo com hiperlinks no Excel

Muitos dos meus colegas gastam muito tempo criando uma planilha de resumo no Excel.

Uma planilha de resumo típica tem os nomes de todas as planilhas em células diferentes e todos os nomes também possuem hiperlinks para essas planilhas.

Assim, você pode clicar em uma célula com o nome de uma página (diga janeiro, fevereiro, março … ) e ele o levará para essa planilha. Além disso, há também um hiperlink em cada planilha que leva de volta à planilha de resumo.

Embora meus colegas tenham se tornado supereficientes nisso, ainda é uma perda de tempo quando você pode fazer a mesma coisa em menos de um segundo (sim, você leu certo).

O truque é criar uma macro curta que fará isso por você.

Não importa quantas planilhas você tenha, ele criará instantaneamente uma planilha de resumo com hiperlinks funcionais.

Algo conforme mostrado abaixo:

Como você pode ver na imagem acima, ele cria instantaneamente o resumo quando você executa a macro (clicando no botão). Os nomes das planilhas possuem hiperlinks que o levam à planilha quando você clica nela.

Criar planilha de resumo com hiperlinks

Todo o trabalho pesado na criação da planilha de resumo é feito por um código VBA curto. Você só precisa executar o código e fazer uma pausa, pois agora você teria algum tempo livre 🙂

Aqui está o código:

Sub CreateSummary () 'Criado por Sumit Bansal de trumpexcel.com' Este código pode ser usado para criar planilha de resumo com hiperlinks Dim x como planilha Dim Contador como inteiro Contador = 0 para cada x em planilhas Contador = Contador + 1 Se Contador = 1 Em seguida, vá para Donothing With ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Clique aqui para ir para a planilha" Com planilhas (Contador) .Range ("A1"). Value = "Voltar para" & ActiveSheet.Name .Hyperlinks.Add Sheets (x.Name) .Range ("A1"), "", _ "'" & ActiveSheet.Name & "'" & "!" & ActiveCell.Address, _ ScreenTip: = "Return to" & ActiveSheet.Name End With End With ActiveCell.Offset (1, 0) .Selecione Donothing: Next x End Sub 

Onde colocar este código?

Siga as etapas abaixo para colocar este código na pasta de trabalho:

1. Vá para a guia Desenvolvedor e clique em Visual Basic. Você também pode usar o atalho do teclado - ALT F11.
   • Se você encontrar a guia do desenvolvedor na faixa de opções do Excel, clique aqui para saber como obtê-la.
2. Deve haver um painel Project Explorer à esquerda (se não estiver lá, use Control + R para torná-lo visível).
3. Vá em Inserir e clique no Módulo. Isso adiciona um módulo à pasta de trabalho. Além disso, à direita, você veria a janela de código aparecer (com um cursor piscando).
4. Na janela de código do módulo, copie e cole o código acima.

Executando o Código

Para executar este código:

• Vá para a guia Desenvolvedor -> Código -> Macros. Isso abrirá a caixa de diálogo Macro.
• Selecione o Macro CreateSummary e clique em Executar.
• Isso executará a macro e criará os hiperlinks na planilha ativa.

Outra maneira de executar a macro é inserir um botão / forma e atribuir a macro a ele. Para fazer isso:

• Insira uma forma na planilha. Formate a forma da maneira que desejar.
• Clique com o botão direito nele e selecione Atribuir Macro.
• Na caixa Atribuir Macro, selecione a macro que deseja atribuir à forma e clique em OK.

Agora, você pode simplesmente clicar na forma para executar a macro.

Baixe o arquivo aqui

Observação:

1. Codifiquei permanentemente a célula A1 em cada planilha, que contém um hiperlink para levá-lo de volta à planilha de resumo. Certifique-se de alterá-lo adequadamente se você já tiver algo na célula A1 em cada planilha.
2. O resumo não cria um hiperlink para si mesmo (o que faz sentido, pois você já está nessa planilha).
3. Execute este código quando a Planilha de Resumo for a planilha ativa.
4. Você pode querer adicionar alguma formatação ou reorganização. Mas espero que este código cuide da parte difícil.
5. Salve esta pasta de trabalho como extensão .xls ou .xlsm, pois ela contém uma macro.

Outros tutoriais do Excel VBA:

• Obtenha vários valores de pesquisa sem repetição em uma única célula.
• Matriz de priorização de tarefas - aplicativo VBA.
• Como combinar várias pastas de trabalho em uma pasta de trabalho do Excel.
• Excel VBA Loops - For Next, Do While, Do Until, For Each (com exemplos).
• Como gravar uma macro em - um guia passo a passo.
• Como remover hiperlinks rapidamente de uma planilha no Excel.
• Curso Online Excel VBA.