Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Personalizar hipervínculo de búsqueda en Google

03/10/2013 - 12:05 por pablorotero | Informe spam
Ayuda Hacer una pregunta
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.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

Preguntas similares

 

Busqueda sugerida :