Detalhes de vba hiperlink insere em todas as folhas de planilhas navegacao

PropriedadeValor
Nome:vba hiperlink insere em todas as folhas de planilhas navegacao
Descricao:

 
Inserir hyperlink pra todas as planilhas com retorno para principal

Esta macro 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




Compre com segurança e garantia na internet o que precisar- Lojas Submarino
Informática - Submarino.com.br

 

 

Nome do arquivo:vba hiperlink insere em todas as folhas de planilhas navegacao.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:SaberExcel
Criado em: 21/11/2010 16:45
Visitas:Todos
Responsavel:Editor
Acessos:937 Acessos
Atualizado em: 21/11/2010 16:51
Site: