Ragruppare dati di piu fogli excel in uno unico

[mariosad]

Salve ragazzi,
oggi sono di quesiti! Come faccio a ragruppare in un file excel che contiene piu fogli di lavoro dei dati ben specifici in un unico, foglio sempre dello stesso file, il tutto in automatico???? caso mai con pulsante e macro che avvia l'importazione??????

Grazie

[luck]

certo mariosad!

come sono organizzati i dati?
dài che scriviamo qualcosina...

[mariosad]

allora luck nel file ci sono vari fogli tutti i fogli hanno al loro interno le colonne :
Articolo
Colore
Sic
Imb
Info
Tot
Fisisco

Ora devo prendere i dati all'interno di queste colonne di tutti i fogli del file e riunirli in un foglio per un controllo visivo ovviamente sempre con la stesssa impostazione

Articolo
Colore
Sic
Imb
Info
Tot
Fisisco

Che si può fare?

[luck]

tiè... provala...
è sicuramente da sistemare, ma intanto è una bozza
la macro spazza TUTTI i fogli della cartella, crea un nuovo file e copia le colonne che trova a partire dalla cella A1 di ogni foglio.

Insomma... provala, poi fai sapere
ciao ciaoooooo

Sub riunisci()

foglioorig = ThisWorkbook.Name
campi = "Articolo|Colore|Sic|Imb|Info|Tot|Fisisco"
campiS = Split(campi, "|")

Workbooks.Add
riepilogo = ActiveWorkbook.Name

For t = 1 To Sheets.Count
    Workbooks(foglioorig).Activate
    Sheets(t).Activate
    Sheets(t).Cells(2, 1).Select
    
    If ActiveSheet.Cells(2, 1).Offset(0, 0) = "" Then
        'nessun Dato, fai niente
        
    ElseIf ActiveSheet.Cells(2, 1).Offset(1, 0) = "" Then
        'un solo dato
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.Copy
        
        Workbooks(riepilogo).Activate
        
    Else
        'più dati
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        
        Workbooks(riepilogo).Activate
        ActiveSheet.Paste
        ActiveSheet.Cells(1, 1).End(xlDown).Select
        Selection.Offset(1, 0).Select
    End If
    
    
Next t



End Sub