Home Excel - Downloads / Areas Restritas Excel VBA - Hiperlinks

Excel VBA - Hiperlinks

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    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: Vazio
    Downloads: 937

     
    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

     

     

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    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