Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

EXCEL:creazione indice con hyperlinks a tutti i fogli lavoro

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

EXCEL:creazione indice con hyperlinks a tutti i fogli lavoro

Postdi ialma » 26/01/11 15:01

Salve a tutti,
ho bisogno di qualcosa che automatizzi la creazione di un foglio indice che mi hyperlinki tutti gli altri fogli
la funzione hyperlink è comodissima MA ha il difetto di essere manuale. e specie con files da 50-50 tabs diventa un inferno.
Esiste uno script che effettui questa operazione ?
ialma
Utente Junior
 
Post: 13
Iscritto il: 04/01/08 16:45

Sponsor
 

Re: EXCEL:creazione indice con hyperlinks a tutti i fogli la

Postdi Flash30005 » 26/01/11 16:07

Ma questi fogli hanno un nome (stringa) assegnato per tua comodità,
oppure
è possibile assegnare loro un nome magari anche numerico?

Non avrei nessun problema in ogni caso ma dovresti dire almeno qunti e quali fogli non rientrano tra quelli da visualizzare
Per esempio se hai 50 fogli e sicuramente un 51° che sarà l'elenco ne hai altri che potremmo chiamare "fogli di servizio"?
Se sì, dovresti indicare il loro nome.

Fai sapere
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL:creazione indice con hyperlinks a tutti i fogli la

Postdi ialma » 26/01/11 17:42

Ciao Flash,
i fogli hanno un nome (sono schede con nomi di persone) e non posso cambiarli.
http://spreadsheetpage.com/index.php/pup
ho usato questo addon per excel per risolvere il problema, ma non ho la minima conoscenza di VBA, se qualcuno sa come reversarlo...
Grazie mille!
ialma
Utente Junior
 
Post: 13
Iscritto il: 04/01/08 16:45

Re: EXCEL:creazione indice con hyperlinks a tutti i fogli la

Postdi Flash30005 » 26/01/11 18:05

Non uso quell'AddOn (né altri)
Se vuoi che realizziamo qualcosa di molto efficiente in VBA
dovresti indicarmi il nome dei fogli "di servizio" che hai nella cartella
(in pratica il nome dei fogli che hanno un nome che non sia un nome di persona)
come, del resto, ti chiedevo già nel post precedente.

Fai sapere
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL:creazione indice con hyperlinks a tutti i fogli la

Postdi Flash30005 » 27/01/11 08:45

Nel post precedente intendevo dire una cosa del genere

download file esempio

Composto da:
1) un foglio aggiunto alla cartella avente nome "Elenco"
2) una macro nel modulo che si avvia con un pulsante
3) un codice nel Vba del foglio "Elenco" che permette di visualizzare il foglio selezionato (colonna A del foglio Elenco) nascondendo tutti gli altri

La macro che crea l'elenco dei fogli e situata nel modulo è questa:

Codice: Seleziona tutto
Sub CreaElenco()
UR = Worksheets("Elenco").Cells(Rows.Count, 1).End(xlUp).Row
If UR < 2 Then UR = 2
Worksheets("Elenco").Range("A2:A" & UR).ClearContents
For CF = 1 To Worksheets.Count
If Worksheets(CF).Name <> "Elenco" Then
Worksheets("Elenco").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Worksheets(CF).Name
End If
Next CF
End Sub

La macro trascritta nel Vba del foglio "Elenco", questa:

Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UR = Worksheets("Elenco").Cells(Rows.Count, 1).End(xlUp).Row
If UR < 2 Then Exit Sub
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
If Intersect(Target, Range("A2:A" & UR)) Is Nothing And Target = "" Then Exit Sub
For CF = 1 To UR
If Worksheets(CF).Name <> "Elenco" And Worksheets(CF).Name <> Target Then
    Worksheets(CF).Visible = False
Else
    Worksheets(CF).Visible = True
    NomeF = Worksheets(CF).Name
End If
Next CF
Worksheets(NomeF).Select
End Sub


Fai sapere se tutto ok

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL:creazione indice con hyperlinks a tutti i fogli la

Postdi ialma » 01/02/11 11:33

Flash sei un mago :)
Thanks a lot!
ialma
Utente Junior
 
Post: 13
Iscritto il: 04/01/08 16:45


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL:creazione indice con hyperlinks a tutti i fogli lavoro":


Chi c’è in linea

Visitano il forum: Nessuno e 4 ospiti

cron