Cómo hacer Click en un hipervínculo. El evento click.

"javier" escribió en el mensaje news:

Buenas a todos.

Estaba intentando hacer click en una celda seleccionada, mediante una macro.
Yo puse así el codigo y me falla.

Sub prueba()
Range("a1").Select
ActiveCell_Click 'Falla
End Sub

Me dice que no se ha definido Sub o función ???. El Hipervínculo está bien.

Hola Javier,
examina en la ayuda el método ".Follow" y sus argumentos.
Básicamente harías así para ejecutar el hipervínculo (en caso de contener alguno) de la celda activa:

Sub prueba()
If ActiveCell.Hyperlinks.Count Then _
ActiveCell.Hyperlinks(1).Follow
End Sub


Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn

Gracias Vinchenzo,
funciona muy bien

Saludos,
javier


"Vinchenzo vinç" escribió:

"javier" escribió en el mensaje news:
> Buenas a todos.
>
> Estaba intentando hacer click en una celda seleccionada, mediante una macro.
> Yo puse así el codigo y me falla.
>
> Sub prueba()
> Range("a1").Select
> ActiveCell_Click 'Falla
> End Sub
>
> Me dice que no se ha definido Sub o función ???. El Hipervínculo está bien.


Hola Javier,
examina en la ayuda el método ".Follow" y sus argumentos.
Básicamente harías así para ejecutar el hipervínculo (en caso de contener alguno) de la celda activa:

Sub prueba()
If ActiveCell.Hyperlinks.Count Then _
ActiveCell.Hyperlinks(1).Follow
End Sub


Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn