Hipervínculo

"Toni" <@> escribió en el mensaje news:

Tengo una lista de correos electrónicos en una columna de Excel y
actualmente no son vínculo de internet.

Alguien sabe como hacer de forma automática que sí lo sean?

Hola,
ignoro si existe alguna funcionalidad incorporada en Excel que lo haga automáticamente, pero puedes crearte una macro que lo
realice.
Examina en la ayuda la sintaxis del método '.Add' del objeto 'HyperLinks'.
Por ejemplo, podrías hacerte algo algo similar a lo siguiente:
'***********
Sub TextToMail()
Dim Rng As Range

For Each Rng In Selection
With Rng
.HyperLinks.Add Rng, "mailto:" & Rng.Text
End With
Next
End Sub
'***********

Esto convertiría en un vínculo de correo electrónico los textos de las celdas actualmente seleccionadas.
Revisa el resto de armentos del método.


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

si cuando escribes una direccion de correo electronico no te sale el
hipervinculo, prueba esto: mennu herramientas, opciones de autocorreccion,
pestaña etiquetas inteligentes, y ahi comprueba que tines seleccionado
'destinatarios de correo electronico'



"Toni" escribió en el mensaje
news:

Hola a todos,

Tengo una lista de correos electrónicos en una columna de Excel y
actualmente no son vínculo de internet.

Alguien sabe como hacer de forma automática que sí lo sean?

Gracias!!!

GRACIAS!!!!


"Vinchenzo vinç" escribió en el mensaje
news:

"Toni" <@> escribió en el mensaje

news:

> Tengo una lista de correos electrónicos en una columna de Excel y
> actualmente no son vínculo de internet.
>
> Alguien sabe como hacer de forma automática que sí lo sean?

Hola,
ignoro si existe alguna funcionalidad incorporada en Excel que lo haga

automáticamente, pero puedes crearte una macro que lo

realice.
Examina en la ayuda la sintaxis del método '.Add' del objeto

'HyperLinks'.

Por ejemplo, podrías hacerte algo algo similar a lo siguiente:
'***********
Sub TextToMail()
Dim Rng As Range

For Each Rng In Selection
With Rng
.HyperLinks.Add Rng, "mailto:" & Rng.Text
End With
Next
End Sub
'***********

Esto convertiría en un vínculo de correo electrónico los textos de las

celdas actualmente seleccionadas.

Revisa el resto de armentos del método.


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