questions with yes no and cancel

[MAMIBUSSOL]

I need to do the following task with variables

I ask the question?

"DO YOU HAVE ANY ASSETS"

the response will be either

NO - in which case I carry on with my coding

CANCEL - exits script completely

YES - request user to enter name of asset; recorded into a variable

 

[VoG]

Maybe like this

ans = MsgBox("DO YOU HAVE ANY ASSETS", vbYesNoCancel + vbQuestion)
If ans = vbCancel Then
    Exit Sub
ElseIf ans = vbYes Then
    asset = InputBox("Enter name of asset")
End If

 

[repairman615]

Hello,

What if the cancel is choosen while whithin the input box?


<font face=Courier New><SPAN style="color:#00007F">Dim</SPAN> Ans<br>Ans = MsgBox("DO YOU HAVE ANY ASSETS", vbYesNoCancel, "Assets?")<br><br><SPAN style="color:#00007F">If</SPAN> Ans = vbCancel <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br><SPAN style="color:#00007F">If</SPAN> Ans = vbYes <SPAN style="color:#00007F">Then</SPAN> Ans = InputBox("Request user to enter name of asset.", "Asset")<br><SPAN style="color:#00007F">If</SPAN> Ans = "" <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[MAMIBUSSOL]

if I have various assets and values to add, how could I adjust to repeat until the user tells me they have all been added

 

[mikerickson]

Perhaps something like

Dim uiAsset As String

Do
    uiAsset = Application.InputBox("Enter the new asset", Default:="[No More Assets]", Type:=2)
    If uiAsset = "False" Then Exit Sub: Rem cancel
    If uiAsset <> "[No More Assets]" Then
        Rem process new asset
    End If
Loop Until uiAsset = "[No More Assets]"