I'm trying to create a test engine that will load questions randomly for the question bank.

Say I have 3 sheets

1. Form Sheet = Where I have all of my form
2. Question Sheet = Where I have all of my questions
3. Order Sheet = Where I want to rearrange the questions randomly.

I use vlookup for this function

Say A1 is where I need to key in the question number so b1 will look it up on the table based on the value on A1 (Say 1 to 15)

Now, I have it arranged at random in "order sheet"

I just want to load the question number from 1 t 15 from the "Order Sheet" The problem that I have is the user needs to enter his answer before proceeding to the next question.


I don't have the file with me because I cannot transfer it from my work computer.

Here is my analogy

Step 1: Arrange number
Step 2: Load the first question
Step 3: By clicking next, check if the answer is correct add 1 to the score if correct.
Step 4: Load the next question
Step 5: Enter answer and hit next
Step 6: Load the next question until the user answer all of the questions.


Sub nxt()

dim a as integer

for a = 2 to 10

worksheets("Form").Cells(1,1).Value = worksheets("Order").Cells(a,1).Value

'The question will change and the user needs to input an answer
'After clicking next, the loop will continue.

next
I hope someone could help me or if you have a better approach with this, please suggest.