Attendance Tracker

1Option Explicit
2 
3' Attendance Tracker — daily check-in with per-employee summary and
4' automatic PTO deduction.
5 
6Public Sub CheckIn()
7    Dim ws As Worksheet, employee As String, today As Date
8    today = Date
9    employee = Application.InputBox("Employee ID:", Type:=2)
10    If employee = "False" Or Len(employee) = 0 Then Exit Sub
11 
12    Set ws = ThisWorkbook.Worksheets("Log")
13    With ws.Cells(ws.Rows.Count, "A").End(xlUp).Offset(1)
14        .Value = today
15        .Offset(0, 1).Value = employee
16        .Offset(0, 2).Value = Time
17        .Offset(0, 3).Value = "Present"
18    End With
19 
20    Call UpdateMonthlySummary(employee, today)
21End Sub
22 
23Public Sub ApplyPTO(employee As String, days As Double)
24    Dim ws As Worksheet
25    Set ws = ThisWorkbook.Worksheets("PTO")
26    Dim r As Range
27    Set r = ws.Range("A:A").Find(What:=employee, LookAt:=xlWhole)
28    If r Is Nothing Then Err.Raise 5, , "Unknown employee: " & employee
29    r.Offset(0, 2).Value = r.Offset(0, 2).Value - days
30End Sub