in riferimento al tuo ultimo messaggio l'aggionamento non avviene
con una periodicità certa, e quindi si puo avere una sola riga o più
righe su cui effettuare i calcoli.
ho pensato invece di procedere in questo modo:
calcolo l'utima riga chiamiamola urini;
aggiorno l'archivio con poche righe;
modifico queste 2 righe delle tue macro da così:
- Codice: Seleziona tutto
Urs = .Cells(Rows.Count, 3).End(xlUp).Row
myVArr = .Range("C8:H" & Urs).Value
in
- Codice: Seleziona tutto
Urs = .Cells(Rows.Count, 3).End(xlUp).Row
myVArr = .Range("C" & urini+1 & ":H" & Urs).Value '<<<<<
in myCnt(mysum) avrò tanti item nulli tranne quelli delle ultime righe calcolate;
a questo punto faccio un ciclo-confronto tra gli item e le celle del foglio dove riporto il risultato del conteggio;
quando l'item è diverso dal valore nullo aumento di 1 il valore della corrispondente cella.
vedrò cosa riesco a produrre.
ciao e grazie