Private Sub UserForm_Initialize()
With ChooseName
.AddItem "Name1"
.AddItem "Name2"
.AddItem "Name3"
End With
ChooseName.Value = ""
TimeEntry1.Value = ""
TimeEntry2.Value = ""
TimeEntry3.Value = ""
TimeEntry4.Value = ""
TimeEntry5.Value = ""
TimeEntry6.Value = ""
TimeEntry7.Value = ""
TimeEntry8.Value = ""
TimeEntry9.Value = ""
TimeEntry10.Value = ""
TimeEntry11.Value = ""
TimeEntry12.Value = ""
TimeTotal.Value = ""
ChooseName.SetFocus
End Sub
Private Sub ResetButton_Click()
Call UserForm_Initialize
End Sub
Private Sub CancelButton_Click()
Unload Me
End Sub
Private Sub SubmitButton_Click()
If ChooseName.Value = "" Then
MsgBox "Please choose your name, this is Mandatory"
Exit Sub
End If
If TimeEntry1.Value = "" Then
TimeEntry1.Value = "0"
End If
If TimeEntry2.Value = "" Then
TimeEntry2.Value = "0"
End If
If TimeEntry3.Value = "" Then
TimeEntry3.Value = "0"
End If
If TimeEntry4.Value = "" Then
TimeEntry4.Value = "0"
End If
If TimeEntry5.Value = "" Then
TimeEntry5.Value = "0"
End If
If TimeEntry6.Value = "" Then
TimeEntry6.Value = "0"
End If
If TimeEntry7.Value = "" Then
TimeEntry7.Value = "0"
End If
If TimeEntry8.Value = "" Then
TimeEntry8.Value = "0"
End If
If TimeEntry9.Value = "" Then
TimeEntry9.Value = "0"
End If
If TimeEntry10.Value = "" Then
TimeEntry10.Value = "0"
End If
If TimeEntry11.Value = "" Then
TimeEntry11.Value = "0"
End If
If TimeEntry12.Value = "" Then
TimeEntry12.Value = "0"
End If
ActiveWorkbook.Sheets("Data").Activate
Range("A2").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = ChooseName.Value
ActiveCell.Offset(0, 1) = DatePicker.Value
ActiveCell.Offset(0, 2) = TimeEntry1.Value
ActiveCell.Offset(0, 3) = TimeEntry2.Value
ActiveCell.Offset(0, 4) = TimeEntry3.Value
ActiveCell.Offset(0, 5) = TimeEntry4.Value
ActiveCell.Offset(0, 6) = TimeEntry5.Value
ActiveCell.Offset(0, 7) = TimeEntry6.Value
ActiveCell.Offset(0, 8) = TimeEntry7.Value
ActiveCell.Offset(0, 9) = TimeEntry8.Value
ActiveCell.Offset(0, 10) = TimeEntry9.Value
ActiveCell.Offset(0, 11) = TimeEntry10.Value
ActiveCell.Offset(0, 12) = TimeEntry11.Value
ActiveCell.Offset(0, 13) = TimeEntry12.Value
ActiveCell.Offset(0, 14) = TimeTotal.Value
Range("A2").Select
Unload Me
End Sub
Private Sub TimeEntry1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 'Nos 0 - 9
Exit Sub
Case Else
Application.EnableEvents = False
KeyAscii = 0
Application.EnableEvents = True
Beep
End Select
End Sub
Private Sub TimeEntry2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 'Nos 0 - 9
Exit Sub
Case Else
Application.EnableEvents = False
KeyAscii = 0
Application.EnableEvents = True
Beep
End Select
End Sub
Private Sub TimeEntry3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 'Nos 0 - 9
Exit Sub
Case Else
Application.EnableEvents = False
KeyAscii = 0
Application.EnableEvents = True
Beep
End Select
End Sub
Private Sub TimeEntry4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 'Nos 0 - 9
Exit Sub
Case Else
Application.EnableEvents = False
KeyAscii = 0
Application.EnableEvents = True
Beep
End Select
End Sub
Private Sub TimeEntry5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 'Nos 0 - 9
Exit Sub
Case Else
Application.EnableEvents = False
KeyAscii = 0
Application.EnableEvents = True
Beep
End Select
End Sub
Private Sub TimeEntry6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 'Nos 0 - 9
Exit Sub
Case Else
Application.EnableEvents = False
KeyAscii = 0
Application.EnableEvents = True
Beep
End Select
End Sub
Private Sub TimeEntry7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 'Nos 0 - 9
Exit Sub
Case Else
Application.EnableEvents = False
KeyAscii = 0
Application.EnableEvents = True
Beep
End Select
End Sub
Private Sub TimeEntry8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 'Nos 0 - 9
Exit Sub
Case Else
Application.EnableEvents = False
KeyAscii = 0
Application.EnableEvents = True
Beep
End Select
End Sub
Private Sub TimeEntry9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 'Nos 0 - 9
Exit Sub
Case Else
Application.EnableEvents = False
KeyAscii = 0
Application.EnableEvents = True
Beep
End Select
End Sub
Private Sub TimeEntry10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 'Nos 0 - 9
Exit Sub
Case Else
Application.EnableEvents = False
KeyAscii = 0
Application.EnableEvents = True
Beep
End Select
End Sub
Private Sub TimeEntry11_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 'Nos 0 - 9
Exit Sub
Case Else
Application.EnableEvents = False
KeyAscii = 0
Application.EnableEvents = True
Beep
End Select
End Sub
Private Sub TimeEntry12_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 'Nos 0 - 9
Exit Sub
Case Else
Application.EnableEvents = False
KeyAscii = 0
Application.EnableEvents = True
Beep
End Select
End Sub
Private Sub TimeEntry1_Change()
TimeTotal.Value = (TimeEntry1.Value / 1) + (TimeEntry2.Value / 1) + (TimeEntry3.Value / 1) + (TimeEntry4.Value / 1) + (TimeEntry5.Value / 1) + (TimeEntry6.Value / 1) + (TimeEntry7.Value / 1) + (TimeEntry8.Value / 1) + (TimeEntry9.Value / 1) + (TimeEntry10.Value / 1) + (TimeEntry11.Value / 1) + (TimeEntry12.Value / 1)
End Sub
Private Sub TimeEntry2_Change()
TimeTotal.Value = (TimeEntry1.Value / 1) + (TimeEntry2.Value / 1) + (TimeEntry3.Value / 1) + (TimeEntry4.Value / 1) + (TimeEntry5.Value / 1) + (TimeEntry6.Value / 1) + (TimeEntry7.Value / 1) + (TimeEntry8.Value / 1) + (TimeEntry9.Value / 1) + (TimeEntry10.Value / 1) + (TimeEntry11.Value / 1) + (TimeEntry12.Value / 1)
End Sub
Private Sub TimeEntry3_Change()
TimeTotal.Value = (TimeEntry1.Value / 1) + (TimeEntry2.Value / 1) + (TimeEntry3.Value / 1) + (TimeEntry4.Value / 1) + (TimeEntry5.Value / 1) + (TimeEntry6.Value / 1) + (TimeEntry7.Value / 1) + (TimeEntry8.Value / 1) + (TimeEntry9.Value / 1) + (TimeEntry10.Value / 1) + (TimeEntry11.Value / 1) + (TimeEntry12.Value / 1)
End Sub
Private Sub TimeEntry4_Change()
TimeTotal.Value = (TimeEntry1.Value / 1) + (TimeEntry2.Value / 1) + (TimeEntry3.Value / 1) + (TimeEntry4.Value / 1) + (TimeEntry5.Value / 1) + (TimeEntry6.Value / 1) + (TimeEntry7.Value / 1) + (TimeEntry8.Value / 1) + (TimeEntry9.Value / 1) + (TimeEntry10.Value / 1) + (TimeEntry11.Value / 1) + (TimeEntry12.Value / 1)
End Sub
Private Sub TimeEntry5_Change()
TimeTotal.Value = (TimeEntry1.Value / 1) + (TimeEntry2.Value / 1) + (TimeEntry3.Value / 1) + (TimeEntry4.Value / 1) + (TimeEntry5.Value / 1) + (TimeEntry6.Value / 1) + (TimeEntry7.Value / 1) + (TimeEntry8.Value / 1) + (TimeEntry9.Value / 1) + (TimeEntry10.Value / 1) + (TimeEntry11.Value / 1) + (TimeEntry12.Value / 1)
End Sub
Private Sub TimeEntry6_Change()
TimeTotal.Text = CInt(TimeEntry1.Text) + CInt(TimeEntry2.Text) + CInt(TimeEntry3.Text) + CInt(TimeEntry4.Text) + CInt(TimeEntry5.Text) + CInt(TimeEntry6.Text) + CInt(TimeEntry7.Text) + CInt(TimeEntry8.Text) + CInt(TimeEntry9.Text) + CInt(TimeEntry10.Text) + CInt(TimeEntry11.Text) + CInt(TimeEntry12.Text)
End Sub
Private Sub TimeEntry7_Change()
TimeTotal.Text = CInt(TimeEntry1.Text) + CInt(TimeEntry2.Text) + CInt(TimeEntry3.Text) + CInt(TimeEntry4.Text) + CInt(TimeEntry5.Text) + CInt(TimeEntry6.Text) + CInt(TimeEntry7.Text) + CInt(TimeEntry8.Text) + CInt(TimeEntry9.Text) + CInt(TimeEntry10.Text) + CInt(TimeEntry11.Text) + CInt(TimeEntry12.Text)
End Sub
Private Sub TimeEntry8_Change()
TimeTotal.Text = CInt(TimeEntry1.Text) + CInt(TimeEntry2.Text) + CInt(TimeEntry3.Text) + CInt(TimeEntry4.Text) + CInt(TimeEntry5.Text) + CInt(TimeEntry6.Text) + CInt(TimeEntry7.Text) + CInt(TimeEntry8.Text) + CInt(TimeEntry9.Text) + CInt(TimeEntry10.Text) + CInt(TimeEntry11.Text) + CInt(TimeEntry12.Text)
End Sub
Private Sub TimeEntry9_Change()
TimeTotal.Text = CInt(TimeEntry1.Text) + CInt(TimeEntry2.Text) + CInt(TimeEntry3.Text) + CInt(TimeEntry4.Text) + CInt(TimeEntry5.Text) + CInt(TimeEntry6.Text) + CInt(TimeEntry7.Text) + CInt(TimeEntry8.Text) + CInt(TimeEntry9.Text) + CInt(TimeEntry10.Text) + CInt(TimeEntry11.Text) + CInt(TimeEntry12.Text)
End Sub
Private Sub TimeEntry10_Change()
TimeTotal.Text = CInt(TimeEntry1.Text) + CInt(TimeEntry2.Text) + CInt(TimeEntry3.Text) + CInt(TimeEntry4.Text) + CInt(TimeEntry5.Text) + CInt(TimeEntry6.Text) + CInt(TimeEntry7.Text) + CInt(TimeEntry8.Text) + CInt(TimeEntry9.Text) + CInt(TimeEntry10.Text) + CInt(TimeEntry11.Text) + CInt(TimeEntry12.Text)
End Sub
Private Sub TimeEntry11_Change()
TimeTotal.Text = CInt(TimeEntry1.Text) + CInt(TimeEntry2.Text) + CInt(TimeEntry3.Text) + CInt(TimeEntry4.Text) + CInt(TimeEntry5.Text) + CInt(TimeEntry6.Text) + CInt(TimeEntry7.Text) + CInt(TimeEntry8.Text) + CInt(TimeEntry9.Text) + CInt(TimeEntry10.Text) + CInt(TimeEntry11.Text) + CInt(TimeEntry12.Text)
End Sub
Private Sub TimeEntry12_Change()
TimeTotal.Text = CInt(TimeEntry1.Text) + CInt(TimeEntry2.Text) + CInt(TimeEntry3.Text) + CInt(TimeEntry4.Text) + CInt(TimeEntry5.Text) + CInt(TimeEntry6.Text) + CInt(TimeEntry7.Text) + CInt(TimeEntry8.Text) + CInt(TimeEntry9.Text) + CInt(TimeEntry10.Text) + CInt(TimeEntry11.Text) + CInt(TimeEntry12.Text)
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "You can't close the dialog like this!"
End If
End Sub