EXCEL:creazione indice con hyperlinks a tutti i fogli lavoro

[ialma]

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 ?

[Flash30005]

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

[ialma]

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!

[Flash30005]

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

[Flash30005]

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

[ialma]

Flash sei un mago
Thanks a lot!