fertelance

Tentei... não funcionou. Mas em cima dessa sua resposta vou tentar trabalhar e descobrir. Grato mais uma vez.

Prezado Basole... segue... Grato. Option Explicit Private Pagina As String Public Declare PtrSafe Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" _ (ByVal hwnd As Long, _ ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lparameters As String, ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Public Sub NewShell(cmdLine As String, lngWindowHndl As Long) ShellExecute lngWindowHndl, "Open", cmdLine, "", "", 1 End Sub Public Sub Abrir() Dim Pesquisa As String Dim Termos As String Pesquisa = UserForm1.TextBox1 Termos = " ''gasolina'' ''diesel'' ''eletrico'' " Let Pagina = ("https://www.google.com.br/search?q=") & Pesquisa & Termos Call NewShell(Pagina, 1) End Sub

Boa noite jovens... Sou um jovem aprendiz, gostaria de auxilio para a seguinte questão... Criei um VBA (simples) para pesquisa no google. A pesquisa precisa ser com mais de um termo, exemplo de pesquisa: "carro"+"gasolina"+"diesel". Criei um formulário para inserir o termo "carro" como no exemplo, e uma variável com os termos para pesquisa, porém não consegui enviar o símbolo + (soma) entre os termos, ele simplesmente não aparece quando a macro executa, a pesquisa do google abre preenchido da seguinte forma: "carro" "gasolina" "diesel", sem o sinal de soma (+) entre os termos. Gostaria de um auxilio nesse ponto. Grato desde já.