Blocco ora e data

Buongiorno, sto realizzando un foglio dove in colonna A devo inserire un numero di registrazione per campioni in entrata e in colonna B devo inserire un numero di registrazione per gli stessi campioni in uscita. Quando inserisco il numero di registrazione in colonna A mi servirebbe che in colonna C uscisse la data e l'ora dell'avvenuta entrata. Mentre quando scrivo in colonna B mi servirebbe la data e l'ora nella colonna D. In modo da poter avere, alla fine dei conti, una differenza oraria tra entrata e uscita. Grazie.

Ciao Davide

Prova con questa macro da inserire nel modulo del foglio interessato.

Grazie mille perchè funziona ed è quello che volevo. Ma in futuro mi servirà la stessa funzione ma in colonne alternate, del tipo:
scrivo in colonna A e voglio data e ora in colonna E, allo stesso tempo scrivo in colonna D e voglio data e ora in colonna F.
Si può fare?

ciao
piccola modifica alla sub() di Alfredo , che saluto

---

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a,d:d")) Is Nothing Then
If Target.Column = 1 Then
Target.Offset(0, 4).Value = Now()
Else
Target.Offset(0, 2).Value = Now()
End If
End If
End Sub

---

Perfetto, è quello che mi serviva =) Grazie ragazzi