ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Input box with a loop (https://www.excelbanter.com/excel-programming/407080-input-box-loop.html)

aimee209

Input box with a loop
 
I have an input box that pops up and asks a question. If the user enters the
correct answer, a message box will show saying that's correct, and after
clicking ok move on to the next question.
Right now, when the user enters the wrong answer, a message box saying
that's incorrect shows, but then it moves on to the next question when ok is
clicked. Is there a way to do a loop so that when the incorrect answer is
selected, the original question reappears instead of going to the next
question?

Thanks!

Mike H

Input box with a loop
 
Hi,

A look at your code would have been helpful but here's one way

Sub liminal()
retry:
response = InputBox("What is the meaning of Life?")
If response < 42 Then
response1 = MsgBox("Now that's incorrect, please re-read the book",
vbRetryCancel)
If response1 = vbRetry Then GoTo retry
Else
MsgBox "Well done, the meaning of life is " & response
End If
End Sub

Mike

"aimee209" wrote:

I have an input box that pops up and asks a question. If the user enters the
correct answer, a message box will show saying that's correct, and after
clicking ok move on to the next question.
Right now, when the user enters the wrong answer, a message box saying
that's incorrect shows, but then it moves on to the next question when ok is
clicked. Is there a way to do a loop so that when the incorrect answer is
selected, the original question reappears instead of going to the next
question?

Thanks!


Mike H

Input box with a loop
 
And with a loop

Sub versives_R_us()
Do
response = InputBox("What is the meaning of Life?")
If response < 42 Then
response1 = MsgBox("Now that's incorrect, please re-read the book",
vbRetryCancel)
Else
MsgBox "Well done, the meaning of life is " & response
End If
Loop Until response = 42 Or response1 = vbCancel
End Sub

Mike

"aimee209" wrote:

I have an input box that pops up and asks a question. If the user enters the
correct answer, a message box will show saying that's correct, and after
clicking ok move on to the next question.
Right now, when the user enters the wrong answer, a message box saying
that's incorrect shows, but then it moves on to the next question when ok is
clicked. Is there a way to do a loop so that when the incorrect answer is
selected, the original question reappears instead of going to the next
question?

Thanks!


aimee209

Input box with a loop
 
Thanks! I tried the first response with the goto retry and that seems to be
working!


"aimee209" wrote:

I have an input box that pops up and asks a question. If the user enters the
correct answer, a message box will show saying that's correct, and after
clicking ok move on to the next question.
Right now, when the user enters the wrong answer, a message box saying
that's incorrect shows, but then it moves on to the next question when ok is
clicked. Is there a way to do a loop so that when the incorrect answer is
selected, the original question reappears instead of going to the next
question?

Thanks!


Mike H

Input box with a loop
 
Your welcome and thanks for the feed back.

"aimee209" wrote:

Thanks! I tried the first response with the goto retry and that seems to be
working!


"aimee209" wrote:

I have an input box that pops up and asks a question. If the user enters the
correct answer, a message box will show saying that's correct, and after
clicking ok move on to the next question.
Right now, when the user enters the wrong answer, a message box saying
that's incorrect shows, but then it moves on to the next question when ok is
clicked. Is there a way to do a loop so that when the incorrect answer is
selected, the original question reappears instead of going to the next
question?

Thanks!



All times are GMT +1. The time now is 10:20 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com