Exibir texto com hiperlink

Question

Estou tentando exibir o valor de um texto com hiperlink em outra célula. Por exemplo, tenho uma coluna que contém vários hiperlinks, cada um vinculado a uma célula específica em outras planilhas. O que eu gostaria é que sempre que alguém clicar no hiperlink esse valor (texto) seja exibido em outra célula da minha planilha principal.

Tentei inserir um VBA para getUrL, mas isso estava me dando o resultado que procurava. Deixe-me saber se alguém é capaz de fornecer uma solução para isso.

Answer 1

Isso pode ser resolvido usando a função Private Sub Worksheet FollowHyperlink (ou seja, código VBA na planilha) da seguinte maneira:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Sheets("MainSheet").Range("E2").Value = Selection.Value
    Sheets("MainSheet").Range("E3").Value = Target.SubAddress
    Sheets("MainSheet").Range("E4").Value = Target.Range
End Sub