Copiar el hipervinculo a otra celda.

Me refiero automáticamente, no me vale seleccionar con el botón derecho del
ratón y decirle copiar. tiene que ser por código.

"Luis V." escribió en el mensaje
news:cnk98t$dtd$

Saludos al grupo y gracias de antemano.

Me gustaría saber como copiar el Hipervínculo que contiene una celda a
otra, pero solo el Hipervínculo.
Por ejemplo:

BOP MADRID
esta celda tiene un vínculo que me lleva a la pagina de la comunidad de
Madrid y yo lo que quiero, como decía antes, es copiar el Hipervínculo
solamente sin el texto.

Gracias de nuevo y saludos
Luis

Por ejemplo, para copiar el hipervínculo de Hoja1!A1 a Hoja1!B1 sin modificar el valor de B1:

With Worksheets("Hoja1")
.[B1].Hyperlinks.Add anchor:=[B1], address:=.[A1].Hyperlinks(1).Address
End With

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Luis V." escribió en el mensaje news:cnk9k5$f64$

Me refiero automáticamente, no me vale seleccionar con el botón derecho del
ratón y decirle copiar. tiene que ser por código.

"Luis V." escribió en el mensaje
news:cnk98t$dtd$
> Saludos al grupo y gracias de antemano.
>
> Me gustaría saber como copiar el Hipervínculo que contiene una celda a
> otra, pero solo el Hipervínculo.
> Por ejemplo:
>
> BOP MADRID
> esta celda tiene un vínculo que me lleva a la pagina de la comunidad de
> Madrid y yo lo que quiero, como decía antes, es copiar el Hipervínculo
> solamente sin el texto.
>
> Gracias de nuevo y saludos
> Luis
>
>

Muchas gracias Fernando, es justo lo que quería.
Saludos
"Fernando Arroyo" escribió en el mensaje
news:
Por ejemplo, para copiar el hipervínculo de Hoja1!A1 a Hoja1!B1 sin
modificar el valor de B1:

With Worksheets("Hoja1")
.[B1].Hyperlinks.Add anchor:=[B1],
address:=.[A1].Hyperlinks(1).Address
End With

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Luis V." escribió en el mensaje
news:cnk9k5$f64$

Me refiero automáticamente, no me vale seleccionar con el botón derecho

del

ratón y decirle copiar. tiene que ser por código.

"Luis V." escribió en el mensaje
news:cnk98t$dtd$
> Saludos al grupo y gracias de antemano.
>
> Me gustaría saber como copiar el Hipervínculo que contiene una celda

a

> otra, pero solo el Hipervínculo.
> Por ejemplo:
>
> BOP MADRID
> esta celda tiene un vínculo que me lleva a la pagina de la comunidad de
> Madrid y yo lo que quiero, como decía antes, es copiar el Hipervínculo
> solamente sin el texto.
>
> Gracias de nuevo y saludos
> Luis
>
>

"Luis V." escribió en el mensaje news:cnkeva$26t$

Muchas gracias Fernando, es justo lo que quería.
Saludos

De nada.
Pero tienes que modificar el código porque "se ha caído" :-) un punto que tendría que estar entre
anchor:= y [B1], es decir:

With Worksheets("Hoja1")
.[B1].Hyperlinks.Add anchor:=.[B1], address:=.[A1].Hyperlinks(1).Address
End With

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Fernando Arroyo" escribió en el mensaje
news:
Por ejemplo, para copiar el hipervínculo de Hoja1!A1 a Hoja1!B1 sin
modificar el valor de B1:

With Worksheets("Hoja1")
.[B1].Hyperlinks.Add anchor:=[B1],
address:=.[A1].Hyperlinks(1).Address
End With

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Luis V." escribió en el mensaje
news:cnk9k5$f64$
> Me refiero automáticamente, no me vale seleccionar con el botón derecho
del
> ratón y decirle copiar. tiene que ser por código.
>
> "Luis V." escribió en el mensaje
> news:cnk98t$dtd$
> > Saludos al grupo y gracias de antemano.
> >
> > Me gustaría saber como copiar el Hipervínculo que contiene una celda
a
> > otra, pero solo el Hipervínculo.
> > Por ejemplo:
> >
> > BOP MADRID
> > esta celda tiene un vínculo que me lleva a la pagina de la comunidad de
> > Madrid y yo lo que quiero, como decía antes, es copiar el Hipervínculo
> > solamente sin el texto.
> >
> > Gracias de nuevo y saludos
> > Luis
> >
> >
>
>

A mi me funciona el código anterior, si pongo el que tu me dices ahora me da
error.

gracias de todos modos por las molestias.
Un saludo
Luis V.