Condividi:        

Macro Taglia e Incolla

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro Taglia e Incolla

Postdi Belvel » 16/01/19 19:00

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
Belvel
Utente Junior
 
Post: 53
Iscritto il: 08/02/18 18:47

Sponsor
 

Re: Macro Taglia e Incolla

Postdi Anthony47 » 16/01/19 22:50

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro Taglia e Incolla

Postdi Belvel » 17/01/19 07:53

Grazie infinite Anthony, funziona alla perfezione :-)
Ciao
Belvel
Belvel
Utente Junior
 
Post: 53
Iscritto il: 08/02/18 18:47


Torna a Applicazioni Office Windows


Topic correlati a "Macro Taglia e Incolla":


Chi c’è in linea

Visitano il forum: Nessuno e 80 ospiti