Macro Excel: incollare più dati da diversi fogli su uno solo

[fedepoasco]

Buongiorno a tutti,

avrei bisogno di creare una macro in Excel che mi permetta di copiare dati da più fogli ad un unico foglio, nello stesso file Excel.

Vi scrivo qui brevemente come è strutturato il file:
- i fogli da cui prendere i dati hanno numero di colonne uguali (per ora 18, ma potrebbero aumentare/diminuire, quindi avrei bisogno che mi diceste come cambiare la macro di conseguenza), ma numero di righe variabili
- i fogli da cui prendere i dati sono 7, ma anche qui avrei bisogno di poterli aumentare/diminuire
-La prima riga di ogni foglio è identica, quindi nel nuovo foglio andrà inserita 1 sola volta
- ho bisogno che i dati dei diversi fogli siano copiati e incollati uno sotto l'altro, senza righe vuote che separino i dati
- il foglio su cui verranno copiati i dati sarà sempre un foglio nuovo nello stesso file

penso sia tutto.
grazie mille per il vostro prezioso aiuto.
fatemi sapere se avete bisogno altre info.

A presto
Ciao

[Anthony47]

Ciao fedepoasco, un tardivo benvenuto nel forum.

Ti segnalo questa discussione assolutamente simile alla tua:
viewtopic.php?t=102851#p598587
Ti suggerisco quindi di provare la "Sub Consolida()", seguendo le istruzioni che trovi nel messaggio linkato.

E se non risolvi posta ancora spiengando dove sei arrivato e dove invece ti sei arenato.

Ciao

[fedepoasco]

Ciao Anthony47,

grazie mille per la risposta e per il benvenuto nel forum.
la macro funziona alla perfezione se dovessi copiare qualsiasi foglio presente nel file.
Al contrario io avrei bisogno di definire il nome dei fogli da cui prendere i dati.
in breve, invece di creare un macro che prenda dati da tutti i fogli <> da "x;y;.." avrei bisogno che la macro prendesse dati dai fogli = a "z;j;..".

Attendo una tua risposta.
Grazie ancora

Ciao

[Anthony47]

Allora la cosa piu' semplice che posso suggerire e' che aggiorni la macro Consolida con queste tre righe aggiunte e questa riga modificata:

Codice: Seleziona tutto

Dim myMatch, myArr                               'AGG
myArr = Array("Pippo", "Pluto", "Paperino")      'AGG <<< L' elenco dei fogli da considerare
For I = 1 To Worksheets.Count                    'Esistente
myMatch = Application.Match(Worksheets(I).Name, myArr, 0)     'AGG
    If UCase(Left(Sheets(I).Name, 4)) <> "RIEP" And Not IsError(myMatch) Then            'MODIF


Ciao

[fedepoasco]

Grazie mille Anthony,
ora è tutto perfetto!

Vista la vostra competenza e velocità tornerò sicuramente a chiedere aiuto.

Grazie ancora
Ciao