Aprire tutti i link esterni insieme
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]
Norman Jones
'------------------
'------------------
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
wrote:
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
'----------------
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
Norman Jones
Oppure, piu' semplicemente:
'=============>>
Public Sub Tester()
Dim rCell As Range
With Selection
For Each rCell In Selection.Cells
ActiveWorkbook.FollowHyperlink _
Marco
wrote:
grazie Norman, come sempre funziona alla grande.
Sei sempre il migliore!
ciao
marco