Potresti inviare un .zip o .rar?
Per avviare la macro dalla riga 8 devi solo modificare questa riga-codice
- Codice: Seleziona tutto
For RR = 8 To UR - 1 '<<< inserire 8 invece che 2
Per il colore bianco del font mi sembra strano dovrebbero essere tutti di colore nero
a meno che non hai usato prima la macro ColoraSe3
in tal caso va aggiunta una riga di reset colore all'inizio della macro ColoraSe4
- Codice: Seleziona tutto
Columns("A:F").Interior.ColorIndex = xlNone '<<<< esistente
Columns("A:G").Font.ColorIndex = 0 '<<<< aggiunere
Inoltre mi sono accorto di un errore alla fine della macro colorase4
- Codice: Seleziona tutto
RR = RF '<<<< modificare così per velocizzare il processo
Next RR '<<<< esistente
Per i criteri vriabili da scegliere prima dell'avvio macro si può fare ma vorresti includerli tutti (Da A a F)?
Avrei pensato a dedicare una riga sulla testata dove potrai inserire ad esempio "=" o "<>" che stanno ad indicare rispettivamente uguale o diverso e a seconda della colonna dove li posizioni la macro eseguirà la condizione realativa
(Spero solo che non si complichi troppo)
ciao