|
Nested Ifs
I need 3 consecutive message boxes to show if conditions are met
and User responds yes. I can make 2 work but I can't get the 3rd IF to work. e.g., This portion works fine: -------------------------------- If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then MsgBox " Are you sure?",vbYesNoCancel -------------------- 'This last one is the one I need help with: If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel ------------------------------ Thanks in advance, you are all great! |
Nested Ifs
If date1 Date Then
MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel End If End If Indenting helps to see the flow. -- HTH RP "Myriam" wrote in message ... I need 3 consecutive message boxes to show if conditions are met and User responds yes. I can make 2 work but I can't get the 3rd IF to work. e.g., This portion works fine: -------------------------------- If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then MsgBox " Are you sure?",vbYesNoCancel -------------------- 'This last one is the one I need help with: If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel ------------------------------ Thanks in advance, you are all great! |
Nested Ifs
Thanks, Bob,
I appreciate it! "Bob Phillips" wrote: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel End If End If Indenting helps to see the flow. -- HTH RP "Myriam" wrote in message ... I need 3 consecutive message boxes to show if conditions are met and User responds yes. I can make 2 work but I can't get the 3rd IF to work. e.g., This portion works fine: -------------------------------- If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then MsgBox " Are you sure?",vbYesNoCancel -------------------- 'This last one is the one I need help with: If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel ------------------------------ Thanks in advance, you are all great! |
Nested Ifs
Bob,
I thought I had it all but I am still having trouble with the vbNo. Where do you position the vbNo 'do nothing ? Thanks, "Bob Phillips" wrote: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel End If End If Indenting helps to see the flow. -- HTH RP "Myriam" wrote in message ... I need 3 consecutive message boxes to show if conditions are met and User responds yes. I can make 2 work but I can't get the 3rd IF to work. e.g., This portion works fine: -------------------------------- If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then MsgBox " Are you sure?",vbYesNoCancel -------------------- 'This last one is the one I need help with: If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel ------------------------------ Thanks in advance, you are all great! |
Nested Ifs
Myriam,
As it is the vbNo does nothing already. YOu are not referring to the first message are you? -- HTH RP "Myriam" wrote in message ... Bob, I thought I had it all but I am still having trouble with the vbNo. Where do you position the vbNo 'do nothing ? Thanks, "Bob Phillips" wrote: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel End If End If Indenting helps to see the flow. -- HTH RP "Myriam" wrote in message ... I need 3 consecutive message boxes to show if conditions are met and User responds yes. I can make 2 work but I can't get the 3rd IF to work. e.g., This portion works fine: -------------------------------- If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then MsgBox " Are you sure?",vbYesNoCancel -------------------- 'This last one is the one I need help with: If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel ------------------------------ Thanks in advance, you are all great! |
Nested Ifs
Yes, Bob, I still need more help.
See below: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response =vbNo 'do nothing ElseIf Response = vbYes Then MsgBox "Do Action",vbYesNoCancel If Response=vbNo 'do nothing ElseIf Response =vbYes Save....etc.....do the specified action End If End If End If ---------------------- The 1st vbNo 'do nothing works fine. It is the second response that still preforms the actions as if the response had been a vbYes. In other words vbYes and vb No perform the action that should only be done if vbYes is pressed. Thanks! --------------------- "Bob Phillips" wrote: Myriam, As it is the vbNo does nothing already. YOu are not referring to the first message are you? -- HTH RP "Myriam" wrote in message ... Bob, I thought I had it all but I am still having trouble with the vbNo. Where do you position the vbNo 'do nothing ? Thanks, "Bob Phillips" wrote: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel End If End If Indenting helps to see the flow. -- HTH RP "Myriam" wrote in message ... I need 3 consecutive message boxes to show if conditions are met and User responds yes. I can make 2 work but I can't get the 3rd IF to work. e.g., This portion works fine: -------------------------------- If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then MsgBox " Are you sure?",vbYesNoCancel -------------------- 'This last one is the one I need help with: If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel ------------------------------ Thanks in advance, you are all great! |
Nested Ifs
Myriam,
How is this? If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox(" Are you sure?", vbYesNoCancel) If Response = vbNo Then 'do nothing ElseIf Response = vbYes Then Response = MsgBox("Do Action", vbYesNoCancel) If Response = vbNo Then 'do nothing ElseIf Response = vbYes Then Save....etc.....do the specified action End If End If End If -- HTH RP "Myriam" wrote in message ... Yes, Bob, I still need more help. See below: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response =vbNo 'do nothing ElseIf Response = vbYes Then MsgBox "Do Action",vbYesNoCancel If Response=vbNo 'do nothing ElseIf Response =vbYes Save....etc.....do the specified action End If End If End If ---------------------- The 1st vbNo 'do nothing works fine. It is the second response that still preforms the actions as if the response had been a vbYes. In other words vbYes and vb No perform the action that should only be done if vbYes is pressed. Thanks! --------------------- "Bob Phillips" wrote: Myriam, As it is the vbNo does nothing already. YOu are not referring to the first message are you? -- HTH RP "Myriam" wrote in message ... Bob, I thought I had it all but I am still having trouble with the vbNo. Where do you position the vbNo 'do nothing ? Thanks, "Bob Phillips" wrote: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel End If End If Indenting helps to see the flow. -- HTH RP "Myriam" wrote in message ... I need 3 consecutive message boxes to show if conditions are met and User responds yes. I can make 2 work but I can't get the 3rd IF to work. e.g., This portion works fine: -------------------------------- If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then MsgBox " Are you sure?",vbYesNoCancel -------------------- 'This last one is the one I need help with: If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel ------------------------------ Thanks in advance, you are all great! |
Nested Ifs
It's still doing the same. vbNo and Cancel are acting just like vbYes in the
last msg. Does it work in yours? Maybe I need to clean my wkbk? "Bob Phillips" wrote: Myriam, How is this? If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox(" Are you sure?", vbYesNoCancel) If Response = vbNo Then 'do nothing ElseIf Response = vbYes Then Response = MsgBox("Do Action", vbYesNoCancel) If Response = vbNo Then 'do nothing ElseIf Response = vbYes Then Save....etc.....do the specified action End If End If End If -- HTH RP "Myriam" wrote in message ... Yes, Bob, I still need more help. See below: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response =vbNo 'do nothing ElseIf Response = vbYes Then MsgBox "Do Action",vbYesNoCancel If Response=vbNo 'do nothing ElseIf Response =vbYes Save....etc.....do the specified action End If End If End If ---------------------- The 1st vbNo 'do nothing works fine. It is the second response that still preforms the actions as if the response had been a vbYes. In other words vbYes and vb No perform the action that should only be done if vbYes is pressed. Thanks! --------------------- "Bob Phillips" wrote: Myriam, As it is the vbNo does nothing already. YOu are not referring to the first message are you? -- HTH RP "Myriam" wrote in message ... Bob, I thought I had it all but I am still having trouble with the vbNo. Where do you position the vbNo 'do nothing ? Thanks, "Bob Phillips" wrote: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel End If End If Indenting helps to see the flow. -- HTH RP "Myriam" wrote in message ... I need 3 consecutive message boxes to show if conditions are met and User responds yes. I can make 2 work but I can't get the 3rd IF to work. e.g., This portion works fine: -------------------------------- If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then MsgBox " Are you sure?",vbYesNoCancel -------------------- 'This last one is the one I need help with: If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel ------------------------------ Thanks in advance, you are all great! |
Nested Ifs
I don't know what your problem could be. I ran the following, and got the
proper feedback as to what my response was to the Do Action message. Sub Test() Dim Date1 As Date Dim Response As Long Date1 = Int(Now()) - 1 If Date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf Date1 <= Date Then Response = MsgBox(" Are you sure?", vbYesNoCancel) If Response = vbNo Then ElseIf Response = vbYes Then Response = MsgBox("Do Action", vbYesNoCancel) If Response = vbNo Then MsgBox "no" ElseIf Response = vbCancel Then MsgBox "cancel" ElseIf Response = vbYes Then MsgBox "yes" End If End If End If End Sub BTW, you don't really need to parts where you test for something but then don't do anything, i.e. it could be just Sub Test() Dim Date1 As Date Dim Response As Long Date1 = Int(Now()) - 1 If Date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf Date1 <= Date Then Response = MsgBox(" Are you sure?", vbYesNoCancel) If Response = vbYes Then Response = MsgBox("Do Action", vbYesNoCancel) If Response = vbYes Then MsgBox "yes" End If End If End If End Sub On Wed, 13 Oct 2004 15:13:08 -0700, Myriam wrote: It's still doing the same. vbNo and Cancel are acting just like vbYes in the last msg. Does it work in yours? Maybe I need to clean my wkbk? "Bob Phillips" wrote: Myriam, How is this? If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox(" Are you sure?", vbYesNoCancel) If Response = vbNo Then 'do nothing ElseIf Response = vbYes Then Response = MsgBox("Do Action", vbYesNoCancel) If Response = vbNo Then 'do nothing ElseIf Response = vbYes Then Save....etc.....do the specified action End If End If End If -- HTH RP "Myriam" wrote in message ... Yes, Bob, I still need more help. See below: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response =vbNo 'do nothing ElseIf Response = vbYes Then MsgBox "Do Action",vbYesNoCancel If Response=vbNo 'do nothing ElseIf Response =vbYes Save....etc.....do the specified action End If End If End If ---------------------- The 1st vbNo 'do nothing works fine. It is the second response that still preforms the actions as if the response had been a vbYes. In other words vbYes and vb No perform the action that should only be done if vbYes is pressed. Thanks! --------------------- "Bob Phillips" wrote: Myriam, As it is the vbNo does nothing already. YOu are not referring to the first message are you? -- HTH RP "Myriam" wrote in message ... Bob, I thought I had it all but I am still having trouble with the vbNo. Where do you position the vbNo 'do nothing ? Thanks, "Bob Phillips" wrote: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel End If End If Indenting helps to see the flow. -- HTH RP "Myriam" wrote in message ... I need 3 consecutive message boxes to show if conditions are met and User responds yes. I can make 2 work but I can't get the 3rd IF to work. e.g., This portion works fine: -------------------------------- If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then MsgBox " Are you sure?",vbYesNoCancel -------------------- 'This last one is the one I need help with: If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel ------------------------------ Thanks in advance, you are all great! |
Nested Ifs
Same here.
-- HTH RP "Myrna Larson" wrote in message ... I don't know what your problem could be. I ran the following, and got the proper feedback as to what my response was to the Do Action message. Sub Test() Dim Date1 As Date Dim Response As Long Date1 = Int(Now()) - 1 If Date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf Date1 <= Date Then Response = MsgBox(" Are you sure?", vbYesNoCancel) If Response = vbNo Then ElseIf Response = vbYes Then Response = MsgBox("Do Action", vbYesNoCancel) If Response = vbNo Then MsgBox "no" ElseIf Response = vbCancel Then MsgBox "cancel" ElseIf Response = vbYes Then MsgBox "yes" End If End If End If End Sub BTW, you don't really need to parts where you test for something but then don't do anything, i.e. it could be just Sub Test() Dim Date1 As Date Dim Response As Long Date1 = Int(Now()) - 1 If Date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf Date1 <= Date Then Response = MsgBox(" Are you sure?", vbYesNoCancel) If Response = vbYes Then Response = MsgBox("Do Action", vbYesNoCancel) If Response = vbYes Then MsgBox "yes" End If End If End If End Sub On Wed, 13 Oct 2004 15:13:08 -0700, Myriam wrote: It's still doing the same. vbNo and Cancel are acting just like vbYes in the last msg. Does it work in yours? Maybe I need to clean my wkbk? "Bob Phillips" wrote: Myriam, How is this? If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox(" Are you sure?", vbYesNoCancel) If Response = vbNo Then 'do nothing ElseIf Response = vbYes Then Response = MsgBox("Do Action", vbYesNoCancel) If Response = vbNo Then 'do nothing ElseIf Response = vbYes Then Save....etc.....do the specified action End If End If End If -- HTH RP "Myriam" wrote in message ... Yes, Bob, I still need more help. See below: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response =vbNo 'do nothing ElseIf Response = vbYes Then MsgBox "Do Action",vbYesNoCancel If Response=vbNo 'do nothing ElseIf Response =vbYes Save....etc.....do the specified action End If End If End If ---------------------- The 1st vbNo 'do nothing works fine. It is the second response that still preforms the actions as if the response had been a vbYes. In other words vbYes and vb No perform the action that should only be done if vbYes is pressed. Thanks! --------------------- "Bob Phillips" wrote: Myriam, As it is the vbNo does nothing already. YOu are not referring to the first message are you? -- HTH RP "Myriam" wrote in message ... Bob, I thought I had it all but I am still having trouble with the vbNo. Where do you position the vbNo 'do nothing ? Thanks, "Bob Phillips" wrote: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel End If End If Indenting helps to see the flow. -- HTH RP "Myriam" wrote in message ... I need 3 consecutive message boxes to show if conditions are met and User responds yes. I can make 2 work but I can't get the 3rd IF to work. e.g., This portion works fine: -------------------------------- If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then MsgBox " Are you sure?",vbYesNoCancel -------------------- 'This last one is the one I need help with: If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel ------------------------------ Thanks in advance, you are all great! |
Nested Ifs
Myrna and Bob,
Thank you both. It's working nicely. Regards, "Myrna Larson" wrote: I don't know what your problem could be. I ran the following, and got the proper feedback as to what my response was to the Do Action message. Sub Test() Dim Date1 As Date Dim Response As Long Date1 = Int(Now()) - 1 If Date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf Date1 <= Date Then Response = MsgBox(" Are you sure?", vbYesNoCancel) If Response = vbNo Then ElseIf Response = vbYes Then Response = MsgBox("Do Action", vbYesNoCancel) If Response = vbNo Then MsgBox "no" ElseIf Response = vbCancel Then MsgBox "cancel" ElseIf Response = vbYes Then MsgBox "yes" End If End If End If End Sub BTW, you don't really need to parts where you test for something but then don't do anything, i.e. it could be just Sub Test() Dim Date1 As Date Dim Response As Long Date1 = Int(Now()) - 1 If Date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf Date1 <= Date Then Response = MsgBox(" Are you sure?", vbYesNoCancel) If Response = vbYes Then Response = MsgBox("Do Action", vbYesNoCancel) If Response = vbYes Then MsgBox "yes" End If End If End If End Sub On Wed, 13 Oct 2004 15:13:08 -0700, Myriam wrote: It's still doing the same. vbNo and Cancel are acting just like vbYes in the last msg. Does it work in yours? Maybe I need to clean my wkbk? "Bob Phillips" wrote: Myriam, How is this? If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox(" Are you sure?", vbYesNoCancel) If Response = vbNo Then 'do nothing ElseIf Response = vbYes Then Response = MsgBox("Do Action", vbYesNoCancel) If Response = vbNo Then 'do nothing ElseIf Response = vbYes Then Save....etc.....do the specified action End If End If End If -- HTH RP "Myriam" wrote in message ... Yes, Bob, I still need more help. See below: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response =vbNo 'do nothing ElseIf Response = vbYes Then MsgBox "Do Action",vbYesNoCancel If Response=vbNo 'do nothing ElseIf Response =vbYes Save....etc.....do the specified action End If End If End If ---------------------- The 1st vbNo 'do nothing works fine. It is the second response that still preforms the actions as if the response had been a vbYes. In other words vbYes and vb No perform the action that should only be done if vbYes is pressed. Thanks! --------------------- "Bob Phillips" wrote: Myriam, As it is the vbNo does nothing already. YOu are not referring to the first message are you? -- HTH RP "Myriam" wrote in message ... Bob, I thought I had it all but I am still having trouble with the vbNo. Where do you position the vbNo 'do nothing ? Thanks, "Bob Phillips" wrote: If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then Response = MsgBox (" Are you sure?",vbYesNoCancel) If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel End If End If Indenting helps to see the flow. -- HTH RP "Myriam" wrote in message ... I need 3 consecutive message boxes to show if conditions are met and User responds yes. I can make 2 work but I can't get the 3rd IF to work. e.g., This portion works fine: -------------------------------- If date1 Date Then MsgBox "Cancel Action", vbOKOnly ElseIf date1 <= Date Then MsgBox " Are you sure?",vbYesNoCancel -------------------- 'This last one is the one I need help with: If Response = vbYes Then MsgBox "Do Action",vbYesNoCancel ------------------------------ Thanks in advance, you are all great! |
| All times are GMT +1. The time now is 10:24 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com