Forum - VBA Κώδικας εισαγωγής Ημέρας ή και Ώρας (DateStamp)

Πολλές φορές στα έργα μας, χρειαζόμαστε κατά την πληκτρολόγηση ονόματος ενός προϊόντος για παράδειγμα, να έχουμε στο διπλανό κελί την ημερομηνία και την ώρα καταχώρησης.
Αλλά και να μπορεί να αλλάζει η καταχώρηση αυτή, σε κάθε αλλαγή (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