Home Excel - Dicas Microsoft Excel VBA Excel VBA - Hiperlinks Excel planilha vba hiperlink insere em todas as folhas de planilhas navegacao

Excel planilha vba hiperlink insere em todas as folhas de planilhas navegacao

E-mail Imprimir PDF

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
Informática - Submarino.com.br

 

 

Última atualização em Sáb, 13 de Agosto de 2011 18:57  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje570
mod_vvisit_counterOntem4798
mod_vvisit_counterEsta Semana32625
mod_vvisit_counterSemana passada39550
mod_vvisit_counterEsse mês9867
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10432696
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA