excel, lista parole in colonna da ricercare in google

[marcus69]

Ciao a tutti
ho una lista di parole in una colonna "B1:B37", dovrei fare in modo che ogni singola parola ( semplice parola testo) venisse mandata al browser ed effettuasse la ricerca.
Ho provato diversi modi ma non ottengo risultati se non sono link, sotto il codice usato che non riesco ad adattare.
Idealmente anche copiare la parola nella barra indirizzi e cliccare invio è una soluzione ma non ci arrivo proprio...

avete idee per cortesia?

Public Sub Tester()
Dim rCell As Range

With Selection
For Each rCell In Selection.Cells
ActiveWorkbook.FollowHyperlink _
Address:=rCell.Value, _
NewWindow:=True
Next rCell
End With
End Sub

[Zer0Kelvin]

Ciao.
Ti do uno spunto

Codice: Seleziona tutto

Sub CercaParola()
Dim Parola
    Parola = "Patroclo"
    ActiveWorkbook.FollowHyperlink "https://www.google.it/search?source=hp&ei=bYgBWvrSFITDwALpyI3QDw&q=" & Parola _
    & "&oq=" & Parola & "&gs_l=psy-ab.3..0i131k1l2j0l2j0i131k1j0l3j0i131k1j0.14061.15409.0.16680.6.6.0.0.0.0.355.943.0j4j0j1.5.0....0...1.1.64.psy-ab..1.5.938....0.Zz7rOlQMXoM"
End Sub


PS: penso che l'ultima parte del link sia superflua e si possa eliminare

[Zer0Kelvin]

***EDIT***
confermo quanto sopra, la stringa di ricerca è molto più semplice

Codice: Seleziona tutto

Sub CercaParola()
Dim Parola
    Parola = "Patroclo"
    ActiveWorkbook.FollowHyperlink "https://www.google.it/search?q=" & Parola
End Sub


[marcus69]

ciao scusa, ma come applico quella stringa,

non ho la variabile per prendere le "n" parole selezionate nella mia colonna.


io ho una colonna con "pippo, pluto, paperino" tre nomi su tre righe diverse.

[Zer0Kelvin]

OMG!

Codice: Seleziona tutto

Public Sub Tester()
Dim rCell As Range
For Each rCell In Selection.Cells
     ActiveWorkbook.FollowHyperlink "https://www.google.it/search?q=" & rCell.Value
Next rCell
End Sub

Era così difficile?

[marcus69]

ciao, scusa se ti rispondo solo ora.
purtroppo per me era difficile perche di VB non so molto, pensa che ho provato diverse combinazioni ma non capivo dove fosse il mio errore finche non ho capito che la variabile era indicata da DIM ( se si dice cosi )
Devo dire che tra questo e l'altro esempio li sto sezionando e ho capito cosa sono DIM e INTERGER, e RANGE, almeno so come leggere quello che mi hai gentilmente sistemato.

grazie
Marcus

[Zer0Kelvin]

Beh, visto che avevi allegato un codice, non pensavo fossi "così" agli inizi.
La macro così scritta, funzionerebbe sulle celle selezionate; se vuoi che funzioni con il range fisso, modifica così

Codice: Seleziona tutto

Public Sub Tester()
Dim rCell As Range
For Each rCell In Range("B1:B37").Cells
     ActiveWorkbook.FollowHyperlink "https://www.google.it/search?q=" & rCell.Value
Next rCell
End Sub

PS: VBA ha un ottimo help, se vuoi saperne di più su una istruzione, posizionaci sopra il cursore e premi F1.
Forse all'inizio non ci capirai molto, ma... chi la dura la vince.