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

excel

NikolinoDE
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)

Forum Discussion

Random selection for raffle winners

Resources