Time Stamp

[Suma Chennoor]

Hi,

Am a beginner in Excel and trying to create a template for Order Tracking. I want to
auto-capture the start time based on the Order # the Agent keys in and auto-capture the End time based on the Order status.

Am herewith attaching the sample workbook.

Please help.

Thanks,
Suma

 

[Sajan]

Hello Suma,
Welcome to the forum!

When you say "auto-capture", do you mean a quick way to enter the time? If so, go to a cell and press Ctrl + Colon ":" key

(i.e. you will need to press Ctrl + Shift + : since on most keyboards, the : is only available upon shifting.

If you are looking for something else, please clarify.

Cheers,
Sajan.

 

[Debraj]

Hello Suma,
Welcome to the forum!

above is in VBA / Macro.. are you looking for any auto-mated time enter in corresponding cell change..!!
Is VBA acceptable..

 

[Suma Chennoor]

Thanks for the quick response....

Yes Debraj, I want auto-mated time enter in the corresponding cell. VBA might not be acceptable as we also use OpenOffice on Work stations. The objective of capturing the time is to measure the actual time taken to complete data capture.

Please help.

Regard,
Suma

 

[NARAYANK991]

Hi Suma ,

Check your file now.

Narayan

 

[Suma Chennoor]

Hi Suma ,

Check your file now.

Narayan

Thanks Narayan.

It works . Can I have the same function enabled on column H, i.e. if an Agent updates the "Status" column as "Complete" the time should auto-populate in column H.

Regards,
Suma

 

[NARAYANK991]

Hi Suma ,

Check now.

Narayan

 

[Suma Chennoor]

Hi Suma ,

Check now.

Narayan

Thanks Narayan. Am able to see that the time is autopopulated in Start & End time columns.

Will implement this template with my team...

Thanks again

Regards,
Suma

 

[Shekar]

"Excel"lent Narayan, I see there is no macro in this file wanted to understand how it works

 

[NARAYANK991]

Hi Shekar ,

There is a macro , the Worksheet_Change event procedure in the Sheet1 section. Any time the cells in column C or G are changed , this event procedure is triggered. The code is as follows :

Private Sub Worksheet_Change(ByVal Target As Range)
            If Target.Count > 1 Then Exit Sub
       
            If Application.Intersect(Target, Range("$C:$C")) Is Nothing Then
              If Application.Intersect(Target, Range("$G:$G")) Is Nothing Then
                  Exit Sub
              Else
                  Application.EnableEvents = False
       
                  If Target = "Complete" Then Target.Offset(, 1) = Now Else Target.Offset(, 1).ClearContents
       
                  Application.EnableEvents = True
              End If
            Else
              Application.EnableEvents = False
   
              If Target <> "" Then Target.Offset(, 3) = Now Else Target.Offset(, 3).ClearContents
       
              Application.EnableEvents = True
            End If
End Sub

Narayan