Home Excel - Downloads / Areas Restritas Excel VBA - Hiperlinks

Excel VBA - Hiperlinks

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

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

    popular!
    Adicionado em: 21/11/2010
    Modificado em: 21/11/2010
    Tamanho: 26.4 KB
    Downloads: 732

     
    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

     

     


    Google Associados

    Depoimentos

    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