Generate Random Questions using VBA

Your are code depends on the duplicates appearance.
One duplicate means CountIf >0, it does nothing but the counter increases anyway.

One way

Please Login or Register  to view this content.

Thank you so much Forum Guru jindon

Supppose i have more sheets and i need to include certain number of questions from each sheet, will the same code be good enough by changing only the sheet name.

Correct me if i'm wrong.

In that case

Please Login or Register  to view this content.

vow this is getting interesting.

sheet1 random 6 questions
sheet2 random 8 questions
sheet3 random 4 questions

then please advice Forum Guru jindon

What do you mean?

Random 6, 8, 4 questions from Shet1 2 3?
or
Random 6, 8, 4 questions to Sheet1 2 3?

Random 6 questions from Sheet1

Random 8 questions from Sheet2

Random 4 questions from Sheet3

All generated questions should come in one sheet.

Try

Please Login or Register  to view this content.

Excellent. One last question.

6 random questions from sheet1 range (A2:A10)
8 random questions from sheet2 range (A5:A20)
4 random questions from sheet3 range (A21:A30)

Please advice bro.

Please Login or Register  to view this content.

100 % Successful. Thank you so much for sharing your knowledge.

if i need to insert a question title before generating random questions from each sheet how do i do it..

for example:
I. Answer the following questions:
1.
2.
3.
4.
5.
6.
II. Choose the best answer:
7.
8.
9.
III. Answer in detail:
10.
11.
12.

Hi jindon, is it possible to run this code in endless loop, until i stop it manually, if yes could you please share the code.
I mean that upon running the macro it will continue showing a new set of questions every few seconds and the loop will never stop.

Is this a last question?
If you have more, ask now.

Originally Posted by jindon

Is this a last question?
If you have more, ask now.

yes last and final.

Please Login or Register  to view this content.

Originally Posted by meetgilbert

if i need to insert a question title before generating random questions from each sheet how do i do it..

for example:
I. Answer the following questions:
1.
2.
3.
4.
5.
6.
II. Choose the best answer:
7.
8.
9.
III. Answer in detail:
10.
11.
12.

If this example is the fixed part in column A so the easy way is to just allocate random in column B
and that's needs a tiny permutation code like next demonstration according to your attachment
(where you just need to modify the array variable V in order to fit your real workbook) :

PHP Code: 

Private Sub CommandButton1_Click()
    Dim V, P&, C&, W, N&, R&
        V = [{"questions!A1:A14","B2:B7";"questions!A15:A22","B9:B11";"questions!A23:A30","B13:B15"}]
    For P = 1 To UBound(V)
            C = Application.Range(V(P, 1)).Count
            W = Evaluate("ROW(1:" & C & ")")
        For N = 0 To Range(V(P, 2)).Count - 1
            R = Application.RandBetween(1, C - N)
            Range(V(P, 2))(N + 1).Value2 = Application.Range(V(P, 1))(W(R, 1)).Value2
            W(R, 1) = W(C - N, 1)
        Next
    Next
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !