Fórmula para conocer la URL de un hipervínculo.

hola, javier !

... formula o funcion para conocer la URL (o Direccion-Ruta) de un hipervinculo.
... ejemplo tengo estos enlaces o hipervinculos:
Foro de Autocad
Mi Musica MP3 - Descargas Musicales
Que se refieren a estas direcciones URL:
http://foros.emagister.com/foro-for...-13499.htm
http://www.mimusicamp3.com/
... no se como extraer esas direcciones en unas celdas...

dependiendo de la forma en que hayas efectuado los hipervinculos...
- si por [menu] insertar / hipervinculo... y hubieras 'personalizado' el texto que se muestra...
- o por la funcion de hoja de calculo =hipervinculo("direccion","texto_celda") [...]

a) pudiera ser 'tan sencillo' como buscar/mostrar [desde codigo] la propiedad '.Address'
especificando alguna celda que contenga el hipervinculo y aplicandola al hipervinculo # 1
[probablemente habria que revisar si existe una '.SubAddress' dirigida a algun punto especifico del salto]

b) o mas 'complicadillo' [en el caso de la funcion =hipervinculo(...)] ya que podria contener 'otros' imponderables -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Héctor Miguel,

Gracias por tu colaboración.

En realidad son enlaces o hipervinculos que los he copiado de una página web
(copiar y pegar). Equivale a como si los hubiese creado con el menú Insertar
/ Hipervinculo...

Me parece que tendré que averiguar la URL utilizando alguna macro o función
personalizada. Pero no sé cómo hacerlo.

Por ejemplo tengo el Hipervinculo en la celda "A5", y en la celda "C5"
quería poner la URL.
He estado probando éste código:

Range("c5").Value = Range("a5").Hyperlink.Address

pero no me funciona.

Si tienes alguna idea...


Saludos,
javier




"Héctor Miguel" escribió:

hola, javier !

> ... formula o funcion para conocer la URL (o Direccion-Ruta) de un hipervinculo.
> ... ejemplo tengo estos enlaces o hipervinculos:
> Foro de Autocad
> Mi Musica MP3 - Descargas Musicales
> Que se refieren a estas direcciones URL:
> http://foros.emagister.com/foro-for...-13499.htm
> http://www.mimusicamp3.com/
> ... no se como extraer esas direcciones en unas celdas...

dependiendo de la forma en que hayas efectuado los hipervinculos...
- si por [menu] insertar / hipervinculo... y hubieras 'personalizado' el texto que se muestra...
- o por la funcion de hoja de calculo =hipervinculo("direccion","texto_celda") [...]

a) pudiera ser 'tan sencillo' como buscar/mostrar [desde codigo] la propiedad '.Address'
especificando alguna celda que contenga el hipervinculo y aplicandola al hipervinculo # 1
[probablemente habria que revisar si existe una '.SubAddress' dirigida a algun punto especifico del salto]

b) o mas 'complicadillo' [en el caso de la funcion =hipervinculo(...)] ya que podria contener 'otros' imponderables -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola de nuevo,

Estos hipervinculos, en principio no contienen ningún marcador. Pero si lo
tuviera supongo que la solución será muy parecida


Saludos
javier


"javier" escribió:

Hola Héctor Miguel,

Gracias por tu colaboración.

En realidad son enlaces o hipervinculos que los he copiado de una página web
(copiar y pegar). Equivale a como si los hubiese creado con el menú Insertar
/ Hipervinculo...

Me parece que tendré que averiguar la URL utilizando alguna macro o función
personalizada. Pero no sé cómo hacerlo.

Por ejemplo tengo el Hipervinculo en la celda "A5", y en la celda "C5"
quería poner la URL.
He estado probando éste código:

Range("c5").Value = Range("a5").Hyperlink.Address

pero no me funciona.

Si tienes alguna idea...


Saludos,
javier




"Héctor Miguel" escribió:

> hola, javier !
>
> > ... formula o funcion para conocer la URL (o Direccion-Ruta) de un hipervinculo.
> > ... ejemplo tengo estos enlaces o hipervinculos:
> > Foro de Autocad
> > Mi Musica MP3 - Descargas Musicales
> > Que se refieren a estas direcciones URL:
> > http://foros.emagister.com/foro-for...-13499.htm
> > http://www.mimusicamp3.com/
> > ... no se como extraer esas direcciones en unas celdas...
>
> dependiendo de la forma en que hayas efectuado los hipervinculos...
> - si por [menu] insertar / hipervinculo... y hubieras 'personalizado' el texto que se muestra...
> - o por la funcion de hoja de calculo =hipervinculo("direccion","texto_celda") [...]
>
> a) pudiera ser 'tan sencillo' como buscar/mostrar [desde codigo] la propiedad '.Address'
> especificando alguna celda que contenga el hipervinculo y aplicandola al hipervinculo # 1
> [probablemente habria que revisar si existe una '.SubAddress' dirigida a algun punto especifico del salto]
>
> b) o mas 'complicadillo' [en el caso de la funcion =hipervinculo(...)] ya que podria contener 'otros' imponderables -?-
>
> si cualquier duda [o informacion adicional]... comentas ?
> saludos,
> hector.
>
>
>

hola, javier !

... los he copiado de una pagina web (copiar y pegar)... como si los hubiese creado con el menu Insertar / Hipervinculo...
... ejemplo tengo el Hipervinculo en la celda "A5", y en la celda "C5" queria poner la URL... probando este codigo:
Range("c5").Value = Range("a5").Hyperlink.Address
pero no me funciona.

[segun lo comentado en el punto -a- del mensaje anterior]... prueba de la siguiente manera:
Range("c5").Value = Range("a5").Hyperlinks(1).Address

saludos,
hector.

Gracias Héctor,
ahora sí ha funcionado.

Saludos
javier


"Héctor Miguel" escribió:

hola, javier !

> ... los he copiado de una pagina web (copiar y pegar)... como si los hubiese creado con el menu Insertar / Hipervinculo...
> ... ejemplo tengo el Hipervinculo en la celda "A5", y en la celda "C5" queria poner la URL... probando este codigo:
> Range("c5").Value = Range("a5").Hyperlink.Address
> pero no me funciona.

[segun lo comentado en el punto -a- del mensaje anterior]... prueba de la siguiente manera:
Range("c5").Value = Range("a5").Hyperlinks(1).Address

saludos,
hector.