Entering input and clicking buttons during loop

**shg** · 03-22-2009, 02:15 PM

Welcome to the forum.

Maybe like this:

Option Explicit

Const nQuest    As Long = 50
Dim iQuest      As Long

Sub AskQuestion()
    iQuest = iQuest + 1
    If iQuest > nQuest Then
        MsgBox "Done!"
    Else
        With Worksheets("test")
            .Range("B11").Value = iQuest
            .Range("C11").Value = QuArray(iQuest)
        End With
    End If
End Sub

Sub Submit()
    Worksheets("test").Range("D11:E11").ClearContents
    AskQuestion
End Sub

**FlyinJack** · 03-22-2009, 06:08 PM

Hey shg,

Thanks that helped immensely. I would never have thought of doing it like that (i.e. no loop method). My program is now working and I just have some enhancements to make (holes to correct).

Thanks again for your great help. I’ve learned a lot!

**shg** · 03-22-2009, 07:47 PM

You’re welcome. Would you please mark the thread as Solved?

Click the Edit button on your first post in the thread

Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes