Il codice che ho allegato funziona perfettamente (nel senso che fa quello che mi serve


la mia domanda è : si può velocizzare? forse scrivendo il codice in modo diverso....
Una precisazione... le celle che copio F8 contiene un valore mentre F9 contiene una formula che deve essere copiata perché poi nelle celle di destinazione dovrà fare i suoi conteggi
Grazie in anticipo
Saluti a tutti
- Codice: Seleziona tutto
Sub colonna_riassuntiva()
'
' colonna_riassuntiva Macro
'
' Prelevo la colonna dal foglio DDE
Sheets("DDE").Range("R2").Copy
' La porto sul foglio Consuntivo
Worksheets("Consuntivo").Range("F8").PasteSpecial xlPasteValues
' Inizio a copiare le formule sul foglio Paniere
Sheets("Consuntivo").Range("F8:F9").Copy
Sheets("Panieri").Select
Range("B4").Select
x = Range("A1").Value
For i = 1 To x
ActiveSheet.Paste
ActiveCell.Offset(0, 3).Range("A1").Select
Next i
End Sub