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