MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Criar Macro para criar hyperlink automaticamente.

    avatar
    vmariano
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 21/05/2014

    Criar Macro para criar hyperlink automaticamente. Empty Criar Macro para criar hyperlink automaticamente.

    Mensagem  vmariano 21/5/2014, 01:41

    Salve salve galera,
    Será que alguém pode me ajudar na macro abaixo? Eu gostaria que ela colocasse um hyperlink de um arquivo pdf automaticamente, mais para isso eu deveria colocar uma extensão de .pdf pré-definida. como eu faria isso?
    Explicando melhor: Essa macro abaixo tem a função de buscar nas células da minha planilha os dados e com eles gerar um hyperlink automaticamente, mas essa macro era para hyperlink de sites e tentei adaptar para aquivo em pdf, mas não consegui...


    Sub CriarHiperlink()

    Dim lUltimaLinhaAtiva As Long
    Dim lControle As Long

    Application.ScreenUpdating = False

    lUltimaLinhaAtiva = Worksheets("Lista de Encomendas").Cells(Worksheets("Lista de Encomendas").Rows.Count, 1).End(xlUp).Row

    For lControle = 2 To lUltimaLinhaAtiva
    Range("A" & lControle).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
    "C:\Users\Angel King\Desktop\CONDOR - ANALISE\Nova pasta\" & _
    Range("A" & lControle).Value, TextToDisplay:="" & Range("A" & lControle).Value
    Next lControle
    End Sub

    Sub RemoverHiperlink()

    Dim lUltimaLinhaAtiva As Long
    Dim lControle As Long

    Application.ScreenUpdating = False

    lUltimaLinhaAtiva = Worksheets("Lista de Encomendas").Cells(Worksheets("Lista de Encomendas").Rows.Count, 1).End(xlUp).Row

    For lControle = 2 To lUltimaLinhaAtiva
    Range("A" & lControle).Select
    Selection.Hyperlinks.Delete
    Next lControle
    End Sub


      Data/hora atual: 28/3/2024, 18:43