Pesquise no Google a partir de uma célula

Written by

Mel Jenkins

Reviewed by

Steve Rynearson

Translated by

Daniel Caramello

Last updated on September 4, 2023

 

Deseja poder digitar a palavra de pesquisa em uma célula e, em seguida, executar uma macro para pesquisar no Google? Isso retorna os resultados em uma nova janela do Internet Explorer

Pesquisar no Google a partir de uma célula

1. Coloque o seguinte código em um módulo



Sub IniciarSite()

Dim novosite As Object

            

Set novosite = CreateObject("InternetExplorer.application")

novosite.Visible = True

novosite.Navigate _
"http://www.google.com/search?hl=en&ie=UTF-8&q=" _
& ActiveCell.Text

End Sub

2. Digite sua palavra ou frase de pesquisa em uma célula, pressione Enter, clique na célula novamente e execute a macro!

Saiba mais sobre como acessar o Internet Explorer pelo VBA

Codificação VBA facilitada

Pare de procurar códigos VBA on-line. Saiba mais sobre o AutoMacro – um construtor de código VBA que permite que os iniciantes codifiquem procedimentos do zero com conhecimento mínimo de codificação e com muitos recursos que economizam tempo para todos os usuários!

alt text

Saiba mais!

<<Retornar aos exemplos de VBA

vba-free-addin

Exemplos de Add-ins de Códigos VBA

Acesse facilmente todos os exemplos de código que se encontram em nosso site.

Simply navigate to the menu, click, and the code will be inserted directly into your module. .xlam add-in.

(Nenhuma instalação necessária!)

Baixe de Graça

Retornar aos Exemplos de Códigos VBA