Ps. Se le celle unite fossero 6 (giorni settimanali), con 5,4,3,2,1,0 appaiono dei zeri. Se le celle unite sono 3 (causa un festivo), non puoi mettere 2,1,0
La procedura funziona grazie al Worksheet_Change, che da parte sua ha dei grossi limiti. Non sopporta il copia/incolla (andrebbe in errore), se inserisci un carattere, invece di un numero (andrebbe in errore). Bisognerebbe fargli delle contromisure agli errori, mà potrebbero essere errori infiniti. Di norma (l'errore) si visualizza quando appare una maschera grigia (errore di run-time 13) con due bottoni. Se premi "Debug" (ti fà vedere la riga gialla con l'errore da correggere), se premi "Fine" esci dalla procedura disabilitandolo fino alla chiusura del files. Per qualsiasi motivo che sia successo, non controlla più nulla e stà a Te ripulire/mettere a posto/farlo rifunzionare.
Per funzionare nuovamente chiudi/riapri oppure vai in Festivi e premi abilita.
Comunque (grazie a Te) ho trovato un'altro mio errore di scrittura VBA.
Se vai in BASE premi ALT+F11, sulla destra vedrai 9 righe simili (cambiano solo le sigle) CC = "AA". Le nove righe successive saranno...
If Cells(Target.Row, 1) = "" Then R = 1 Else R = Cells(Target.Row, 1)
Devono diventare ...
If Cells(Target.Row, 2) = "" Then R = 1 Else R = Cells(Target.Row, 2)
La prossima volta, allega l'ultimo (quello con le formule fatte) che ricontrollo. Non serve quotare tutto il post
EDIT >>>dicembre, invece al secondo metti CONFRONTA(DATA($K$2+1;1;1)
Forse è meglio mettere CONFRONTA(DATA($K$2;12;31)
[Modificato da ABCDEF@Excel 23/07/2020 14:49]