Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Str(Answer) Question
Below is some programming I have put in an excel timesheet spreadsheet. What
I am wanting to do is to take the total hours add them up, and if over 40 a message box that say you have X number of extra hours. I can get the Str(answer) to appear in the message box but it returns a value of 0 instead of the true number. What am I missing? If Range("P28").Value 40 And Range("P19").Value = "" And Range("Q19").Value = "" Then Answer = MsgBox("You have" & Str(Answer) & "extra hours, Do you want to split these hours between Overtime and Comp Time?", vbYesNo + vbQuestion, "Week 1 Split") If Answer = vbYes Then strInput = InputBox("How much time as Overtime?", "OT") Range("P19").Value = strInput strInput = InputBox("How much time as Comp Time?", "Comp") Range("Q19").Value = strInput Else If Answer = vbNo Then answer1 = MsgBox("You've elected NOT to split your hours between OT and Comp.", vbOK, "Monday Confirm") If answer1 = vbOK Then answer2 = MsgBox("Do you want the time as OT (click Yes) or Comp (click No)?", vbYesNo, "Monday OT/Comp2") If answer2 = vbYes Then Range("P19").Formula = Formula1 Else If answer2 = vbNo Then Range("Q19").Formula = Formula1 End If End If End If End If End If End If |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Str(Answer) Question
I don't see any code prior to this line that assigns a value to "answer". As
far as I can tell, at this point "answer" has a value of 0. Answer = MsgBox("You have" & Str(Answer) & "extra hours, Do you want to split these hours between Overtime and Comp Time?", vbYesNo + vbQuestion, "Week 1 Split") You could try: Answer = MsgBox("You have " & Format(Range("P28").Value - 40, "0.00") & " extra hours, Do you want to split these hours between Overtime and Comp Time?", vbYesNo + vbQuestion, "Week 1 Split") "bumper338" wrote: Below is some programming I have put in an excel timesheet spreadsheet. What I am wanting to do is to take the total hours add them up, and if over 40 a message box that say you have X number of extra hours. I can get the Str(answer) to appear in the message box but it returns a value of 0 instead of the true number. What am I missing? If Range("P28").Value 40 And Range("P19").Value = "" And Range("Q19").Value = "" Then Answer = MsgBox("You have" & Str(Answer) & "extra hours, Do you want to split these hours between Overtime and Comp Time?", vbYesNo + vbQuestion, "Week 1 Split") If Answer = vbYes Then strInput = InputBox("How much time as Overtime?", "OT") Range("P19").Value = strInput strInput = InputBox("How much time as Comp Time?", "Comp") Range("Q19").Value = strInput Else If Answer = vbNo Then answer1 = MsgBox("You've elected NOT to split your hours between OT and Comp.", vbOK, "Monday Confirm") If answer1 = vbOK Then answer2 = MsgBox("Do you want the time as OT (click Yes) or Comp (click No)?", vbYesNo, "Monday OT/Comp2") If answer2 = vbYes Then Range("P19").Formula = Formula1 Else If answer2 = vbNo Then Range("Q19").Formula = Formula1 End If End If End If End If End If End If |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Str(Answer) Question
That works great. Thanks,
"JMB" wrote: I don't see any code prior to this line that assigns a value to "answer". As far as I can tell, at this point "answer" has a value of 0. Answer = MsgBox("You have" & Str(Answer) & "extra hours, Do you want to split these hours between Overtime and Comp Time?", vbYesNo + vbQuestion, "Week 1 Split") You could try: Answer = MsgBox("You have " & Format(Range("P28").Value - 40, "0.00") & " extra hours, Do you want to split these hours between Overtime and Comp Time?", vbYesNo + vbQuestion, "Week 1 Split") "bumper338" wrote: Below is some programming I have put in an excel timesheet spreadsheet. What I am wanting to do is to take the total hours add them up, and if over 40 a message box that say you have X number of extra hours. I can get the Str(answer) to appear in the message box but it returns a value of 0 instead of the true number. What am I missing? If Range("P28").Value 40 And Range("P19").Value = "" And Range("Q19").Value = "" Then Answer = MsgBox("You have" & Str(Answer) & "extra hours, Do you want to split these hours between Overtime and Comp Time?", vbYesNo + vbQuestion, "Week 1 Split") If Answer = vbYes Then strInput = InputBox("How much time as Overtime?", "OT") Range("P19").Value = strInput strInput = InputBox("How much time as Comp Time?", "Comp") Range("Q19").Value = strInput Else If Answer = vbNo Then answer1 = MsgBox("You've elected NOT to split your hours between OT and Comp.", vbOK, "Monday Confirm") If answer1 = vbOK Then answer2 = MsgBox("Do you want the time as OT (click Yes) or Comp (click No)?", vbYesNo, "Monday OT/Comp2") If answer2 = vbYes Then Range("P19").Formula = Formula1 Else If answer2 = vbNo Then Range("Q19").Formula = Formula1 End If End If End If End If End If End If |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Str(Answer) Question
Glad that helped. Thanks for the feedback.
"bumper338" wrote: That works great. Thanks, "JMB" wrote: I don't see any code prior to this line that assigns a value to "answer". As far as I can tell, at this point "answer" has a value of 0. Answer = MsgBox("You have" & Str(Answer) & "extra hours, Do you want to split these hours between Overtime and Comp Time?", vbYesNo + vbQuestion, "Week 1 Split") You could try: Answer = MsgBox("You have " & Format(Range("P28").Value - 40, "0.00") & " extra hours, Do you want to split these hours between Overtime and Comp Time?", vbYesNo + vbQuestion, "Week 1 Split") "bumper338" wrote: Below is some programming I have put in an excel timesheet spreadsheet. What I am wanting to do is to take the total hours add them up, and if over 40 a message box that say you have X number of extra hours. I can get the Str(answer) to appear in the message box but it returns a value of 0 instead of the true number. What am I missing? If Range("P28").Value 40 And Range("P19").Value = "" And Range("Q19").Value = "" Then Answer = MsgBox("You have" & Str(Answer) & "extra hours, Do you want to split these hours between Overtime and Comp Time?", vbYesNo + vbQuestion, "Week 1 Split") If Answer = vbYes Then strInput = InputBox("How much time as Overtime?", "OT") Range("P19").Value = strInput strInput = InputBox("How much time as Comp Time?", "Comp") Range("Q19").Value = strInput Else If Answer = vbNo Then answer1 = MsgBox("You've elected NOT to split your hours between OT and Comp.", vbOK, "Monday Confirm") If answer1 = vbOK Then answer2 = MsgBox("Do you want the time as OT (click Yes) or Comp (click No)?", vbYesNo, "Monday OT/Comp2") If answer2 = vbYes Then Range("P19").Formula = Formula1 Else If answer2 = vbNo Then Range("Q19").Formula = Formula1 End If End If End If End If End If End If |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|