ho un problema da risolvere,
ho una macro che deve fare 90 cicli di copia e incolla,
per la maggior parte mi servo del registratore di macro,
la macro in questione è questa ,è la vorrei ottimizzare .
esempio di 4 cicli.
- Codice: Seleziona tutto
Sheets("Top Secret").Select
Range("J1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "0"
Range("AN2:AX2").Select
Selection.Copy
Sheets("Memo").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2:L2").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Top Secret").Select
Range("J1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1"
Range("AN2:AX2").Select
Selection.Copy
Sheets("Memo").Select
Range("B3:L3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2:L2").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Top Secret").Select
Range("J1").Select
ActiveCell.FormulaR1C1 = "2"
Range("I4").Select
Range("AN2:AX2").Select
Selection.Copy
Sheets("Memo").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2:L2").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Top Secret").Select
Range("J1").Select
ActiveCell.FormulaR1C1 = "3"
Range("I4").Select
Range("AN2:AX2").Select
Selection.Copy
Sheets("Memo").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2:L2").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Top Secret").Select
Range("J1").Select
ActiveCell.FormulaR1C1 = "4"
Range("I4").Select
Range("AN2:AX2").Select
Selection.Copy
Sheets("Memo").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2:L2").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Top Secret").Select