How do I get a Yes/No message box to loop
 

Hello! I need help with a Yes/No message box loop. The code I have written
works but not the way I would like for it to work. I want my loop to ask me
each time Is this the part number yes/no until I click yes. It works the
first time through properly.
The second time when I put in my number and click ok it loops out into the
program. I want it to ask me the yes/no question. My code is below:

Sub Test()
Dim PartNum As String
PartNum = InputBox("Enter in Part Number:", "Part Number")

Do
If PartNum = "" Then End
If MsgBox("The Part Number is: " & PartNum, vbYesNo) = vbNo Then
PartNum = InputBox("Enter in Part Number:", "Part Number")
End If
Loop While vbYesNo = vbYes

Worksheets("Sheet1").Range("H10").Value = PartNum
End Sub

Thanks for the help in advance...

How do I get a Yes/No message box to loop
 

Try this

Sub Test()
Dim PartNum As String
Do
PartNum = InputBox("Enter in Part Number:", "Part Number")
If PartNum = "" Then End
Loop Until MsgBox("The Part Number is: " & PartNum, vbYesNo) = vbYes
Worksheets("Sheet1").Range("H10").Value = PartNum
End Sub

Mike

"John" wrote:

Hello! I need help with a Yes/No message box loop. The code I have written
works but not the way I would like for it to work. I want my loop to ask me
each time Is this the part number yes/no until I click yes. It works the
first time through properly.
The second time when I put in my number and click ok it loops out into the
program. I want it to ask me the yes/no question. My code is below:

Sub Test()
Dim PartNum As String
PartNum = InputBox("Enter in Part Number:", "Part Number")

Do
If PartNum = "" Then End
If MsgBox("The Part Number is: " & PartNum, vbYesNo) = vbNo Then
PartNum = InputBox("Enter in Part Number:", "Part Number")
End If
Loop While vbYesNo = vbYes

Worksheets("Sheet1").Range("H10").Value = PartNum
End Sub

Thanks for the help in advance...