Excel con macro

Ciao, in questa cartella c'è un foglio denominato Foglio1 dove all'interno, nelle celle C2:G vengono inseriti dei numeri.
Nel foglio denominato estrazioni Totali, nelle celle F2/F31 e N2/N31 con su riportato Rit Attuale e nelle celle G2/G31 e O2/O31 con su riportato Ritardo Storico.
Non essendo esperto. Pastrocciando, ho messo una macro presa da altra cartella, ma non riesco a farla funzionare.
Spero che qualche esperto riesca ad aiutarmi.
In pratica il ritardo attuale è contando dall'ultima estrazione in archivio. Mentre il ritardo storico è nient'altro che il ritardo più elevato riscontrato nelle precedenti estrazioni.
Se non mi sono spiegato bene, chi sa leggere il visual inserito capirà sicuramente quello che vorrei.
Grazie infinite

Ho trovato questa formula per il ritardo attuale "Potrebbe bastare anche così" però non so adattarla.
=CONTA.VALORI(Archivio!$B:$B)-GRANDE(SE(SCARTO(Archivio!$B$1;;CONFRONTA($C6;Archivio!$B$1:$BA$1;0)-1;CONTA.VALORI(Archivio!$B:$B);5)=AF25;RIF.RIGA(INDIRETTO("1:"&CONTA.VALORI(Archivio!$B:$B))));1)

Il mio PC dice che l'allegato è rovinato
Nel caso contenga VBA devi zipparlo

Rieccolo, a me funziona

Prova con ZIP

Come posso fartelo avere ?
c'è qualcun'altro che ha riscontrato questo errore ?

Ecco il file con Winzip
Spero vada

Innanzi tutto quel codice va messo "nel foglio" e non in un "Modulo"
Presumo sia in Estrazioni Totali
In Excel, seleziona la linguetta del foglio Estrazioni Totali, mouse destro/Visualizza codice ed incolla il codice sulla destra
2) un errore, presumo sia la riga>>>Set mRng = Range("A2:A31,I2:I31")
Perchè in A31 non c'è nulla, prova con Set mRng = Range("A2:A30,I2:I30")

Per il resto non ho capito cosa faccia...

Ciao raffaele1953, ho provato ma non va, sicuramente perché non sono molto esperto.
Comunque grazie infinite

Ciao
ho rifatto la macro, controlla se va bene. Vale solo per la colonna di sinistra (num da 1 a 30). Se fosse corretta, la copy in una nuova macro, cambiando nome, e la adatti alla parte destra (num da 31 a 55).

Poi dalla prima fai una call alla seconda.

Se i valori differiscono di 1, provvedi a variare le righe (verso la fine):

Cells(j, 6) = aT
.....
Cells(j, 7) = sT - 1

(aT=attuale - sT=storico)


aggiungendo o togliendo la corretta differenza (+ oppure - 1)

Saluti

Ciao dodo47, grazie infinite

Ciao Dodo, per quanto riguarda l'altra colonna devo ricreare altro tasto e quindi nuova macro ?
ossia riutilizzare la tua cambiando nome ?
Non è possibile utilizzare stesso tasto ?

Ciao
Ho fatto la modifica, ma non funziona per la seconda colonna.
Ho sbagliato qualcosa ?
Scusa ma proprio non riesco.
Allego il file