Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

Excel 2007 - Collegamenti ipertestuali - Modificare Opzioni
aresca
Inviato: Friday, February 05, 2010 11:59:56 AM
Rank: Member

Iscritto dal : 6/16/2006
Posts: 7
Ciao a tutti,
avrei bisogno di un aiuto, per cortesia.
In una determinata colonna del foglio di lavoro composto ad oggi da circa 5000 righe ho inserito una serie di numeri, non necessariamente progressivi.
Ad ogni numero ho collegato (collegamento ipertestuale) un file pdf posizionato su un server.

Dovrei quindi, modificare tutti i collegamenti ipertestuali che oggi sono i seguenti:

C:\Documents and Settings\aresca\Dati applicazioni\Microsoft\Excel\(nome file.pdf)

con il nuovo percorso che è:

Z:\Cancellazione Ipoteche\Note Ipotecarie\Fatti\(nomefile.pdf)

il pannello "Trova e Sostituisci" ovviamente non funziona in quanto non si tratta ne di testo ne di formule...

mi potreste aiutare per cortesia?

in ogni caso... grazie
Andrea
Sponsor
Inviato: Friday, February 05, 2010 11:59:56 AM

 
a10n11
Inviato: Friday, February 05, 2010 2:08:53 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
una soluzione via macro:

Sub CambiaLink()
Dim Hyl As Hyperlink
newname = "Z:\Cancellazione Ipoteche\Note Ipotecarie\Fatti\"
For Each Hyl In Sheets("Foglio1").Hyperlinks
x = Split(Hyl.Address, "\")
nomefile = x(UBound(x))
Hyl.Address = newname & nomefile
Next Hyl
End Sub

quella sopra, cambia tutti gli indirizzi degli Yperlink con il valore della variabile Newname.
Se il nome del foglio su cui lavora non si chiamasse "Foglio1" cambia il mome della riga della macro

Istruzioni se necessarie:
Copia tutto il codice e incollalo in un modulo di Vba: Alt+F11 per accedere all'ambiente vba
Menù> Inserisci> Modulo nella pagina bianca incolla il codice sopra riportato
Alt+F11 per tornare al foglio
esegui la macro.

saluti
Andrea


aresca
Inviato: Friday, February 05, 2010 2:38:56 PM
Rank: Member

Iscritto dal : 6/16/2006
Posts: 7
a10n11 ha scritto:
salve
una soluzione via macro:

Sub CambiaLink()
Dim Hyl As Hyperlink
newname = "Z:\Cancellazione Ipoteche\Note Ipotecarie\Fatti\"
For Each Hyl In Sheets("Foglio1").Hyperlinks
x = Split(Hyl.Address, "\")
nomefile = x(UBound(x))
Hyl.Address = newname & nomefile
Next Hyl
End Sub

quella sopra, cambia tutti gli indirizzi degli Yperlink con il valore della variabile Newname.
Se il nome del foglio su cui lavora non si chiamasse "Foglio1" cambia il mome della riga della macro

Istruzioni se necessarie:
Copia tutto il codice e incollalo in un modulo di Vba: Alt+F11 per accedere all'ambiente vba
Menù> Inserisci> Modulo nella pagina bianca incolla il codice sopra riportato
Alt+F11 per tornare al foglio
esegui la macro.

saluti
Andrea


Applause Applause Applause Grazie infinite... problema risolto!
cidibi
Inviato: Monday, March 01, 2010 10:25:21 AM
Rank: Newbie

Iscritto dal : 3/1/2010
Posts: 3
Buongiorno a tutti
,
nel ringraziare sia aresca (la domanda è formulata in chiarezza stupenda -ho il medesimo problema), sia a10n11 per la macro scritta che ha permesso anche a me di risolvere il problema velocemente, Vi chiedo un uteriore aiuto.

Nella sostituzione dei collegamenti hyt, nelle celle del foglio Excel a me rimane visualizzato il "vecchio nome" del collegamento (chiarisco: il percorso è corretto ed è quello modificato dalla macro).
Prima di disturbare ho tentato di trovare una soluzione nei vari help di Excel, ma senza successo.

Ringraziando in anticipo, ci sarebbe la possibilità di fare visualizzare il nome nelle celle del foglio corrispondenti al percorso reale, senza un intervento "manuale".

Da parte mia un grazie per la macro che ho già sfruttato ed un "Bravi!".

Cordiali saluti a tutti.

Cdb
Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.