Tombola
Jaren geleden vroeg de directiesecretaresse mij hoe ze de flessen wijn en andere etenswaren die we als bedrijf kregen van leveranciers eerlijk kon verdelen over de medewerkers.
Op dat moment herinnerde ik mij dat Jan-Karel Pieterse op een Excel-Experience-Day iets soortgelijks had laten zien. Met dat idee in mijn achterhoofd heb ik dit bestand gemaakt.
Het bestand werkt met enkele macro's en een paar formules. Het gebruik is eenvoudig.
Op werkblad Namenlijst kunnen de gewenste namen onder elkaar worden ingevuld.
Als de namen zijn gevuld, zijn er twee werkbladen waarmee de willekeurig gekozen namen gepresenteerd kunnen worden.
Op werkblad Winnaars kan middels een button de lijst opgevraagd worden. Eerst wordt gevraagd hoeveel namen getoond moeten worden en daarna toont Excel de namen als een lijst op het werkblad. Dit is handig als de namen gebruikt moeten worden in een mailing o.i.d.
Op het werkblad "EénVoorEén" wordt op dezelfde manier willekeurig de namen getoond maar nu steeds één naam als op de Start-knop wordt geklikt en wordt er aan de linkerkant een lijstje bijgehouden van gekozen namen. Dit werkblad kan gebruikt worden als tijdens een presentatie live de namen worden gekozen.
Willekeurig een naam uit een lijst kiezen is niet moeilijk. Excel heeft daar zelfs de functie =ASELECT() en =ASELECTTUSSEN voor. Maar om te voorkomen dat de gekozen naam nog een keer opnieuw wordt gekozen, daar heeft Excel geen functie voor. Daarom wordt kopieert de macro in dit bestand eerst alle namen naar een verborgen werkblad. Als het een naam willekeurig heeft gekozen, dan wordt de gekozen naam uit dit verborgen werkblad verwijderd. Zo wordt voorkomen dat een naam twee keer wordt getoond.
Het zip-bestand kun je HIER downloaden.
Het bestand bevat macro's en daarom is het opgeslagen als een zip-bestand. Bij het uitpakken moet het opgeslagen worden in een map waarin macro's zijn toegestaan, en misschien moet je de macro-beveiliging van Excel aanpassen. Heb je hier vragen over, stuur ze maar op via het contactformulier.