timesheet event handler

[davejoy]

I want to install a Workbook_SheetSelectionChange Event to simplify my timesheet.

When I click on a new time cell (triggering the event handler), I can sign in or out. At that point I want to be able to enter a 1-4 digits (no colon) so the program outputs the right time with a colon and MINUTES rounded up to the next 1/4-hour (i.e., "9" becomes "9:00"; "913 becomes "9:15", etc.).

Examples for 1-4 digit entries:
9 = 9:00 AM
12 = 12:00 PM
913 = 9:15 AM
1219 = 12:30 PM



Thanks!!!

 

[Smitty]

Welcome to the Board!

I think you'd probably want to use the Before_DoubleClick event instead to prevent errant changes.

As for the rounding part you could try something like this:

Target.Value = Format(Round(Target.Value * 96, 0) / 96, "hh:mm AM/PM")

HTH,

 

[davejoy]

thanx 4 that...
won't be double-clicking a cell, so the workbook_sheetchange event is still apropos...
rounding idea should fix that part...
DJ

___________________________
"Life has a hidden IF inside."