Hiperlink Automático

2024 - VBA & Macros

Post Recente por Ricanero 3 anos atrás

4 Posts

3 Usuários

0 Reactions

1,063 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)

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