Timestamp in Excel

[gaetano73]

Ciao a tutti,

ho la necessità di "fissare un momento temporale" al verificarsi di un certo evento (in Excel). Mi spiego meglio.
Se la cella A1 viene riempita (quindi <> ""), la cella B1 deve riportare data e ora del momento in cui questo è avvenuto.
Devo quindi realizzare una sorta di Timestamp della cella A1.
Con quali funzioni/macro lo posso implementare?

Grazie

Gaetano

[Anthony47]

Potrai usare l' evento Worksheet_Change; per un aiuto piu' concreto dovresti spiegare meglio la logica:
-vuoi il timestamp solo quando/tutte le volte che A1 passa da vuoto a non vuoto, o in caso di qualsiasi cambiamento, o solo una volta e poi mai piu'?

Ciao

[gaetano73]

Solo la prima volta che passa da vuoto a non vuoto e mai più.

PS: se non chiedo troppo, mi spieghi come fare anche nel caso di qualsiasi cambiamento?

[Flash30005]

Per inserire la data in B1 solo la prima volta puoi copiare questo codice nel vba del foglio nel quale vari la cella A1

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If ValA1 = "" Then Range("B1").Value = Now
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ValA1 = Range("A1").Value
End Sub

Nel caso in cui vuoi sempre aggiornare la data ad ogni variazione della cella A1 è sufficiente solo questo codice

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Range("B1").Value = Now
End Sub


Per accedere al Vba premi Alt+F11
avrai due finistre in quella di sinistra clicca due volte sul foglio interessato
e a destra incolli il codice che avrai copiato qui
poi inserisci un valore in A1

Ciao

[Anthony47]

Il codice di Flash potrebbe provocare il riaggiornamento di B1 se come prima operazione all' apertura del file si aggiorna A1, e inoltre aggiorna B1 se A1 viene cancellata e poi riscritta.
Il mio suggerimento e':

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Range("B1").Value = "" Then Range("B1").Value = Now
End Sub


Tasto dx sul tab col nome foglio su cui lavori, scegli Visualizza codice, copia il codice e incollalo nel frame di dx, in sostituzione della attuale Sub Worksheet_Change.
In questo modo se B1 contiene gia' un valore non verra' modificata.
Se pensi di fare una procedura fiscale dovresti provvedere a proteggere il foglio per evitare che B1 venga cancellato, provvedendo all' Unprotect prima della scrittura del timestamp e successivo Protect; ovviamente a quel punto dovresti proteggere con password anche l' accesso al codice.

Ciao

[gaetano73]

OK. Perfetto!
Un'ultima informazione:
vorrei che la "regola" fosse applicata a più celle, per esempio ad A1, A2... fino ad A5; detta regola deve agire indipendentemente su ciascuna cella ovvero, all'apertura del file potrei avere A1 e A3 già precedentemente riempite e quindi B1 e B3 già Timestampate. Se poi vado a popolare A2 mi si Timestampa B2 e così via.

Ho provato a modificare il codice come segue:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1:$A$5" Then Exit Sub
If Range("B1").Value = "" Then Range("B1").Value = Now
If Range("B2").Value = "" Then Range("B2").Value = Now
If Range("B3").Value = "" Then Range("B3").Value = Now
If Range("B4").Value = "" Then Range("B4").Value = Now
If Range("B5").Value = "" Then Range("B5").Value = Now
End Sub


Non funziona.
Perdonatemi se ho scritto orrori

PS1: potreste indicarmi un sito dal quale potermi erudire in Visual Basic?
PS2: se non è il momento e/o posto giusto per postare il PS1 vi prego di scusarmi

[Flash30005]

Prova questa

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "A1:B6"
If Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then Exit Sub
RR = Target.Row
Application.EnableEvents = False
If Range("A" & RR).Value <> "" And Range("B" & RR).Value = "" Then Range("B" & RR).Value = Now
Application.EnableEvents = True
End Sub

Ciao

Risp. Ps1 e Ps2 - Questo è il sito giusto!

[gaetano73]

Beautiful!

Se voglio che le celle mi si Timestampino ad ogni riempimento scrivo questo codice:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "A1:B6"
If Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then Exit Sub
RR = Target.Row
Application.EnableEvents = False
If Range("A" & RR).Value <> "" Then Range("B" & RR).Value = Now
Application.EnableEvents = True
End Sub


Giusto?
PS1 e PS2: grazie 1E+1000

[Flash30005]

Si,

Quando cancelli in A non avrai l'aggiornamento di B
e quindi potrai anche cancellare B

Ciao