Ciclo doppio copia incolla

[Statix]

Ciao a tutti,
ho qualche difficoltà a fare un ciclo di un doppio copia incolla solo valori,
cerco di spiegare quello che devo fare,
ho un foglio1 dove ho un range AP6:AEJ275 ,
inizio ciclo
la macro deve copiare le prime 5 colonne, range AP6:AT275
e incolla solo valori
nel foglio2 range B4:F273
dopodiche
sempre nel foglio2 copiare il range CU4:CU277 e incollare in CX4,
fine primo ciclo

inizio secondo ciclo
foglio1 copiare le seconde 5 colonne range AU6:AY275
e incolla solo valori
nel foglio2 range B4:F273
dopodiche
sempre nel foglio2 copiare il range CU4:CU277 e incollare in CY4,
fine secondo ciclo
e così via,i cicli in totale sono 155
spero di essere stato chiaro.

[Anthony47]

Questa?

Codice: Seleziona tutto

Sub stralp155()
Sheets("Foglio1").Select
For I = 0 To 154
    Range("AP6").Offset(0, I * 5).Resize(270, 5).Copy
    Sheets("Foglio2").Range("B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    DoEvents
    Sheets("Foglio2").Range("CU4:CU277").Copy Destination:=Sheets("Foglio2").Range("CX4").Offset(0, I)
Next I
End Sub


Ciao