Pass Msgbox answer to another sub

[FryGirl]

Hi All,

This works fine to retrieve the results from a MsgBox function and return the results to the sub that initiated the call, but would love to know how to pass the MsgBox answer from a normal sub back to the other sub.

Sub MsgboxYes()
    If MsgBox_Ans = vbYes Then MsgBox "You Seleted Yes"
End Sub

[LEFT][COLOR=#222222][FONT=Verdana]Function MsgBox_Ans()[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]    MsgBox_Ans = MsgBox("Yes or No", vbYesNo)[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]End Function[/FONT][/COLOR][/LEFT]

<strike></strike>

 

[KOKOSEK]

Public YourAnswer As String 'global variable


Sub CheckAnswer()
    If YourAnswer = 6 Then
        MsgBox "You Seleted Yes"
    Else
        MsgBox "You Seleted No"
    End If
End Sub


Sub AskMe()
    YourAnswer = MsgBox("Yes or No", vbYesNo)
End Sub

 

[FryGirl]

I'm not quite seeing how this works. I would suspect I should start with the procedure Sub CheckAnswer(), but how does that call Sub AskMe(). Also, shouldn't the Public variable be an Interger?

 

[KOKOSEK]

That's example how to keep something between subs.
Run AskMe (1st procedure), then your answer is 'write' into global variable, so when you run CheckAnswer (2nd procedure) you can grab YourAnswer var and check this out and deal with it.
Yes, change to integer.

 

[FryGirl]

Okay sorry, my mistake, I see it now. Thank you for your help.

 

[FryGirl]

How long will YourAnswer, the Public variable hold the ans? Is it until you close the workbook?

 

[KOKOSEK]

If you want to keep Answer after closing and get it after opening, you have to write somewhere, I mean into any cell.
Then after opening you can read from this cell and for excel session variable will be available for all subs as YourAnswer.
I suggest something like: Workbook_Open event --> read cell value into var, WorkBook_BeforeClose event --> write var into cell.