Nesse exemplo temos um arquivo com uma planilha Inicial e outras 10 planilhas.

 

Arquivo Original

 

Salvaremos o arquivo como: RelacionarPlanilhas lembrando de salvar como Pasta de Trabalho Habilitada para Macro do Excel.

 

 

Salvar Habilitada Para Macro

 

Precisamos 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, ou usar o comando

 

 

Caminho Desenvolvedor

 

A janela do VBA será aberta.

 

 

Janela VBA

 

Vamos inserir um módulo e nomeá-lo.

 

Inserir modulo

 Nomear Módulo

Digitaremos o seguinte código:

 

Sub relacionarplanilhas()

‘Criar variáveis

Dim celula As Object

Dim casa As Object

Dim x As Double

‘Se encontrar erro vai para o rotulo Y no final do código

On Error GoTo Y

‘Apagará o conteúdo e acrescentará o cabeçalho

Sheets(“Inicio”).Range(“A:A”).ClearContents

Sheets(“Inicio”).Range(“A1”) = “Relacionar Planilhas”

‘O contador inicia na planilha 2 visto que a planilha 1 é o local que receberá a relação de planilhas.

x = 2

‘Percorre a coluna A da planilha inicio e quando encontrar uma célula em branco lançará o nome da planilha

For Each celula In Sheets(“Inicio”).Range(“A:A”)

    If celula = “” Then

    celula = Worksheets(x).Name

‘Seleciona a celula e aplica o hiperlink

      celula.Select

      ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=””, SubAddress:= _

        Worksheets(x).Name & “!A1”

   

‘Soma um ao contador para encontrar no nome da próxima planilha

    x = x + 1

Else

End If

‘Vai para a próxima célula em branco

Next

‘Ao terminar as planilhas finaliza o código.

Y:

End Sub

 

Feche o Visual Basic Editor.

 

Na planilha vamos inserir um botão

 

 

Inserir Botão

 

Clique sobre o botão e depois clique na planilha.

Ao clica na planilha uma janela para atribuição de macro surgirá. Escolha a macro relacionarplanilhas.

 

 

Atribuir Macro

 

Salve o arquivo.

Clique no botão para fazer o teste.

 

 

Testar 

 

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