Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub CheckStartLast()
- '''''<<<<< Check for error: Employee's last day cannot be before start day.
- payroll_Start = UserForm9.ComboBox21.Value
- payroll_Last = UserForm9.ComboBox22.Value
- payroll_Diff = WorksheetFunction.IfError(payroll_Last - payroll_Start, "-Check-")
- Select Case payroll_Diff
- Case Is = "-Check-"
- Exit Sub
- Case Is >= 0
- Exit Sub
- Case Is < 0
- MsgBox "Employee's start date cannot be after their last day. Doesn't make sense. Does it to you?"
- Case Else
- Exit Sub
- End Select
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement