Ciao
non avevo letto....
Comunque "tiratina d'orecchie!!!"
alll'inizio implementa le colonne da cancellare:
Range("C:C,E:H,I:I,K:N,O:O,Q:T").ClearContents
poi:
se vuoi lasciare le colonne grigie dove andranno a finire i numeri riga, lascia l'istruzione successiva così com'è.
Se invece vuoi eliminare il colore anche dalle colonne grigie:
Range("C:C,E:H,I:I,K:N,O:O,Q:T").Interior.Color = xlNone
poi
.......
Cells(i, mcol - 1) = lettera
Cells(i, mcol + 1) = mData
Cells(i, mcol + 2) = mPerc
Cells(i, mcol + 3) = foglio
Cells(i, mcol + 4) = r '<<<<<<<<
ci saresti dovuta arrivare da sola!!!😉
cari saluti
[Modificato da dodo47 10/05/2020 11:06]
Domenico
Win 10 - Excel 2016