Ir ao conteúdo

Macro para hiperlinkar abas


Ir à solução Resolvido por Wendell Menezes,

Posts recomendados

Postado

Olá, pessoal. Boa tarde! Tudo bem?

 

Tenho uma planilha com um índice e 100 abas intituladas de 01 à 100. Criar o hyperlink manualmente do índice para as abas seria muito trabalhoso. Há alguma macro que faça essa criação?

 

Obrigado.

Postado

Segue exemplo de macro que cria uma lista (na 1ª aba em "A1") de hyperlinks das suas plan(Abas)

 

Sub AddHyperLinks()
            Dim wksLinks As Worksheet
            Dim wks As Worksheet
            Dim row As Integer
            Set wksLinks = Worksheets("Plan1") ' AQUI=altere o nome se necessario
            wksLinks.UsedRange.Delete
            row = 1
            
            For Each wks In Worksheets
                wks.Hyperlinks.Add wksLinks.Cells(row, 1), "", wks.Name & "!A1", , wks.Name
                row = row + 1
            Next wks
            
        End Sub

  • Solução
Postado


Sub Hyperlinks()

Dim r As Long

For r = 5 To Cells(Rows.Count, 1).End(xlUp).Row

Cells(r, 1).Activate

ActiveSheet.Hyperlinks.Add Selection, "", "'ART (" & IIf(Len(Cells(r, 1)) = 1, "0", "") & Cells(r, 1) & ")'!A1"

Next

End Sub

  • Curtir 1
Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!