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.
1 Respuesta
Respuesta de calvuch
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
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
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
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
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
Hola.! Yo quiero realizar con un botón de control un hipervínculo, lo que me gustaría realizar es lo siguiente:1-Crear un boton2-Darle click al boton3-Al darle click que aparezca el hipervínculo de otro documento documento como: word, excel o power point.4-Que aparezca el documento del hipervínculo en el documento actual que estoy trabajando.5-Y con el mismo botón crear varios hipervínculos, es decir para poder seleccionar una serie de documentos y utilizar el que necesito. Gracias, ¿soy nueva en excel y me gustaría una nocionsera posible...? - yosselinee gallardo