Duplicare righe in un file excel

[draguz87]

Ciao

Ho un problema che mi assilla da anni, ma non ho idea di come fare a risolverlo, in quanto non so assolutamente programmare in visual basic. Anzi non so programmare in generale.

In pratica, ho un file composto da 5 schede, nelle quali ci sono una serie di dati (circa un centinaio a scheda, ma non uguali tra una scheda e l'altra).

Le prime 2 righe sono composte dai titoli e devono restare invariate. le prime 4 colonne (dalla A alla D) devono restare invariate. Dalla colonna K alla colonna N devono restare invariate.

Dalla colonna E alla J, ho i miei dati. partendo dalla riga 4, ho una riga blu e una rossa (riga 4 blu, 5 rossa, 6 blu e via così). quello che devo fare è copiare la riga rossa su quella blu per tutto il file. se fosse possibile fare in modo che la riga appena copiata diventasse blu sarebbe ottimo, ma non indispensabile.

Se qualcuno riuscisse ad aiutarmi mi farebbe un grossissimo favore e mi risparmierebbe un sacco di tempo!

Grazie ciao

[Anthony47]

Intanto "Benvenuto nel forum"

Per capire bene la tua richiesta e per disporre di un ambiente di test ti chiederei di pubblicare un file di esempio, con la giusta struttura e un tot di dati simili a quelli che manipoli tu.
Indica anche quale versione di Excel utilizzi

Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao, ti aspettiamo

[draguz87]

Ciao

Ecco il allegato un wetransfer del file esempio.

https://we.tl/t-VW22LcMgOP

Utilizzo excel per mac, versione 16.41 (del 2019)

Vi ringrazio!

[Marius44]

Ciao
La macro dovrebbe essere questa

Codice: Seleziona tutto

Option Explicit

Sub CopiaIncollaRiga()
Dim ur As Long, i As Long
ur = Cells(Rows.Count, 1).End(xlUp).Row - 1
For i = 4 To ur Step 2
  Range(Cells(i, 5), Cells(i, 10)).Copy
  Cells(i + 1, 5).PasteSpecial Paste:=(xlPasteAll)
  'Range(Cells(I, 5), Cells(I, 10)).ClearContents
Next
End Sub


Se vuoi che l'intervallo appena copiato venga cancellato elimina l'apostrofo nella riga remmata

Fai sapere. Ciao,
Mario

PS - Se vuoi farlo per tutti i Fogli occorre impostare il relativo ciclo

PPS - Noto solo adesso che utilizzi su MAC. Non ho idea se la macro può funzionare anche su MAC

[draguz87]

Ciao

la macro funziona ma c'è un errore:
la riga rossa deve sostituirsi a quella blu, mentre ora la riga blu si sostituisce a quella rossa.
Se riuscissi a risolvermi questo piccolo problema mi faresti un enorme piacere!

Grazie intanto

[Marius44]

Ciao
Basta sostituire con queste due righe

Codice: Seleziona tutto

  Range(Cells(i + 1, 5), Cells(i + 1, 10)).Copy
  Cells(i, 5).PasteSpecial Paste:=(xlPasteAll)

Ovviamente devi adeguare anche la cancellazione (se ti serve)
Fai sapere. Ciao,
Mario

[draguz87]

Ok perfetto!!!!!!

Grazie 100000000!