Eh, avevo capito l'opposto di quel che vorresti fare.
Prova con questa macro da inserire in un modul standard del vba:
- Codice: Seleziona tutto
Sub popolar()
Dim cRCol As Integer, cR As String, I As Integer
If Not IsDate(ActiveCell.Value) Or ActiveCell = "" Then
MsgBox ("Selezionare una data Finale valida su foglio archivio")
Exit Sub
End If
'
For I = 1 To 10
cRCol = I * 5 - 1
cR = Cells(2, cRCol)
With Sheets(cR)
.Range(.Range("B2"), .Range("F2").End(xlDown)).ClearContents
If ActiveCell.Row < (3 + 180) Then irow = 4 Else irow = ActiveCell.Row - 179
Range(Cells(irow, cRCol), Cells(ActiveCell.Row, cRCol + 4)).Copy
.Range("B2").PasteSpecial Paste:=xlPasteValues
End With
Next I
Application.CutCopyMode = False
MsgBox ("Teminato...")
End Sub
Operativamente, partendo dal foglio Excel:
-premi Alt-F11 per aprire l'editor delle macro
-Menu /Inserisci /Modulo
-Copia il codice e incollalo nel frame dx del modulo appena creato
Poi torna su Excel e vai su foglio Archivio; seleziona in colonna C la data finale del blocco che si vuole esportare, lancia la macro PoPolar:
-premi Alt-F8
-seleziona PoPolar dall'elenco di macro disponibili
-premi Esegui
Volendo puoi assegnare alla macro un pusante o un tasto di scelta breve, o una icona da inserire nella Barra di Accesso Rapido, in modo da avviarla piu' comodamente.
La macro dovrebbe copiare in ogni foglio un blocco di 180 estrazioni; o tutte quelle disponibili se si sceglie una data finale che non contiene 180 estrazioni.
Il file dovra' essere salvato nel formato .xlsm (macro enabled).
Fai sapere...