Excel Timesheet

[trigirl]

I have an Excel timesheet, and I am wondering if there is a way to have the timesheet default to PM after 12 noon, so the employees dont have to put in PM, they would just put their time and the sheet would default it to PM.

 

[trigirl]

Sub Button3_Click()
ActiveSheet.Unprotect (rw4455)
InpBx1 = InputBox("Enter the hour you want.")
InpBx2 = InputBox("enter the minutes you want.")
InPBx3 = InputBox("Enter AM or PM ")
Application.ActiveCell.Value = InpBx1 & ":" & InpBx2 & ":" & "00 " & InPBx3
ActiveSheet.Protect (rw4455)
End Sub

What could I add to this to have it just show a info box asking them to double check their time? As maybe InfoBX.....

 

[daniels012]

try this:

ActiveSheet.Unprotect (rw4455)
        InpBx1 = InputBox("Enter the hour you want.")
        InpBx2 = InputBox("enter the minutes you want.")
        InPBx3 = InputBox("Enter AM or PM ")
        TimeClk = InpBx1 & ":" & InpBx2 & ":" & "00 " & InPBx3
        Rspnse = MsgBox("Your Time entered is " & Chr(13) & TimeClk & Chr(13) & " Is this Correct?", vbYesNo)
            If Rspbse = vbNo Then
                Exit Sub
            ElseIf Rspnse = vbYes Then
        Application.ActiveCell.Value = TimeClk
    ActiveSheet.Protect (rw4455)
            End If

Michael

 

[trigirl]

Perfect Thanks