View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Rich Mcc
 
Posts: n/a
Default timestamp functions

you could put a pic (small clock ect) in the cell you want the time to be
logged and link it to the macro below,, this will insert the time in place of
the pic (means only have to click to enter the time)

Sub enter_time()
Dim sAddress As String
sAddress = ActiveSheet.Shapes(Application.Caller).TopLeftCell .Address(0,
0)
Range(sAddress).Select
ActiveCell.FormulaR1C1 = "=NOW()"
ActiveCell.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Selection.NumberFormat = "hh:mm"
ActiveSheet.Shapes(Application.Caller).Delete
ActiveSheet.Protect
End Sub




"alexfthe" wrote:

I have a spreadsheet that crunches averages, deviations, and such for running
times of scenes, acts, and entire performances of theatrical productions
based on start and end times for each unit of the production. However, it is
very difficult for a stage manager to constantly enter the time while calling
cues--I have found the control shift semicolon shortcut, but would prefer a
function that updates itself on the return key, allowing a single keystroke
to both update a field and advance to the next one. Is there a way to do
this?