Macro Taglia e Incolla

[Belvel]

Salve a tutti

avrei necessità tramite macro di tagliare i nomi della colonna C nelle posizioni C3, C6, C9, C12, C15, e così via e incollarle nella colonna D nelle celle D1, D3, D6, D9, D12, e così via.

Allego il file da sistemare:

http://www.filedropper.com/test_120

Ho evidenziato in C le celle di origine e in D quelle di destinazione: C3 dovrà andare in D1. C6 dovrà andare in D3 e così via.

Ovviamente i colori li ho messi solo per far capire la mia esigenza.

Grazie per l'aiuto.
Belvel

[Anthony47]

Ad esempio:

Codice: Seleziona tutto

Sub CtoD()
'
lastc = Cells(Rows.Count, "C").End(xlUp).Row
For i = 3 To lastc Step 3
    Cells(i - 2, "D") = Cells(i, "C")
    Cells(i, "C").ClearContents
Next i
End Sub

Ciao

[Belvel]

Grazie infinite Anthony, funziona alla perfezione :-)
Ciao
Belvel