Aprire tutti i link esterni insieme

[Marco]

Ciao a tutti.
Ho installato excel 2003 e come browser uso firefox, che permette di
aprire tante pagine insieme grazie alle comode linguette.
Ora, mi trovo con un foglio con un elenco di 30 link che devo spesso
aprire, allora clicco su una cella e mi passa ad aprire la pagina in
firefox, poi torno ad excel e clicco sulla cella più sotto e il focus
mi torna a firefox che acciunge una linguetta ed apre anche questa
pagina... e così via per tutte e 30 i link.
Solo che lo devo fare spesso.
Allora io mi chiedevo se non c'era un sistema per selezionare in excel
tutte le celle e contemporaneamente mandare tutti i link al browser,
tanto come potenza non c'è problema perchè ho già fatto varie prove e
ne porta anche di più.
Grazie e tutti.
Marco

-
[url=http://www.ghisirds.it]Realizzazione siti internet[/url] -
[url=http://www.idee-regalo.biz]Stereogrammi personalizzati[/url] -
[url=http://www.geometri-reggio-emilia.it]Risorse per geometri[/url]

[Norman Jones]

Ciao Marco,

'------------------
Ho installato excel 2003 e come browser uso firefox, che permette di
aprire tante pagine insieme grazie alle comode linguette.
Ora, mi trovo con un foglio con un elenco di 30 link che devo spesso
aprire, allora clicco su una cella e mi passa ad aprire la pagina in
firefox, poi torno ad excel e clicco sulla cella più sotto e il focus
mi torna a firefox che acciunge una linguetta ed apre anche questa
pagina... e così via per tutte e 30 i link.
Solo che lo devo fare spesso.
Allora io mi chiedevo se non c'era un sistema per selezionare in excel
tutte le celle e contemporaneamente mandare tutti i link al browser,
tanto come potenza non c'è problema perchè ho già fatto varie prove e
ne porta anche di più.
Grazie e tutti.
Marco

-
[url=http://www.ghisirds.it]Realizzazione siti internet[/url] -
[url=http://www.idee-regalo.biz]Stereogrammi personalizzati[/url] -
[url=http://www.geometri-reggio-emilia.it]Risorse per geometri[/url]
'------------------

Non utilizzo FireFox, ma per aprire i link, prova
qualcosa del genere:

'=============>>
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range
Dim rCell As Range

Set WB = Workbooks("Pippo.xls") '<<=== da CAMBIARE
Set SH = WB.Sheets("Foglio1") '<<=== da CAMBIARE

Set Rng = SH.Range("A1:A30")

For Each rCell In Rng.Cells
WB.FollowHyperlink Address:=rCell.Value, _
NewWindow:=True
Next rCell

End Sub
'<<=============


---
Regards,
Norman
Microsoft Excel MVP

[Marco]

Post by Norman Jones
Ciao Marco,
'------------------
Ho installato excel 2003 e come browser uso firefox, che permette di
aprire tante pagine insieme grazie alle comode linguette.
Ora, mi trovo con un foglio con un elenco di 30 link che devo spesso
aprire, allora clicco su una cella e mi passa ad aprire la pagina in
firefox, poi torno ad excel e clicco sulla cella più sotto e il focus
mi torna a firefox che acciunge una linguetta ed apre anche questa
pagina... e così via per tutte e 30 i link.
Solo che lo devo fare spesso.
Allora io mi chiedevo se non c'era un sistema per selezionare in excel
tutte le celle e contemporaneamente mandare tutti i link al browser,
tanto come potenza non c'è problema perchè ho già fatto varie prove e
ne porta anche di più.
Grazie e tutti.
Marco
-
[url=http://www.ghisirds.it]Realizzazione siti internet[/url] -
[url=http://www.idee-regalo.biz]Stereogrammi personalizzati[/url] -
[url=http://www.geometri-reggio-emilia.it]Risorse per geometri[/url]
'------------------
Non utilizzo FireFox, ma per aprire i link, prova
'=============>>
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range
Dim rCell As Range
Set WB = Workbooks("Pippo.xls") '<<=== da CAMBIARE
Set SH = WB.Sheets("Foglio1") '<<=== da CAMBIARE
Set Rng = SH.Range("A1:A30")
For Each rCell In Rng.Cells
WB.FollowHyperlink Address:=rCell.Value, _
NewWindow:=True
Next rCell
End Sub
'<<=============

si, è la strada giusta.

ti chiedo solo un'altra cosa: vorrei fare in modo che mi faccia
l'apertura solo delle celle selezionate, a prescindere da che foglio o
celle all'interno della cartella di lavoro.
So che si può fare ma non mi ricordo di preciso, bisogna inserire la
posizione in una variabile.. ma la sintassi?
mi puoi aiutare?

grazie ancora
marco

[Norman Jones]

Ciao Marco,

'----------------
ti chiedo solo un'altra cosa: vorrei fare in modo che mi faccia
l'apertura solo delle celle selezionate, a prescindere da che foglio o
celle all'interno della cartella di lavoro.
So che si può fare ma non mi ricordo di preciso, bisogna inserire la
posizione in una variabile.. ma la sintassi?
mi puoi aiutare?
'----------------

Prova:

'=============>>
Public Sub Tester()
Dim rCell As Range

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


---
Regards,
Norman
Microsoft Excel MVP

[Norman Jones]

Ciao Marco,

Oppure, piu' semplicemente:

'=============>>
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
'<<=============


---
Regards,
Norman
Microsoft Excel MVP

[Marco]

Post by Norman Jones
Ciao Marco,
'=============>>
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
'<<=============
---
Regards,
Norman
Microsoft Excel MVP

grazie Norman, come sempre funziona alla grande.
Sei sempre il migliore!

ciao
marco

[Daniele Marcialis]

Post by Norman Jones
Ciao Marco,
'=============>>
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
'<<=============
---
Regards,
Norman
Microsoft Excel MVP

Ciao Norman (e Marco),
sono finito qui per caso ma...meglio tardi che mai. Leggendo il topic mi è venuta una domanda da porre: se io avessi una range A1:A1048576 (avendo Excel 2010) e dovessi aprire tutti i link in tab servirebbe un super computer e molta pazienza.

Poniamo che io abbia un elenco di url relativi a recensioni varie e le volessi archiviare e che debba salvare ogni tab (con Mozilla) facendo un Salva pagina con nome...con modalità Pagina web completa.

Che cosa dovrei modificare della macro per fare le seguenti operazioni:
- apri url
- Salva pagina con nome...con modalità Pagina web completa (sapendo la cartella in cui salvare)
- Chiudi

-Ripetere il processo per ogni riga rinominado di volta in volta il file con numero sequenziale (per evitare che sovrascrivendo si cancelli quanto salvato prima)?