M
Marcie
See VBA below. I cannot figure out how to get this to work so that the after
entering in the Name, hours and pay rate for it to calculate the pay and
insert in my worksheet.
Private Sub CommandButtonOk_Click()
If TextBoxEmployeeName.Text = "" Then
MsgBox "You must enter a name."
Exit Sub
End If
NextBlankRow = Application.WorksheetFunction.CountA(Range("ColA")) + 1
'MsgBox (NextBlankRow)
Cells(NextBlankRow, 1) = TextBoxEmployeeName.Text
Cells(NextBlankRow, 2) = TextBoxHours.Value
Cells(NextBlankRow, 3) = TextBoxPayRate.Value
If (Hours > 40) Then
OverTime = Hours - 40
Pay = 40 * PayRate + OverTime * PayRate * 1.5
Else
Pay = 40 * PayRate
End If
TextBoxEmployeeName.Text = ""
TextBoxHours.Value = ""
TextBoxPayRate.Value = ""
TextBoxEmployeeName.SetFocus
End Sub
entering in the Name, hours and pay rate for it to calculate the pay and
insert in my worksheet.
Private Sub CommandButtonOk_Click()
If TextBoxEmployeeName.Text = "" Then
MsgBox "You must enter a name."
Exit Sub
End If
NextBlankRow = Application.WorksheetFunction.CountA(Range("ColA")) + 1
'MsgBox (NextBlankRow)
Cells(NextBlankRow, 1) = TextBoxEmployeeName.Text
Cells(NextBlankRow, 2) = TextBoxHours.Value
Cells(NextBlankRow, 3) = TextBoxPayRate.Value
If (Hours > 40) Then
OverTime = Hours - 40
Pay = 40 * PayRate + OverTime * PayRate * 1.5
Else
Pay = 40 * PayRate
End If
TextBoxEmployeeName.Text = ""
TextBoxHours.Value = ""
TextBoxPayRate.Value = ""
TextBoxEmployeeName.SetFocus
End Sub