Memorizzare data del sottoscorta di cella e non modificarla

Buongiorno,

Ho letto un po' di discussioni inerenti ma non sono stato in grado di riconoscere la mia esigenza.
Per cui metto un post nuovo.
Ho un foglio excel per gestire il magazzino ricambi; tiene quindi traccia delle giacenze e degli eventuali sotto-scorta che vengono a realizzarsi qualora la giacenza sia inferiore ad un livello dichiarato.(scorta minima)
Ora la mia necessità è tenere traccia della data in cui si è verificato il sotto-scorta in modo da evidenziare i giorni da quuella data ad oggi. Lo scopo è dare priorità ai reintegri del magazzino.
Alla riapertura del file è possibile ordinare in base alla temporale dal sottoscorta.
Quando invece non si è sottoscorta (o viene ripristinato il magazzino) il valore viene cancellato.


Pensavo di aver risolto utilizzando:

Function DataOggi(cella As Range)
DataOggi = Now
End Function

Purtroppo tutte le volte che faccio un "filtra" mi ricalcola il valore della data, rendendo inutile la mia formula.
Avete suggerimenti?

Provo anche ad allegare il foglio con alcune righe di magazzino per rendere più comprensibile la cosa


Grazie

Ciao Alberto

Non entrando nel merito del funzionamento del tuo file voglio solo dire che la tua function andrebbe scritta così (senza argomenti):

Comunque essendo una Function che restituisce Now oggi Now avrà un valore ma domani ne avrà un altro.

Secondo me, invece che una function va utilizzata una sub (macro) che ti pone nelle celle il valore statico di Now.

Ciao
la formula in col. Z analizza il contenuto di due colonne: I e J entrambe ad input manuale a quanto si vede.

Pertanto, seguendo il giusto suggerimento di Alfredo, credo che tu dovresti inserire in Z una data "fissa" che corrisponde al giorno in cui vari una delle due citate colonne.

Se è corretto questo ragionamento, potresti sfruttare l'evento change del foglio, mirato alle colonne I e J e, di conseguenza inserire la data.

Qualcosa del tipo:
Private Sub Worksheet_Change(ByVal Target As Range)
if not intersect(target,range("I2:Jxx)) is nothing then
cells(target.row,26)=now
....

In questo modo la data viene inserita senza formule.

saluti

Alberto quello che ha esplicitato Domenico (che saluto) è un po' quello che volevo dire io.

Con quel codice ogni volta che viene modificata "fisicamente" una cella delle colonne I/J
viene inserita in colonna Z sulla stessa riga della cella oggetto di modifica la data in modalità statica.

Buonasera a tutti.
Vi ringrazio per l'attenzione e i consigli dati.
Primi di iniziare a scrivere la macro che mi avete suggerito ho questo dubbio: il fatto di filtrare le righe e le colonne secondo diverse modalità (colore piuttosto sto che nome, ECC...) è un evento che mi modifica il campo del "intersect "?
Se fosse così allora non avrei risolto il problema....e tutte le volte mi si andrebbe a riaggiornare a "now" il campo relativo alla data in cui si è realizzato il sotto scorta.

Grazi di nuovo.
Scusate l'insistenza...ma sono in braghe di tela.

Il Now una volta inserito non cambierà quindi tu scrivi la macro provala e se ci saranno problemi vedremo.

Domattina mi metto al lavoro...

Provato e funziona in un piccolo template!!!
Mille grazie davvero!!!

Provo ad integrare il tutto dentro il mio foglio magazzino e se avrò dei problemi mi faccio vivo.


Grazie ancora e buona giornata

ps...ho visto che mi sono registrato con 14 anni. E' stato un errore. Ne ho qualcuno in più...