Hiperlink Automátic...
 
Notifications
Clear all

Hiperlink Automático


Ricanero
Posts: 38
Registered
Topic starter
(@ricanero)
Eminent Member
Entrou: 8 anos atrás

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

Responder
3 Respostas
3 Respostas
deciog
Registered
(@deciog)
Entrou: 6 anos atrás

Prominent Member
Posts: 846

@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

 

Responder
teleguiado
Registered
(@teleguiado)
Entrou: 5 anos atrás

Estimable Member
Posts: 128

@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
Responder
Ricanero
Registered
(@ricanero)
Entrou: 8 anos atrás

Eminent Member
Posts: 38

@teleguiado, Sensacional!!!

 

Muito obrigado mesmo. Deu super certo!!!!

Valewwww

Forte Abraço

Ricardo

Responder