Help me make a timesheet?

  • Thread starter Thread starter Jon
  • Start date Start date
J

Jon

Hi,

I want to make a simple spreadsheet to keep track of times when I work
from home.

I can add and subtract in time units, but what I now want is to add 2
macro buttons which when clicked will insert the current system date and
time into the next empty cell in the column (let's start at B2 for ease
of explanation, so the second click of hte button will insert into B3,
then B4 etc)

One button will mark the start of a work session, the other will mark
the end.

Thanks for any assistance.
 
Hi Jon,

Are you aware that you can simply select the cell and then Ctrl+Shft+:
followed by Ctrl+: and then Enter will insert the time and date in a cell.
 
Call runit from you button:

Sub FindNxtMtColB()
Application.Goto Reference:="R65336C2"
Selection.End(xlUp).Offset(1).Select

End Sub

Sub InsDtTm()
Selection.Value = Now()
End Sub

Sub runit()
FindNxtMtColB
InsDtTm
End Sub


Date and time to the second will record. Format the column as you wish.
 
Back
Top