Forum Discussion

Maree29's avatar
Maree29
Copper Contributor
Oct 06, 2020
Solved

Random selection for raffle winners

I am running an online event where I will have a list of raffle purchasers. I have seen in previous settings where excel has the functionality to run a program to select a winner randomly. One can se...
  • NikolinoDE's avatar
    Oct 06, 2020

    Maree29 

     

    With your permission, if I can recommend you, add a file (without sensitive data) to your project.
    Explain your plans in relation to this file.
    So you can get a solution that is tailored to your needs much faster.
    At the same time, it is much easier for someone who wants to help to understand the subject.
    A win-win situation for everyone.

    Here is a VBA suggestion.

    The list of names in column A can be of any length, but must begin in A1.

    The second macro builds in the button to trigger the first macro.

    Code:
    Sub raffle ()
    Dim rngBer As Range
    Dim lngZ As Long

    Randomize

    lngZ = Cells (Rows.Count, 1) .End (xlUp) .Row
    Set rngBer = Range (Cells (1, 1), Cells (lngZ, 1))
    lngZ = CLng (Int (lngZ * Rnd + 1))
    Cells (lngZ, 1) .Offset (0, 1) .Value = Cells (lngZ, 1) .Offset (0, 1) .Value + 1

    End Sub

    '************************************************* *
    Sub button ()
    With ActiveSheet.Buttons.Add (243, 24, 104.25, 45)
    .OnAction = "Raffle"
    .Characters.Text = "Start"
    End With
    End Sub


    If you click the button with the right mouse button, you can move it to any position.
     

    I would be happy to know if I could help.

     

    Nikolino

    I know I don't know anything (Socrates)

     

Resources