Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA
Inserir hyperlink pra todas as planilhas com retorno para principal
Esta macro do Aplicativo Microsoft Excel VBA, insere um hiperlink automaticamente para todas as folhas de planilhas com link de retorno para planilha principal, observe que o procedimento é inserido no módulo de código da folha de planiha, usando o - Evento Worksheet_Activate
Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long
l = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "ÍNDICE"
.Cells(1, 1).Name = "Index"
End With
For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
l = l + 1
With wSheet
.Range("A1").Name = "Start_" & wSheet.Index
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
SubAddress:="Index", TextToDisplay:="Back to Index"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub
Esta macro deleta todos os dados existentes em todas as planilhas para teste,
Sub limpar_teste()
Dim resposta As String
resposta = MsgBox("Deseja deletar links para teste?", vbYesNo + vbInformation, "Saberexcel - site das macros")
If resposta = vbYes Then
For Each wSheet In Worksheets
With wSheet
.Range("A1:A100").ClearContents
End With
Next wSheet
MsgBox ("Links deletados em todas folhas planilhas"), vbInformation, "Saberexcel - site das macros"
End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel
Baixe o exemplo do procedimento e macro acima
Excel planilha vba hiperlink insere em todas as folhas de planilhas navegacao (26.4 kB)
Compre com segurança e garantia na internet o que precisar- Lojas Submarino 
