Do Loop Not Working

[Wilconcl51]

Here is my code. Error message "Loop Without Do ??"
I'm confused

Sub Tuesday_Single()

Dim rVillaNo As Range
Dim Resp As String
Dim Meal As String
Dim GFO As String
Dim Msg, Style, Title, Help, Ctxt, Response, MyString As String
Dim Check As Boolean

Do
Resp = InputBox("What is their Villa Number. Villa Number only?. ")
'Application.ScreenUpdating = False

If Len(Resp) > 0 Then
On Error Resume Next
Set rVillaNo = Range("VillaNo").Find(What:=Resp, LookAt:=xlWhole)
On Error GoTo 0
If Not rVillaNo Is Nothing Then Application.Goto Reference:=rVillaNffset(, -5), Scroll:=True
End If
Meal = InputBox("Enter 1 or 2 if they are attending")
ActiveCell = Meal
ActiveCell.Offset(0, 4).Select
GFO = InputBox("Input Y or YY for Gluten Free or Enter")
ActiveCell = GFO
Check = (MsgBox("Do you want to add more ?", vbYesNo) = vbYes)
If Check = vbYes Then
Loop

Sheets("Menu").Select
End If


'Application.ScreenUpdating = True
End Sub

 

[Muhammad_Usman]

Try This Code

Sub Tuesday_Single()


    Dim rVillaNo As Range
    Dim Resp As String
    Dim Meal As String
    Dim GFO As String
    Dim Check As Boolean


    Sheets("Menu").Select ' Ensure you're on the right worksheet


    Do
        Resp = InputBox("What is their Villa Number? (Villa Number only)")
        If Resp = "" Then Exit Do ' Exit the loop if no input


        On Error Resume Next
        Set rVillaNo = Range("VillaNo").Find(What:=Resp, LookAt:=xlWhole)
        On Error GoTo 0


        If Not rVillaNo Is Nothing Then
            rVillaNo.Offset(0, 1).Value = InputBox("Enter 1 or 2 if they are attending")
            rVillaNo.Offset(0, 2).Value = InputBox("Input Y or YY for Gluten Free or Enter")
        Else
            MsgBox "Villa Number not found!", vbExclamation
        End If


        Check = MsgBox("Do you want to add more?", vbYesNo) = vbYes
    Loop While Check


    ' Application.ScreenUpdating = True ' Uncomment this line if you had previously disabled screen updating


End Sub

 

[Wilconcl51]

Try This Code

Sub Tuesday_Single()


    Dim rVillaNo As Range
    Dim Resp As String
    Dim Meal As String
    Dim GFO As String
    Dim Check As Boolean


    Sheets("Menu").Select ' Ensure you're on the right worksheet


    Do
        Resp = InputBox("What is their Villa Number? (Villa Number only)")
        If Resp = "" Then Exit Do ' Exit the loop if no input


        On Error Resume Next
        Set rVillaNo = Range("VillaNo").Find(What:=Resp, LookAt:=xlWhole)
        On Error GoTo 0


        If Not rVillaNo Is Nothing Then
            rVillaNo.Offset(0, 1).Value = InputBox("Enter 1 or 2 if they are attending")
            rVillaNo.Offset(0, 2).Value = InputBox("Input Y or YY for Gluten Free or Enter")
        Else
            MsgBox "Villa Number not found!", vbExclamation
        End If


        Check = MsgBox("Do you want to add more?", vbYesNo) = vbYes
    Loop While Check


    ' Application.ScreenUpdating = True ' Uncomment this line if you had previously disabled screen updating


End Sub

Thank you so much
Works perfectly

 

[Muhammad_Usman]

Thank you so much
Works perfectly

Glad to help you.

Mark it as Solved

 

[Peter_SSs]

@Wilconcl51
In future, please mark the actual post that answered your question. I have change the 'Mark as solution' from post 4 to post 2

Also, I have mentioned before (see here) to use code tags when posting vba code in the forum. Please do so in future.

 

[Wilconcl51]

@Wilconcl51
In future, please mark the actual post that answered your question. I have change the 'Mark as solution' from post 4 to post 2

Also, I have mentioned before (see here) to use code tags when posting vba code in the forum. Please do so in future.

Thank you.

Now I'm totally confused as I thought I had.
Apologies. I will have to look elsewhere.

 

[Peter_SSs]

Now I'm totally confused as I thought I had.

You had marked post 4 as the solution - which clearly it is not.

I will have to look elsewhere.

I don't understand that comment.