Macro per incollare valori da diversi fogli

[Wikipino]

ciao a tutti
non so se l'argomento è stato già trattato ma non sono riuscito a trovare un topic che risolvesse il mio problema
ho un file excel con diversi fogli e tutti presentato un database con due colonne , una con dei nomi , l'altra con dei valori
dovrei scrivere una macro per poter incollare i valori contenuti nei diversi fogli, in un foglio chiamato Database "accodando" i valori presi dai diversi fogli
Gli elenchi presenti nei diversi fogli hanno sempre due colonne ma un numero di righe variabile

non so se sono riuscito a farmi capire , in ogni caso allego un file esempio
http://www.filedropper.com/fileesempio

In questo file ho fatto manualmente quello che voglio ottenere dalla macro , ovvero copiare e incollare nel foglio chiamato "database" gli elenchi presenti nei fogli AAAA ,BBBB ,CCCC etc . accodandoli uno dopo l'altro

Mi potete aiutare ?
grazie

[alfrimpa]

Ciao Pino

Prova con questa macro

Codice: Seleziona tutto

Sub prova()
Dim ur As Long
Dim nfogli As Long
Dim i As Integer
Application.ScreenUpdating = False
nfogli = ThisWorkbook.Sheets.Count
For i = 1 To nfogli - 1
    ur = Worksheets("database").Range("A" & Rows.Count).End(xlUp).Row
    Sheets(i).Select
    Range("a1").CurrentRegion.Select
    Selection.Copy Destination:=Worksheets("database").Range("A" & ur + 1)
    Worksheets("database").Activate
Next i
Application.ScreenUpdating = True
End Sub


[alfrimpa]

Riciao

Ho dato una "sfrondata" al codice che così è più compatto

Codice: Seleziona tutto

Sub prova()
Dim ur As Long
Dim nfogli As Long
Dim i As Integer
Application.ScreenUpdating = False
nfogli = ThisWorkbook.Sheets.Count
For i = 1 To 5
    ur = Worksheets("database").Range("A" & Rows.Count).End(xlUp).Row
    Sheets(i).Range("a1").CurrentRegion.Copy Destination:=Worksheets("database").Range("A" & ur + 1)
    Worksheets("database").Activate
Next i
Application.ScreenUpdating = True
End Sub


[Wikipino]

Ciao Alfredo
scusa il ritardo nella risposta ma non ho potuto provare prima la macro
ho provato la prima e funziona perfettamente Grazie !!!
ora provo la seconda e vedo
solo una cosa
perché funzioni, la macro deve essere nel file che sto utilizzando
non funziona se la metto in cartella personale di Excel in modo da averla disponibile sempre
pensi si possa modificare in tal senso ?

[Wikipino]

Ho risolto
era semplice
bastava sostituire ThisWorkbook.Sheets.Count con ActiveWorkbook.Sheets.Count
Ho provato anche il secondo codice
è perfetto , grazie mille !!!!