Hipervinculo

"Aprendiz" escribió en el mensaje news:

En la hoja 1 columna A tengo los códigos de clientes con un hipervinculo a
la hoja 2 celda D3.
¿Como puedo mediante código VBA trasladar tambien el nº de codigo a esa
celda cuando haga clic en el hipervinculo?
Gracias anticipadas

Prueba con el siguiente código, que va en el módulo de la hoja 1 (click derecho sobre su etiqueta >Ver código):

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.EnableEvents = False
ActiveCell = Target.Name
Application.EnableEvents = True
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel