VBA Loop until certain value is entered (to infinity) with For Loop

[mamontenok]

Hi there,

Trying to come up with a code that will loop an infinite number of times until the user enters a specific range of values. I can do it using 'Do While' or 'Do Until' loops but the assignment specifically mentions 'For Loop'. Please help. Thanks!

Here is what I have now:

Option Explicit
Sub Problem3()


Dim i As Integer, n As Integer, num As Integer
n = 1000


For i = 0 To n
num = InputBox("Enter number")
If (num <= 20 And num >= 10) Then
MsgBox "Thank you for ending this loop"
Exit For
End If
Next i
End Sub

 

[igold]

Hi,

I don't really like to do homework because it kind of defeats the purpose, but it does look like you at least gave it a shot.

You obviously know that the code does run as written, except it is going only to loop for 1000 times, or when i = n or 1000. What if i never reached n. You really don't even need n, you could just put your 1000 in n's place.

Also, although it works your If statement is a drop unorthodox.

Additionally, you made no provision for the case where the user clicks cancel on your Msgbox, when that happens the code barfs, but that is another lesson.

How about this:

Sub Problem3()

    Dim i As Integer, num As Integer


    For i = 0 To 1      'I did away with "n" because it served no purpose
        num = InputBox("Enter number")
            If num <= 20 And num >= 10 Then
                MsgBox "Thank you for ending this loop"
                Exit For
            End If
        i = 0   ' If you keep i at 0 it will never be greater than 1 and end the For/Next loop
    Next i

End Sub

Good luck. I hope this helps.

igold

 

[mamontenok]

Wow, that was easy. I'm not exactly sure why I was stuck there! Thanks!

 

[igold]

That is (for me at least) one of the fun parts of writing macros... Namely the problem solving or figuring out the logic of how something can be accomplished.

At any rate, I am glad I could help and thank you very much for the feedback!

Regards,

igold