Macro para hiperlinkar abas

[JeanRodrigues]

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.

[Wendell Menezes]

Boa tarde,

 

Sim, é possível fazer com macro, mas para garantir que funcione como você precisa seria interessante você postar a sua planilha aqui ou montar um modelo parecido.

 

Abs

[JeanRodrigues]

Montei um modelo similar.

 

Gostaria que os links ficassem na coluna A, nos números.

Modelo para hyperlink.xlsx

[Basole]

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

[Wendell Menezes]

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

[JeanRodrigues]

Sensacional, Wendell. Muito obrigado.