Notifications
Clear all

Criar Hipelink

3 Posts
2 Usuários
0 Reactions
1,014 Visualizações
(@xandrinho)
Posts: 0
New Member
Topic starter
 

Bom Dia Mestres!!!
Preciso de uma grande ajuda:
Tenho uma pasta na área de trabalho que contem documentos em pdf. Na planilha anexa na coluna A recebe o numero destes documentos salvo (pdf).
Gostaria que ao clicar no botão Inserir Hiperlink, o código criasse os hiperlinks.
O módulo do código, já esta criando os hiperlinks, mas o mesmo não abre o PDF. Tem algum detalhe no código que eu não consigo visualizar qual a informação incorreta.
Poderiam por favor, me auxiliarem?
Antecipadamente,
Agradeço.

 
Postado : 29/08/2016 6:21 am
(@engeel2014)
Posts: 207
Reputable Member
 

Caro amigo, você não especificou o formato do arquivo que você está criando o hiperlink. É só alterar a linha abaixo no seu código:

 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:UsersAlexandreDesktop" & Range("A" & lControle).Value & ".pdf", TextToDisplay:="" & Range("A" & lControle).Value

Anexo planilha modificada.

 
Postado : 29/08/2016 11:50 am
(@xandrinho)
Posts: 0
New Member
Topic starter
 

Nossa que vacilo...rsrsrsrs.....Muito Obrigado!!!!
Valeu Forte Abraço!!!!

 
Postado : 29/08/2016 12:49 pm