Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Hiperlink com variá...
 
Notifications
Clear all

Hiperlink com variável

 
2024 - VBA & Macros
Post Recente por andrehhh 6 anos atrás
2 Posts
1 Usuários
0 Reactions
845 Visualizações
RSS
 andrehhh
(@andrehhh)
Posts: 3
New Member
Topic starter
 

Olá pessoal do Planilhando,
Estou com uma planilha para estoque, onde para cada item tem uma pasta e essa pasta contém fotos do material.
Estou desenvolvendo uma macro que para cada item criado, seja criada uma pasta com o nome do material e coloque um hiperlink com o destino da pasta criada.

O problema aqui é que não consigo criar o hiperlink com a macro, pois o endereço é variável.
Um exemplo do link criado que funciona é esse =HIPERLINK(("ImagensTERMINAL TUBULAR AMARELO 6MM");"Imagens")

    Dim nomePasta   'Declaro a variável
    nomePasta = Range("C20").Value  'Seleciono o valor da célula para ser o nome da variável
    Sheets("Planilha").Select   'Seleciono a aba que irei colocar o hiperlink
    Range("B1").End(xlDown).Offset(0, 4).Select     'Seleciono a célula
    ActiveCell.FormulaR1C1 = "=HYPERLINK((""Imagens"")& "" & nomePasta & "",""Imagens"")" 'Aqui está a fórmula

A célula gerada pela macro acaba ficando assim =HIPERLINK(("Imagens")& " & nomePasta & ";"Imagens")
Não sei se o problema é na fórmula ou na variável.

Uma imagem para talvez entenderem melhor

 
Postado : 29/06/2018 8:15 am
 andrehhh
(@andrehhh)
Posts: 3
New Member
Topic starter
 

Consegui encontrar uma solução!
Segue o código para caso alguém precise

Dim nomePasta As String   'Declaro a variável
    nomePasta = Sheets("Inicio").Range("C20").Value 'Seleciono o valor da célula para ser o nome da variável
    Sheets("Planilha").Select   'Seleciono a aba que irei colocar o hiperlink
    Range("B1").End(xlDown).Offset(0, 4).Select   'Seleciono a célula
    ' ActiveCell.FormulaR1C1 = "=HYPERLINK((""Imagens"")& nomePasta,""Imagens"")" 'Aqui está a fórmula
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="Imagens" & nomePasta, TextToDisplay:="Imagens"

O problema estava na forma que eu tentava adicionar o hiperlink, eu tentava adicionar como se fosse uma fórmula normal, mas pelo VBA foi preciso usar o ActiveSheet.Hyperlinks.Add

 
Postado : 29/06/2018 11:34 am
Forum Jump:
  Tópico Anterior
Próximo Tópico