Mostrar texto con hipervínculo

Question

Estoy intentando mostrar el valor de un texto con hipervínculo en otra celda. Por ejemplo, tengo una columna que contiene varios hipervínculos, cada uno de ellos vinculado a una celda específica en otras hojas. Lo que me gustaría es que cada vez que alguien haga clic en el hipervínculo, ese valor (texto) se muestre en otra celda de mi hoja principal.

Intenté ingresar un VBA para getUrL pero eso me estaba dando el resultado que estaba buscando. Avíseme si alguien puede proporcionar una solución para esto.

Answer 1

Esto se puede resolver usando la función de hoja de trabajo secundaria privada SeguirHypervínculo (es decir, código VBA en la hoja de trabajo) de la siguiente manera:

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