Ciao a tutti, con le date invertite, bisogna solo invertire il secondo ciclo delle estrazioni come ha proposto Giuseppe qui
ho tolto il "-1" dopo Ur in quanto deve considerare anche l'ultima riga delle estrazioni
si potrebbe anche fare un automatismo che riconosca le date se sono in ordine crescente o decrescente del tipo
if cells(1,1) > cells(2,1) then
For w = Ur To 1 Step -1
else
For w = 1 To Ur
endif scritta al volo dovrebbe funzionare.
Ciao By Sal
![[SM=x423051]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0031.gif)
[Modificato da by sal 24/05/2019 07:24]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie
clicca qui