Unire fogli di excel

[MSilvano]

Era venuto in mente anche a me di togliere un numero...infatti ho tolto lo zero...che ci sta a fare, mi sono detto...

Ha saltato il foglio uno...

[GianluigiSarais]

Allora possiamo dire: risolto!
Se ci smanetti su vedrai quante cose utili potrai fare con excel + VBA.
Ciao Gianluigi

[MSilvano]

Si..risolto...bastava togliere l'ultimo foglio.

Adesso mi chiedo...ogni volta che uso la macro devo prima rinominare i fogli...
Come si fa a farlo lavorare su tutti i fogli indipendentemente dal nome?

[GianluigiSarais]

Si può fare. Possiamo rinominare solo il primo foglio, poi c'è un comando , mi pare si a"next" che passa al secondo foglio, ecc. Poi possiamo mettere un Form dove specifichi il numero di fogli, le date e automatizzi.
Fammi capire, come viene costuito il file excel? Scarichi i dati direttamente in excel? Chi assegna i nomi dei fogli?

Ciao

[MSilvano]

Fammi capire, come viene costuito il file excel? Scarichi i dati direttamente in excel? Chi assegna i nomi dei fogli?

Dipende....
Si tratta di due casi differenti (uno per lavoro e uno per Hobby), ma il risultato dovrebbe essere lo stesso....
Per lavoro:
Scarico le curve di carico di un contatore di energia elettrica elettronico, il programma di telelettura mi converte il file in excel composto da tanti fogli quanti sono i giorni richiesti, nominando ogni foglio con la data del giorno...
esempio: questo mese saranno 31 fogli, nominati: venerdì 1 luglio, sabato 2 luglio, .....domenica 31 luglio
Sono solo 31 giorni/fogli, potrei rinominarli a mano, è vero, ma mi piacerebbe che fosse la macro a farli.

Per hobby
Ho un programma che mi gestisce tempi e giri di una pista elettrica.
Al termine della gara, i tempi di ogni manche vengono salvati su un file di testo.
In media ho due batterie con 6 manche ciascuna, quindi 12 file txt.
Manualmente: prenderli in gruppo, aprirli con excel, convertirli con una macro e portarli a mano su un unico foglio è un lavoro che faccio già...
Da qui in poi si ricade nel primo caso...
i file sono nominati automaticamente dal programma. per esempio un nome potrebbe essere:
G000211: G000 è fisso 2 è il numero della gara (la seconda in questo caso), 11 sta per prima batteria e prima manche...
Al termine di una gara con due batterie avrò dodici file nominati:
G000211 - G000212 - G000213 - G000214 - G000215 - G000216 - G000221 - G000222 - G000223 - G000224 - G000225 - G000226
Potrei avere batterie da 7 manche (quindi un file con 7 finale), oppure 3 batterie (G0003ecc...)

In breve, fare una macro che non guardi il nome di un foglio, ma agisca lo stesso....
chiedo troppo?

[Smart206]

Gentile Gianluigi,
ho lo stesso problema che hai risolto in precedenza ma, utilizzando la macro non sono riuscito ad apportare le modifiche necessarie per farlo funzionare.
Ho un file excel con 998 fogli che si chiamano Table 1, table 2..... table 998.

dieci righe e sette colonne. PArto dalla seconda riga in quanto nella prima c'è riportato in tutti i fogli l'indicazione della tipologia di dato.
Anche io dovrei riportare tutto su un unico foglio per una gestione migliore dei dati.

Saresti così gentile da aiutarmi a modificare la macro che hai già scritto con questi dati?

Grazie

[GianluigiSarais]

Ciao,
prova così:

Sub unisci()
k = 0
Dim Nomefoglio(997) As String 'Array con nomi dei fogli da "1" a "92"

For z = 0 To 997
Nomefoglio(z) = "Table" & (z + 1) ' Inizzializzazione dei nomi nel vettore
Next

For i = 0 To 91
k = i * 3
Sheets(Nomefoglio(i)).Select
Range("a2:g10").Select
Selection.Copy
Sheets("Unito").Select 'Foglio su cui riordinare i dati
Range("a2").Offset(9 * i, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False ' Incolla incollonnati
Range("A1").Select
Next

Range("a1").Select
End Sub

Fammi sapere, non l'ho provato

[cronos80]

In alternativa al for classico si può utilizzare il for each che ti evita di dover sapere a priori il numero di fogli della cartella di lavoro.

Prova a vedere qui

[GianluigiSarais]

..almeno un cenno di riscontro a me o a Cronos 80, poteva starci, no?

Gentile Gianluigi,
ho lo stesso problema che hai risolto in precedenza ma, utilizzando la macro non sono riuscito ad apportare le modifiche necessarie per farlo funzionare.
Ho un file excel con 998 fogli che si chiamano Table 1, table 2..... table 998.

dieci righe e sette colonne. PArto dalla seconda riga in quanto nella prima c'è riportato in tutti i fogli l'indicazione della tipologia di dato.
Anche io dovrei riportare tutto su un unico foglio per una gestione migliore dei dati.

Saresti così gentile da aiutarmi a modificare la macro che hai già scritto con questi dati?

Grazie

[littlesaint]

Ciao a tutti è tutta la sera che cerco una soluzione
preciso che sono a zero come macro non ne so niente :) so appena inserirla!
Ho un file di excel con 230 fogli di lavoro
Voglio unire tutto in unico foglio di lavoro
Tenete presente che la prima riga di ogni foglio contiene 7 colonne( che non voglio copiare)

ecco le colonne:
NUM DOMANDA A B C D ESATTA

Una volta riunificato tutto in un unico foglio vorrei mischiare le righe.

Per spiegarVi bene, questi fogli sono stati convertiti in xls da un file pdf unico di più pagine e che mi ha creato un foglio per pagina ma a me serve un foglio unico in xls.
Contengono domande e risposte che voglio unire in unico foglio e mischiarle
dato che i fogli vanno per argomento e voglio mischiare le domande dei vari argomenti

Spero di essermi spiegato bene