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