Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Inserir HIPERLINK a...
 
Notifications
Clear all

Inserir HIPERLINK automático

 
2024 - VBA & Macros
Post Recente por luislapa 10 anos atrás
2 Posts
1 Usuários
0 Reactions
940 Visualizações
RSS
 luislapa
(@luislapa)
Posts: 49
Trusted Member
Topic starter
 

Olá pessoal!

Preciso de um ajuda.

Tenho uma planilha (Anexo) com índice/Localização das outras planilhas.

Nesta tabela de Índice preencho com o código do material, descrição, pasta onde está o arquivo, Descrição do Arquivo que é o nome do arquivo e o nome da aba que está este documento.

Gostaria de saber se tem como ao preencher os 5 dados de cada registro, se torne um hiperlink para o documento.

Exemplo: Linha 19, caso o material, Descrição, Pasta, Descrição do Arquivo, Aba seja preenchido o código do material irá se tornar um hiperlink para o documento: RT58LIBERT.XLSM e se possivel já abrir na Aba de nome 3.

Caso seja alterado o nome do arquivo no ìndice, automático já é atualizado o hiperlink.

Abs

Índice dos Projetos.xlsm
 
Postado : 28/05/2014 9:38 am
 luislapa
(@luislapa)
Posts: 49
Trusted Member
Topic starter
 

Olá pessoal,

Já consegui aplicar o hiperlink automático, agora só falta conseguir abrir na aba correta.

abs

Sub Hiperlink()

Dim lUltimaLinhaAtiva As Long
    Dim lControle As Long

    'Identifica a quantidade de células da lista
    lUltimaLinhaAtiva = Worksheets("Índice").Cells(Worksheets("Índice").Rows.Count, 1).End(xlUp).Row     'Cria os hiperlinks para cada célula
    For lControle = 2 To lUltimaLinhaAtiva
        Range("A" & lControle).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
            Range("C" & lControle).Value & "" & _
            Range("D" & lControle).Value, TextToDisplay:="" & Range("A" & lControle).Value
    Next lControle
End Sub
 
Postado : 28/05/2014 11:44 am
Forum Jump:
  Tópico Anterior
Próximo Tópico