|
|
|
Question : Trying to create a punch in time clock in excel
|
|
Can anyone help? (I am a local government employee with limited software - hence 97 Excel). I manage special events in which 50 to 400 employees report for temporary duty to me (several hours weekly). In the past, a sign-in/sign-out book was used (hard copy) and hand calculate (aughhhh).
Trying to automate this, I am trying to use a laptop with Excel 97 to accomplish a punch-in / punch-out time clock. Here is how far I was able to go on my own:
I created a three sheet workbook, with the main sheet being where I pre-filled one row for each employee. Column A being he date they would be assigned to me, B their name, C their 5-digit payroll, D a cell where I placed the formula: =COUNTIF('SIGN-IN'!B6:B405,C1). Cell C1 on this sheet is where their 5-digit payroll is.
The second sheet was a single (B) column (48-pt font for easy viewing) empty cell. As employees came in, this sheet was active and they would just type in their 5-digit payroll (one employee at a time and faster than when they had to look through the book and find their name to sign in with a time).
The COUNT IF above would then pop a 1 in cell D on the employees correct row.
I then tried two different approaches to get the time in. At first I tried: =IF(D1=1,NOW(),"") At first I was alighted when I saw that when I punched in a 5-digit employee number on the sign-in sheet that matched one of the rows for an employee, a time populated the next column (I thought a time stamp). I then duplicated this with a third sheet Sign-out and two more columns on the main page so I ended up with sign-in times and sign-out times on the right line (1 to 400) for the employee with just a quick 5 digit punch-in. This soon turned to frustration when I discovered the times keep changing as the computer up-dates.
I then tried a macro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim targ As Range, cel As Range
Set targ = Intersect([D6:D426,F6:F426], Target)
If targ Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each cel In targ.Cells
If cel = "" Then
cel.Offset(0, 1).ClearContents
Else
cel.Offset(0, 1) = Now()
End If
Next
Application.EnableEvents = True
End Sub
Which I modified from this site by adding the second column for an out time. This worked great if I manually put a 1 in the cell preceding it, but then when I put the COUNTIF back in so I could use the 5-digit entries to populate the 1 value to generate the time stamp, I found they all (replicated down) immediately filled in a time stamp. The formula itself must act as a value for macro thus defeating my efforts.
At wits end can someone please give me direction?
After an extensive search, no one seems to have answered a question concerning time stamping as unique as this one and to me, at this point it is extremely difficult
Thanks
Dan Lyons
Florida.
|
Answer : Trying to create a punch in time clock in excel
|
|
Hi Daniel,
I think you should be trapping the entry of a payroll number on the SIGN-IN worksheet rather than using a COUNTIF on the summary sheet. Here is a sample workbook showing how it might work: http://home.mchsi.com/~byundt/TimeStampingQ21752419.xls
'Put this sub in the code pane for SIGN-IN worksheet
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range, targ As Range, rgPayroll As Range
Set targ = Intersect(Target, [B6:B405])
If targ Is Nothing Then Exit Sub
For Each cel In targ.Cells
If cel <> "" Then
Set rgPayroll = Worksheets(1).[C:C].Find(cel)
If rgPayroll Is Nothing Then
MsgBox "Please re-enter your payroll number"
GoTo errhandler
Else
If rgPayroll.Offset(0, 1) <> "" Then
MsgBox "You are already signed in."
GoTo errhandler
Else
If MsgBox("Are you " & rgPayroll.Offset(0, -1) & "?", vbYesNo) = vbNo Then GoTo errhandler
rgPayroll.Offset(0, 1) = Now()
End If
End If
End If
Next
Exit Sub
errhandler:
Application.EnableEvents = False
cel.ClearContents
cel.Activate
Application.EnableEvents = True
End Sub
Cheers!
Brad
|
|
|
|
|
|
|
