Message Box with 3 options

[tonywatsonhelp]

HI Everyone,

I need the code for a message box that gives the person 3 options

when run the message box needs to say "You have not Submited Data Yet" new line " What would you like to do?

Then if possible give the options of


"Cancel" "Submit & Continue" "Continue"

if cancel just come out,
if Continue just carry on
if submit call "Submit" then carry on

please help if you can

Thanks

Tony

 

[pcc]

You need a userform for that..

 

[mumps]

As @pcc has suggested, a userform would be best. However, see if this macro does what you want.

Option Compare Text
Sub GetResponse()
    Application.ScreenUpdating = False
    Dim response As String
    If MsgBox("You have not Submited Data Yet" & Chr(10) & "Would you like to continue?", vbYesNo) = vbYes Then
        response = InputBox("Please enter 'Cancel', 'Submit & Continue' or 'Continue'.", "Enter 'Cancel', 'Submit & Continue' or 'Continue'")
        If response = "" Then
            Exit Sub
        ElseIf response = "Cancel" Or response = "Submit & Continue" Or response = "Continue" Then
            Select Case response
                Case "Cancel"
                    Exit Sub
                Case "Submit & Continue"
                    Call Submit
                Case "Continue"
                    '
            End Select
        Else
            MsgBox ("Invalid entry.  Please try again.")
            Exit Sub
        End If
    End If
        'the "carry on" part of your code goes here
    Application.ScreenUpdating = True
End Sub

 

[Peter_SSs]

Perhaps you could just ask once like this.
If one of the three choices will be chosen more than the others then enter that in the DefaultChoice line or use "" for no default answer.

Sub Decide()
    Dim Choice As Long
    
    Const DefaultChoice As String = "2"    '<- Use "" if you don't want a default to appear.
    
    Choice = Val(InputBox("You have not Submited Data Yet" & vbLf & "What would you like to do?" & vbLf & "Enter the number of your choice" & vbLf & _
                    "1 = Cancel" & vbLf & _
                    "2 = Submit & Continue" & vbLf & _
                    "3 = Continue" _
                        , , DefaultChoice))
    
    If Choice > 1 Then
      If Choice = 2 Then Call Submit
      
      'The 'Continue' code goes here
    
    End If
End Sub