Visual Basic para Aplicaciones - Juego preguntas y respuestas sobre futbol

Hola, buenas.

Estoy tratando de hacer un juego de preguntas y respuestas sobre futbol. (5 niveles x 15 preguntas cada nivel)

Tengo el codigo para la primera respuesta y funciona de pm. Pero si repito ese codigo para las otras 14 preguntas el codigo quedará inmenso.

Lo coloque haciendo 8 o 9 preguntas, pero le cuesta pensar a excel.

Si puede ser, necesitaria reducir ese codigo lo maximo posible para que no hubiesen problemas.

Dejo el archivo.

Un saludo.

• 1-MUY-FACIL.rar(95,5 KB)

Lo he enfocado de otra manera...

Voy a hacer una BBDD y en un form ire generando aleatoriamente una pregunta.

Lo tengo bastante montado.

Pero a la hora de seleccionar el optiumbutton estoy estancado. Si hago la prueba solo con el primer optiumbutton, me funciona bien, si está o no bien, me contabiliza el acierto o el error.

Pero si copio y adaptado el codigo al segundo optiumbutton me genera los mismo msgbox y me contabiliza dos veces los errores y los aciertos.

Pongo el codigo, y si no queda claro, subire el archivo.

Ya lo tengo...
No creo, que sea la mejor solución, pero funciona perfecto...
Coloque un label con la respuesta correcta y un textox para que pasara el caption del optionbutton seleccionado...
Después, iguale los dos caption, el del label y el del textbox...

Y perfecto...

Ahora a rellenar la bbdd de preguntas y repsuestas.

Gracias!!

Necesitaria una ayuda.

Me funciona casi perfecto el juego. el unico pero que muchas veces me genera repetido el numero. Igual de 15 veces me lo repite 3,4 o 5 veces.

El codigo que tengo para generar el numero aleatorio en una celda es:


Necesitaria una modificacion o un codigo nuevo para que me genere 15 veces un numero aleatorio sin repetir.

El juego funciona asi:

En el form, mediante el boton "GENERAR PREGUNTA" genero un numero en una celda de la hoja "PREGUNTAS". En esa hoja, mediante la formula buscarv, encuentra la pregunta, las opciones y la respuesta correcta de la hoja "BBDD".

Otra vez en el form, igualo el caption de los labels y los optiumbutton a las celdas donde coloque el buscarv.
Coloque un label con la repsuesta correcta, y un textbox con la opcion que selecciono.

Y despues con el boton comprobar, igualo el caption de la repsyuesta correcta con el valor del textbox.

Funciona de pm, pero me falta lo del numero aleatorio sin repeticion.

Alguna ayuda?
GRACIAS!!!

Ya lo tengo acabado.

encontre un codigo rebuscando y lo adapte a mis necesidades.
Queda espectacular!!!!

GRACIAS!!!