Kako vremenski kontrolirati kada je podatak unesen
(Nakon upisa podatka pojavljuje se automatski datum i sat unosa)

Ako ste ikada imali potrebu kontrolirati upis podatka u ćeliju pomoću tekućeg datuma i vremena pogledajte način na koji možete nakon unosa podataka imati prikazan datum i sat unosa podatka.

Uzmimo situaciju da se radnici prijavljuju putem mreže (ili na jednom računalu) u određenu datoteku i upisuju kada stignu na posao i odlazak s posla. Nakon upisa svog imena i prezimena automatski se pored pojavljuje datum i sat upisa podatka. Organizacija se može izvesti na više načina, ovdje su osnove a ostale estetske dijelove (protect dokumenta) prepuštam vama. Također pomoću TXT datoteke, kronološki možete pratiti sve korisnike koji su otvarali datoteku (ako se datoteci pristupa putem mreže).

U stupcu B upisuju se radnici. Ostale ćelije su Locked. Svaka promjena u stupcu B u ćelijama bilježi se u stupcu C. Pa tako ako se i ispravljaju podaci ili ponovni unos. Ćelije u stupcu C formatirajte po želji.

Za ovo automatsko pamćenje vremena tj. tekućeg datuma i sata potrebno je slijedeći Macro snimiti u dotični radni list (Sheet)

Dakle kliknite desnom tipkom miša na Sheet "dolazak" => View Code => i u Windows Code umetnite ovaj Macro. Snimite Workbook i isprobajte.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$B$2:$B$5")) Is Nothing Then
Target.Offset(0, 1).FormulaR1C1 = Now()
End If
End Sub

isto tako možete experimentirati sa ovim Macro kodom

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub
If WorksheetFunction.CountBlank(Target) > 1 Then Exit Sub
Target.Offset(0, 2) = Date & " " & Time
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Target.Offset(0, 1) = Date & " " & Time
End Sub

ili možete koristiti ovaj Macro u Worksheet code module

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range("B2:B5"), .Cells) Is Nothing Then
Application.EnableEvents = False
If IsEmpty(.Value) Then
.Offset(0, 1).ClearContents
Else
With .Offset(0, 1)
.NumberFormat = "dd mmm yyyy hh:mm:ss"
.Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
End Sub

Ako želite na jednom Sheetu imati Dolazak i Odlazak (organizacija podataka vama po želji) kao i kontrolu vremena tj. razliku između dva vremena (ugnijezdite je u IF funkciju) tada možete upotrijebiti 2x Macro iznad koji spojite u jedan uz izmjene  raspona ćelija.
Naravno ako želite zbrojiti vremena (sate) tada koristite AutoFilter i SUM preko 24 sata

da bi se osigurali možete dodatno provjeriti kako se određeno računalo putem mreže spajalo i otvaralo datoteku. Kronološki pregled možete kreirati pomoću TXT datoteke a tutorijal pogledajte na linku kronološki pregled otvaranja datoteke kao i ovaj drugi tutorijal Tko je zadnji snimio Workbook sa kronološkim popisom