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.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

personalizar busqueda

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.-

Responder a este mensaje

#2 pablorotero

07/10/2013 - 21:00 | Informe spam

Perfecto!!
Muchas gracias
Saludos

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida