VBA – Criar um Menu de Hiperlinks de Planilhas
Criar Índice de Hiperlink de Todas as Planilhas na Pasta de Trabalho
Vamos levar a Macro para Listar Todas as Planilhas em uma Pasta de Trabalho um passo adiante e criar um menu com hiperlink para cada planilha em uma pasta de trabalho. Essa é uma grande economia de tempo para quem tem muitas planilhas e está tentando criar um menu de hiperlinks para cada uma delas manualmente.
Para usar a macro, basta substituir a palavra Planilha1 (que aparece duas vezes) no código pelo nome da guia em que você deseja obter os resultados. Certifique-se de que não haja nenhuma informação importante na guia de saída, pois ela limpa os dados antes de gravar nela. Após a execução da macro, é criada uma lista de todas as planilhas com um hiperlink para cada uma delas.
Sub ListarPlanilhas()
Dim ws As Worksheet
Dim x As Integer
x = 1
Sheets("Planilha1").Range("A:A").Clear
For Each ws In Worksheets
Sheets("Planilha1").Cells(x, 1).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!A1", TextToDisplay:=ws.Name
x = x + 1
Next ws
End Sub
Codificação VBA facilitada
Pare de procurar códigos VBA on-line. Saiba mais sobre o AutoMacro – um construtor de código VBA que permite que os iniciantes codifiquem procedimentos do zero com conhecimento mínimo de codificação e com muitos recursos que economizam tempo para todos os usuários!
