Hipervinculo

07/04/2005 - 13:47 por Aprendiz | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Fernando Arroyo
07/04/2005 - 17:05 | Informe spam
"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
Respuesta Responder a este mensaje
#2 Aprendiz
08/04/2005 - 10:25 | Informe spam
Gracias Fernando por tu ayuda, pero tengo el siguiente error:
Error de compilación:
No se ha definido sub o function

Te ruego me digas como sulucionarlo.
¿puede que me falte una referencia?
¿ó es otra cosa?
Gracias anticipadas
José Frasquet


"Fernando Arroyo" escribió en el mensaje
news:
"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
Respuesta Responder a este mensaje
#3 Fernando Arroyo
08/04/2005 - 11:14 | Informe spam
"Aprendiz" escribió en el mensaje news:
Gracias Fernando por tu ayuda, pero tengo el siguiente error:
Error de compilación:
No se ha definido sub o function

Te ruego me digas como sulucionarlo.
¿puede que me falte una referencia?
¿ó es otra cosa?
Gracias anticipadas
José Frasquet




A mí no me da problemas:

http://www.excelsp.com/ejemplos/eje...50408a.xls

Para que funcione el ejemplo, tendrás que descargarlo (no funcionará abriéndolo desde el Internet Explorer).
Un saludo.


Fernando Arroyo
MS MVP - Excel
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida