Ciao lorber82, benvenuto nel forum.
Se non sbaglio al momento sei su una procedura assolutamente manuale; quindi con una macro come questa farai qualche passo avanti:
- Codice: Seleziona tutto
Dim IE As Object 'Deve stare in testa al Modulo
Sub GSearch()
'
If IE Is Nothing Then Set IE = CreateObject("InternetExplorer.APPLICATION")
On Error GoTo CreateIE
'
myTest:
If IE.Visible = False Then IE.Visible = True
If Cells(Rows.Count, 1).End(xlUp).Offset(1, 1).Value <> "" Then
With IE
.Visible = True
.Navigate "http://www.google.it"
Do Until .ReadyState = 4: DoEvents: Loop
.Document.All.Item("q").Value = Cells(Rows.Count, 1).End(xlUp).Offset(1, 1).Value '"Cerca codice html vba site:pc-facile.com"
.Document.All.Item("btnG").Click
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = 1
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
End With
Else
MsgBox ("Fine Lista?")
End If
Exit Sub
'
CreateIE:
Set IE = CreateObject("InternetExplorer.Application")
Resume myTest
End Sub
Ho supposto che le chiavi da ricercare siano in col B, da B2 in avanti, e che la colonna A sia libera (infatti sara' usata per marcare le righe gia' "lavorate").
Quando lanci la macro essa apre una sessione di Internet Explorer, va sulla pagina di ricerca google e cerca con le parole scritte nella prima riga di col B non marcata. Rilanciando la macro la ricerca avverra' con le parole della riga successiva.
Fai sapere, ciao.