riepilogo

Hai un problema con Excel?

Nuova discussione

riepilogo
di alessio giuseppe (utente non iscritto) data: 20/06/2016 18:28:40
Salve
Ho una cartella con 500 fogli con dei dati disposti dalla riga 36 alla riga 47.
Vorrei copiarli in posizione A1 nella cartella Riepilogo.
Ho provato con copia – incolla speciale . La cosa funziona, ma trascinando i dati, non riesco a cambiare il numero del foglio.
Mi copia sempre il foglio 1.
Facendolo manualmente per i 500 fogli occorre parecchio tempo.
Non si può con una macro risolvere il problema e copiare i dati dei 500 fogli nella cartella riepilogo, partendo dalla cella A1 ?
Saluti
Alessio Giuseppe

di alfrimpa data: 20/06/2016 18:53:14
Ciao Alessio/Giuseppe

Prova con la macro che vedi sotto.

Alfredo

Sub prova()
Dim i As Integer
Dim ur As Long
For i = 1 To ThisWorkbook.Sheets.Count - 1
    ur = Worksheets("Riepilogo").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("Foglio" & i).Range("a36").CurrentRegion.Copy Destination:=Worksheets("Riepilogo").Range("a" & ur + 1)
Next i
End Sub

di patel data: 20/06/2016 19:02:16
prova questa

Sub copy()
Set sh = Sheets(1)
r = 1
For Each wSheet In Worksheets
   If wSheet.Name <> sh.Name Then
      wSheet.Range("A36:F47").copy sh.Cells(r, 1)
      r = r + 12
   End If
Next

End Sub

riepilogo
di alessio giuseppe (utente non iscritto) data: 20/06/2016 21:40:14
Grazie per la tempestiva risposta.
Va benissimo la "macro prova", però non mantiene i collegamenti, per cui ogni volta che si modifica un dato nei fogli, bisogna lanciare nuovamente la macro per aggiornare il Riepilogo.
Ecco perchè io avevo tentato do riselvere la cosa con "incolla collegamento"
Non è possibile mantenere nel "Riepilogo" i collegamenti, per le celle interessate, ai singoli fogli?
Saluti
Alessio Giuseppe

Vuoi Approfondire?