Saltar al contenido

Macro para hacer sorteos y entregar regalo

publicado

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

Featured Replies

publicado

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

Saludos.

  • 4 months later...
  • 1 year later...
publicado

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!!!

  • 2 weeks later...

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.