Sub startingtime()
'
' startingtime Macro
' Macro recorded 19.9.2002 by YLIJOHE
'
' Keyboard Shortcut: Ctrl+Shift+S
'
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Sub STOPtimecount()
'
' STOPtimecount Macro
' Macro recorded 19.9.2002 by YLIJOHE
'
' Keyboard Shortcut: Ctrl+Shift+T
'
Range("A2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-1]C-R[-2]C"
Selection.NumberFormat = "mm:ss.0"
Range("A1:A3").Select
Selection.NumberFormat = "h:mm"
End Sub
Is this what You are looking for?
Obviously You are looking for something that would ADD the hours form your previous editing sessions and THIS session together.
These Two functions give hours from THIS session, all You have to do is summ it somehere to TOTAL HOURS?
This message was edited by ylijohe on 2002-09-19 01:05