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 vinculados a uma célula específica em outras planilhas. O que eu gostaria é que sempre que alguém clica no hyperlink que valor (texto) será exibido em outra célula na minha folha principal.

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

    

Answer 1

Isso pode ser resolvido usando a função Subpilha Subpasta Privada FollowHyperlink (ou seja, código VBA na planilha) da seguinte forma:

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