Employee punch clock with Employee and order # input

[mattayom]

I'd like a punch-clock spreadsheet that uses a form control box to input employee # and order #, with time-in and time-out.

Employees can clock on to multiple orders at once, and multiple employees can clock on to the same order.

 

[cerfani]

I'll take one too!









no seriously, have you tried to make something. Do you not know where to start?

 

[ranman256]

make a user form
put a box for each item you need; txtEmpNum, txtOrderNum, txtDate
1 combo box to choose IN or OUT.
a button to save.

date field holds both date and time 1/1/18 9:00 am
the button click event will save the record

public btnSave_click()
  Sheets("Data").select
  FindNextFreeRec
  
  activecell.offset(0,0).value = txtEmpNum 
  activecell.offset(0,1).value = txtOrderNum
  activecell.offset(0,2).value = txtDate
  activecell.offset(0,3).value = cboIO
end sub

Public Sub FindNextFreeRec()
Range("A1").Select
Select Case True
   Case ActiveCell.Value = ""
   Case ActiveCell(1, 0).Value = ""
        NextRow
   Case Else
        FarDown
        NextRow
End Select
End Sub


Private Sub NextRow()
ActiveCell.Offset(1, 0).Select
End Sub


Sub FarDown()
    Selection.End(xlDown).Select
End Sub

 

[mattayom]

make a user form
put a box for each item you need; txtEmpNum, txtOrderNum, txtDate
1 combo box to choose IN or OUT.
a button to save.

date field holds both date and time 1/1/18 9:00 am
the button click event will save the record

public btnSave_click()
  Sheets("Data").select
  FindNextFreeRec
  
  activecell.offset(0,0).value = txtEmpNum 
  activecell.offset(0,1).value = txtOrderNum
  activecell.offset(0,2).value = txtDate
  activecell.offset(0,3).value = cboIO
end sub

Public Sub FindNextFreeRec()
Range("A1").Select
Select Case True
   Case ActiveCell.Value = ""
   Case ActiveCell(1, 0).Value = ""
        NextRow
   Case Else
        FarDown
        NextRow
End Select
End Sub


Private Sub NextRow()
ActiveCell.Offset(1, 0).Select
End Sub


Sub FarDown()
    Selection.End(xlDown).Select
End Sub

ranman256 thanks for that, but that just enters a new line every time. Is there a way to verify what the employee is clocking onto is right? So if someone is already clocked into an order and they try to clock in, it throws an error instead of having two clock-in entries without the first one clocked out?