Excel

[Statix]

Ciao a tutti ,
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

[Anthony47]

Se non sbaglio hai un ciclo che ripeti con J1=0/1/2/3.
Di conseguenza puoi impostare un ciclo di questo tipo:

Codice: Seleziona tutto

For I=0 to 3
Sheets("Top Secret").Select
Range("J1").value = I
'le tue istruzioni di
'copia, cambia foglio, incolla speciale,
'shift in basso
Next I


Ciao.

[Statix]

Ciao Anthony47,
modificata e provata, la macro è ok.
imparato ancora un pezzettino,questa macro mi serviva da tempo .
grazie.