Macro para hacer sorteos y entregar regalo

[fgarcesa]

Hola comunidad!

Este es mi primer aporte al foro, les queria compartir una macro muy sencilla, pero útil que idee para entregar unos regalos en la fiesta de fin de año de mi empresa.

Es muy simple,

En la hoja llamada "Disponibles" deben poner la lista de personas de su empresa, llenando el numero de serie consecutivo.

Luego le dan click en el boton de "realizar sorteo", en donde les sale un formulario para ingresar la cantidad de regalos que quieren rifar al tiempo, y el tipo de regalo, luego le dan click en el boton de Jugar.

Al finalizar cada sorteo deben dar click en el boton "Nuevo" para limpiar el formulario y para borrar del listado de disponibles las personas que ya salieron premiadas, y para regenerar los consecutivos.

En la hoja "Ya ganaron" queda la historia de los premios que se entregaron.

Una macro muy sencilla, espero les guste y si tienen algun comentario o consejo para mejorarla son bienvenidos.

Feliz navidad!

Entrega Regalos.zip

[Antoni]

Está muy bien. Gracias por compartirlo.

[Enigma25]

Mil gracias por el aporte.

Felicidades!!!

[AlexanderS]

Muy bueno el aporte,es mejor que hacerlo con los clásicos "papelitos".

Salu2

[Onardem]

Muchas gracias, sera muy util para sortear quien hace el aseo de la oficina, sin que digan que hay mano negra, jajaja.

Saludos.

[German Horacio]

Todo lo que signifique sorteo legitimo ayuda...Gracias

[Edmund8]

Felicitaciones!!!, muy útil. Cómo sería si le agregas un campo de Sub-sección y además que se sortee opcional si se quiere exclusivamente una Sección y Subsección. Porque si quiero regalar una laptop por ejemplo, a los de admon les vendría mejor que algún otro... jeje se me ocurre.

Mil gracias por compartirlo con la comunidad!!!

[erickarciga]

Excelente aporte

Es posible agregarle una animación así como de casino o algo?