Personalizar hipervínculo de búsqueda en Google

03/10/2013 - 12:05 por pablorotero | Informe spam
Hola a todos
Necesito crear un hipervínculo que me abra una búsqueda en Google del texto en una celda concreta.
Es decir, si en la celda A1 tengo la palabra "casa", necesito que al ejecutar el hipervínculo ya se abra la búsqueda en Google de la palabra "casa" y no la página de inicio.
Por supuesto, el valor de A1 será variable, por lo que no me funcionaría el hipervínculo "https://www.google.es/#q=casa", sino que habría que vincularlo al texto que se pusiera en la celda

Saludos y muchas gracias a todos.

Preguntas similare

Leer las respuestas

#1 Juan Español
04/10/2013 - 12:02 | Informe spam
Hola Pablo:
Se podría hacer como tú dices,
1. Crear un hipervínculo en una celda distinta de A1
(Supongamos que en B1)
2. Modificar ese hipervínculo con
Range("B1").Select
Selection.Hyperlinks(1).Address = "https://www.google.es/#q=" & [A1]"
Selection.Hyperlinks(1).TextToDisplay = "https://www.google.es/#q=" & [A1]
3.Ejecutar el hipervinculo
Range("B1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Pero me pace más sencillo crear un boton y ponerle este código:
(En el caso que quieras utilizar IE, si quieres utilizar otro pues cambia la
ruta del programa)

Call Shell("C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE " &
"https://www.google.es/#q=" & [a1])


Cuenta si te sirvió o si tienes alguna duda.

Saludos.-
Respuesta Responder a este mensaje
#2 pablorotero
07/10/2013 - 21:00 | Informe spam
Perfecto!!
Muchas gracias
Saludos
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida