Il file pubblicato sembra figlio di troppi padri...
Al suo interno sono elencati riferimenti ad almeno 10 file diversi, contenenti da 1 a 28 fogli ciascuno;
Alcuni dei file linkati sono:
- Codice: Seleziona tutto
DOCUM2.XLS
PROVA.XLW
DOCUM.XLW
Doc498/DOC.XLS
Doc898/DOC.XLS
SETTIMANA 20-26.xlsx
cestima1012pico.xls
Alcuni dei fogli elencati sono
- Codice: Seleziona tutto
<sheetNames>
<sheetName val="SACMI SCADUTO"/>
<sheetName val="SCAD FORNITORI"/>
<sheetName val="Val_Ordini_Fornitore (2)"/>
<sheetName val="IMU 2015"/>
<sheetName val="lithographic"/>
<sheetName val="situazione youtrade-gas"/>
. . .
<sheetName val="23-05"/>
- Codice: Seleziona tutto
<sheetNames>
<sheetName val="indgen"/>
<sheetName val="immoter"/>
<sheetName val="immonaz"/>
<sheetName val="grafici"/>
- Codice: Seleziona tutto
<sheetNames>
<sheetName val="ce-anno"/>
<sheetName val="spese diverse"/>
<sheetName val="cause of change 01"/>
<sheetName val="cause of change 00"/>
Il file contiene 3236 "nomi", in stragrande parte "nascosti" (3232 vs 4) e in gran parte con riferimento in errore:
- Codice: Seleziona tutto
<definedName name="___key2" hidden="1" localSheetId="0">#REF!</definedName>
<definedName name="___key2" hidden="1">#REF!</definedName>
<definedName name="__123Graph_A" hidden="1" localSheetId="0">[2]indgen!#REF!</definedName>
<definedName name="__123Graph_A" hidden="1">[2]indgen!#REF!</definedName>
<definedName name="__123Graph_AINDEB" hidden="1" localSheetId="0">[3]onfin!#REF!</definedName>
74 appartengono al file
In questa situazione credo che sia difficile orientarsi...
Si potrebbe comunque duplicare il foglio con questa macro:
- Codice: Seleziona tutto
Sub ShitCopy()
'
Sheets("23-05").Select
Application.DisplayAlerts = False
Sheets("23-05").Copy After:=Sheets(Sheets.Count)
Application.DisplayAlerts = True
End Sub
(il nome della macro non e' casuale, vista la confusione che c'e' nel sorgente).
Si potrebbe con una macro eliminare tutti i "Nomi", ma immagino che cosi' si butti il buono insieme col cattivo.
Il mio suggerimento e' di tornare all'origine, e creare un foglio contenenti solo nomi essenziali, e comunque con ambito di validita' limitata al foglio (non alla cartella di lavoro).
Poi puoi usare la stessa macro di prima, ma sei autorizzato a modificare il titolo in
Sub SheetCopy()
Ciao