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

[Excel 2007] Copiare i nomi dei fogli Opzioni
grizzly
Inviato: Friday, October 08, 2010 12:00:39 PM

Rank: Member

Iscritto dal : 11/26/2009
Posts: 23
Office 2007: ho una cartella con centinaia di fogli e vorrei creare un elenco dei nomi dei medesimi, in un ulteriore foglio.
C'e' un modo per copiarli ed incollarli e non dover scrivere tutto a mano?
...e per non mettere limiti alla provvidenza: devo creare una formula che, in un riepilogo di tutti i fogli, attinga dei dati da ogni singolo foglio. Attingera' dati dalla stessa cella di ogni singolo foglio: quindi l'unica cosa che cambia sara' il nome del foglio stesso: devo cambiarla a mano per ogni singolo collegamento o c'e' un automatismo?
Speriamo che mi sono capito.....d'oh!
Sponsor
Inviato: Friday, October 08, 2010 12:00:39 PM

 
a10n11
Inviato: Friday, October 08, 2010 12:35:18 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
un automatismo è rappresentato dalla macro che segue:


Sub elenca()
riga = 1
For Each SH In Sheets
If SH.Name <> "Foglio3" Then
Cells(riga, 2).Value = SH.Name
Cells(riga, 1).Formula = "=" & SH.Name & "!A1"
riga = riga + 1
End If
Next
End Sub

quella che vedi, considera il Foglio3 come foglio di Riepilogo nel quale in colonna B elenca i nomi di tutti i fogli
della cartella a partire da riga 1 e nella colonna A immette la formula che preleva per ciascun foglio il valore della cella A1
Praticamente quello che vedi sotto è il risultato.
colonna A ---- --colonna B
=Foglio1!A1-----Foglio1
=Foglio2!A1-----Foglio2

Devi però cambiare i riferimenti all'interno della macro in base alle tue necessita.

Cambiare il nome del foglio3 con il nome del tuo foglio di riepilogo
e cambiare e il riferimento della cella da cui prelevare il valore.


saluti
Giap



grizzly
Inviato: Friday, October 08, 2010 2:56:28 PM

Rank: Member

Iscritto dal : 11/26/2009
Posts: 23
Non funziona....d'oh!
Da un errore di Run-Time "1004" a questa riga: Cells(riga, 1).Formula = "=" & SH.Name & "!K17"
Ho chiamato il foglio "Riep" e l'ho messo alla fine degli altri.....
grizzly
Inviato: Friday, October 08, 2010 3:02:06 PM

Rank: Member

Iscritto dal : 11/26/2009
Posts: 23
Aggiungo che togliendo la riga incriminata, per il resto funziona, ed ho quindi ottenuto la prima cosa che ho chiesto: scrivere il nome di tutti i fogli.
Grazie mille: sei stato molto gentile!
a10n11
Inviato: Friday, October 08, 2010 7:48:08 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
la riga è corretta.
visto l'errore che dici viene evocato, dovresti controllare
Cells(riga, 1).Formula = "=" & SH.Name & "!K17"
che non ci siano spazi involontari in questa porzione "!K17"

saluti
Giap


grizzly
Inviato: Thursday, October 14, 2010 8:59:47 AM

Rank: Member

Iscritto dal : 11/26/2009
Posts: 23
Non va: ho fatto un copia-incolla e non ci sono spazi oltre a quelli da te posizionati. Ma non importa, non preoccuparti: il problema più grosso l'ho risolto: di nuovo grazie.
a10n11
Inviato: Thursday, October 14, 2010 9:42:21 AM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
grizzly ha scritto:
Non va: ho fatto un copia-incolla e non ci sono spazi oltre a quelli da te posizionati. Ma non importa, non preoccuparti: il problema più grosso l'ho risolto: di nuovo grazie.

salve
vedi il file allegato
http://rapidshare.com/files/424961663/elenca.xls
saluti
Giap

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.