Macro para generar hipervínculos

Quisiera saber si existe la posibilidad de realizar una macro que tome secuencialmente textos celdas (p.e. Www.todoexpertos.com) y que la convierta automáticamente en un vinculo ( osea que al darle un click me lleve a la página) ya que hasta el momento tengo que posicionarme en cada celda y pulsar F2. Aclaración estos textos no se activan automáticamente ya que provienen de una concatenación de textos.
Respuesta
2
Como no se tus rangos, te dejo este sub para que lo adaptes
Mis entradas concatenadas están en col A desde A1 y te dejara los hipervínculos en la col F
Sub link()
Dim r As Range
For Each r In Range("a1" & ":" & "A" & Application.WorksheetFunction.CountA(Range("A:A")))
r.Offset(0, 5).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=r.Text, _
TextToDisplay:=r.Text
Next
Set r = Nothing
End Sub
Gracias calvuch por tu pronta respuesta.
Ahora se me presenta el siguiente inconveniente, una vez que tengo los hipervínculos en la celda F, al darte click me sale la leyenda "La dirección de este sitio no es valida. Compruebe la dirección y vuelva a intentarlo."
Las direcciones con las cuales estoy probando son www.google.com, www.hotmail.com y del estilo.
Gracias de antemano,
Pablo
Aclaración:
Pero si una vez ejecutada la macro, me posiciono en la celda F1 y oprimo la tecla "f2"+Enter, ahí si vincula al sitio web
Ups!, tienes razón, me falto concatenar la cedena con http:
Aquí esta:
Sub link()
Dim r As Range
For Each r In Range("a1" & ":" & "A" & Application.WorksheetFunction.CountA(Range("A:A")))
r.Offset(0, 5).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://" & r.Text & "/", _
TextToDisplay:=r.Text
Next
Set r = Nothing
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Hipervínculo en UserForm

Tengo un UserForm que introduce datos en una tabla(nombre, direcci) en el que tengo un ón, etc..) tengo en el User un botón que me abre un archivo PDF con el presupuesto emitido y la extensión se copia en una celda con este código:Private Sub...
1 respuesta

Macro para recorrer los Ficheros de un Carpeta

Necesito una macro para ir recorriendo todos los ficheros que tengo en una carpeta para abrir sólo los que necesito en cada momento. ¿Cómo podría hacerlo? Ya he sacado la ruta de la carpeta pero no se como ir recorriendo todos los workbooks. Pensaba...
2 respuestas

Listar rutas de carpetas dentro de otra carpeta

Soy muy nuevo en esto, he empezado hace poco con las macros y es algo que me parece interesante, de momento voy investigando con las que me bajo, las voy modificando a mis necesidades. Ahora necesito para el trabajo lo siguiente: Supongamos que tengo...
11 respuestas

Crear hipervínculo dirección variable

Tengo un problema con la última parte de una macro aplicada a un userform, en la cual mediante un textbox y commandbutton inserto el texcto en una celda de la página activa y a su vez copia una plantilla en una hoja nueva. Las preguntas son las...
2 respuestas

Convertir múltiples columnas a registros (filas)

Luis, antes que nada un afectuoso saludo. Gracias por compartirnos tus conocimientos. Veras, mi pregunta va enfocada a lo siguiente: Antecedente: Tengo un archivo en excel con varias columnas, en ellas están encabezados como: Apellido Paterno -...
1 respuesta

Macro para abrir distintos hipervínculos

Me gustaría crear un macro que cuando se seleccione cierta celda abra un hipervínculo hacia un archivo que tengo en word, pero necesito que también al seleccionar otra celda se abra un hipervínculo distinto, y cada una de estas dos funciones se...
1 respuesta