Questa macro serve ad aggiornare l’estrazione nel file ruota, questo il listato :
Sub Estrazione()
‘
‘ Estrazione Macro aggiorna archivio
‘
Range(“A8527:HT8527”).Select
Selection.Copy
Range(“A8528”).Select
ActiveSheet.Paste
Rows(“2:2”).Select
Range(“L2”).Activate
Selection.Delete Shift:=xlUp
Rows(“8526:8526”).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Da non dimenticare, se si fa il copia incolla, l’incolonnamento. Ora apriamo il file ruota che abbiamo precedentemente costruito e premiamo contemporaneamente ALT+F11, apparirà la pagina VBA:
Continua...