[Spirosgr]

Πολλές φορές στα έργα μας, χρειαζόμαστε κατά την πληκτρολόγηση ονόματος ενός προϊόντος για παράδειγμα, να έχουμε στο διπλανό κελί την ημερομηνία και την ώρα καταχώρησης.
Αλλά και να μπορεί να αλλάζει η καταχώρηση αυτή, σε κάθε αλλαγή (Update) του προϊόντος.
Ο πιο κάτω κώδικας δίνει την λύση.
Εισάγετε τον κώδικα στην λειτουργική μονάδα του φύλλου.
Αλλάξτε απλά στην 4η γραμμή την περιοχή σε όποια περιοχή θέλετε να τρέχει ο κώδικας.
Για να γίνει κατανοητό βάλτε όποια στήλη θέλετε να εισάγετε τα προϊόντα.
Παράδειγμα από Sheet1.Range("A2:A10") σε Sheet1.Range("b2:b150")
Όπου Sheet1 το κωδικό όνομα του φύλλου.
Αντί Sheet1.Range("A2:A10") θα μπορούσε να είναι και το όνομα, ονομασμένης περιοχής
Παράδειγμα Sheet1.Range("myRange")
Η 6η γραμμή μπορεί να γίνει και Target(1, 2) = Date αν θέλετε μόνο ημερομηνία ή
Target(1, 2) = Time αν θέλετε μόνο ώρα.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim c As Range
    Set rng = Sheet1.Range("A2:A10")
    If Not Intersect(Target, rng) Is Nothing Then
        Target(1, 2) = Date & " " & Time
    Else: Exit Sub
    End If
End Sub