Time entry

[srburk]

I am currently coordinating a time study to measure productivity. Employees must enter different times into a simple spreadsheet each day and then email their spreadsheet to me.

The complaint has been that they don't like entering the ":" in the time.

How do I format the cell to act like an input mask... all they would have to do is enter the numbers. The field would automatically format.

Example:

They enter: 1104
The cell shows: 11:04 AM

Thanks for any help you can offer!

 

[Dave Hawley]

Hi Scott

Right click on the sheet name tab. select "view Code" and paste in this


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
If IsNumeric(Target) Then
Application.EnableEvents = False
Target = Left(Target, 2) & ":" & Right(Target, 2)
Application.EnableEvents = True
End If
End If
End Sub


This restricts the automatic time conversion to A1:A1000