I'm new to VBAs and I pieced together this code for a random question generator. It worked the first few times but now every other time I click the button it comes up with an error. When it doesn't come up with the error it populates my form with the same questions not random ones anymore. Can anyone help?
Here is the code I have...
Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Code1").Range("E:E").ClearContents
For i = 1 To 5
generate:
RowNum = Application.RoundUp(Rnd() * 26, 2)
If Application.CountIf(Sheets("Code1").[E:E], Sheets("GOP Question Bank").Cells(RowNum, "E")) = 0 Then
Sheets("Code1").Range("E" & Rows.Count).End(xlUp).Offset(1).Value = Sheets("GOP Question Bank").Cells(RowNum, "E").Value
Else
GoTo generate
End If
Next i
End Sub
Here is the code I have...
Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Code1").Range("E:E").ClearContents
For i = 1 To 5
generate:
RowNum = Application.RoundUp(Rnd() * 26, 2)
If Application.CountIf(Sheets("Code1").[E:E], Sheets("GOP Question Bank").Cells(RowNum, "E")) = 0 Then
Sheets("Code1").Range("E" & Rows.Count).End(xlUp).Offset(1).Value = Sheets("GOP Question Bank").Cells(RowNum, "E").Value
Else
GoTo generate
End If
Next i
End Sub
