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

Hiperlink Automático

 
2024 - VBA & Macros
Post Recente por Ricanero 4 anos atrás
4 Posts
3 Usuários
0 Reactions
1,075 Visualizações
RSS
 Ricanero
(@ricanero)
Posts: 41
Eminent Member
Topic starter
 

Bom dia para todos.

Tenho um a planilha de custos que vou atualizando ela diariamente.

Cada aba desta planilha é um subconjunto dos meus produtos, e a cada atualização crio novas abas.

Criei duas rotinas em nela, uma para colocar as abas em ordem crescente e outra para trazer o nome de cada aba a partir da célula selecionada, que deve ser sempre a célula B5.

O problema é que a planilha esta ficando grande, e para navegar entre as abas esta ficando complicado, então gostaria de saber se é possível criar uma rotina, que todas as vezes que eu atualizar minha planilha, fosse gerado a coluna A o Hiperlink referente a aquela aba descrita na colna B.

Não consegui enviar a planilha por que ela tem mais q 2Mb, coloquei ela no Wetransfer.

 

https://wetransfer.com/downloads/a21d93a7c28a1efaffc2d74d8395eb4620210622153140/a26d08bdfcecc94f42ea605a0bcc007420210622153158/966c0c

Se alguem puder me ajudar agradeço

Desde já obrigado

Ricardo Nero

 
Postado : 22/06/2021 12:33 pm
deciog
 deciog
(@deciog)
Posts: 0
Trusted Member
 

@ricanero, Bom Dia.

 

Voce pode postar um modelo simplificado com dados fictícios para que possamos ajudar, aqui não posso acessar site duvidosos é bloqueado

 

Decio

 

Marque o tópico como Resolvido se foi solucionado seu problema.
Brasil, São Paulo - SP
Décio Gassi

 
Postado : 23/06/2021 7:52 am
 teleguiado
(@teleguiado)
Posts: 142
Estimable Member
 

@ricanero

Fiz adaptei um código utilizando a função Hiperlink do excel veja se te ajuda.

 

Private Sub HYPERLINK()
    Dim lUltimaLinhaAtiva As Long
    Dim lControle As Long
    lUltimaLinhaAtiva = Worksheets("001 - ORIGEM").Cells(Worksheets("001 - ORIGEM").Rows.Count, 2).End(xlUp).Row
    
    With Sheets("001 - ORIGEM")
        For lControle = 5 To lUltimaLinhaAtiva
        
        Range("A" & lControle).Select
        ActiveCell.FormulaR1C1 = "=HYPERLINK(""#'""&Tabela1[@[CÓDIGO SUBCONJUNTO]]&""'!a1"",Tabela1[@[CÓDIGO SUBCONJUNTO]])"
        Next lControle
    End With
    
End Sub

Obrigado.

Teleguiado.
E-mail: [email protected]

 
Postado : 23/06/2021 10:45 am
 Ricanero
(@ricanero)
Posts: 41
Eminent Member
Topic starter
 

@teleguiado, Sensacional!!!

 

Muito obrigado mesmo. Deu super certo!!!!

Valewwww

Forte Abraço

Ricardo

 
Postado : 23/06/2021 12:07 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico