Yevette
Active Member
- Joined
- Mar 8, 2003
- Messages
- 336
I'm trying to set up a code to conduct a weekly drawing (like a lottery). My code is as follows:
'$500 GRAND PRIZE WINNER
Dim BegRowA As Integer
Dim EndRowA As Integer
EndRowA = Range("A65536").End(xlUp).Row
BegRowA = Int((EndRowA - 1 + 1) * Rnd + 1)
Range("A" & BegRowA).Select
Range(Selection, Selection.Offset(0, 1)).Copy
Sheets("WINNERS").Range("B4").PasteSpecial xlPasteValues
Sheets("RAFFLE").Select
'$300 GRAND PRIZE WINNER
Dim BegRowB As Integer
Dim EndRowB As Integer
EndRowB = Range("A65536").End(xlUp).Row
BegRowB = Int((EndRowB - 1 + 1) * Rnd + 1)
Range("A" & BegRowB).Select
Range(Selection, Selection.Offset(0, 1)).Copy
Sheets("WINNERS").Range("B5").PasteSpecial xlPasteValues
'$200 GRAND PRIZE WINNER
Dim BegRowC As Integer
Dim EndRowC As Integer
EndRowC = Range("A65536").End(xlUp).Row
BegRowC = Int((EndRowC - 1 + 1) * Rnd + 1)
Range("A" & BegRowC).Select
Range(Selection, Selection.Offset(0, 1)).Copy
Sheets("WINNERS").Range("B6").PasteSpecial xlPasteValues
Can anyone tell what the code would be to conduct a random selection (3 times) while restricting duplicate winners?
Thanks for your help!
'$500 GRAND PRIZE WINNER
Dim BegRowA As Integer
Dim EndRowA As Integer
EndRowA = Range("A65536").End(xlUp).Row
BegRowA = Int((EndRowA - 1 + 1) * Rnd + 1)
Range("A" & BegRowA).Select
Range(Selection, Selection.Offset(0, 1)).Copy
Sheets("WINNERS").Range("B4").PasteSpecial xlPasteValues
Sheets("RAFFLE").Select
'$300 GRAND PRIZE WINNER
Dim BegRowB As Integer
Dim EndRowB As Integer
EndRowB = Range("A65536").End(xlUp).Row
BegRowB = Int((EndRowB - 1 + 1) * Rnd + 1)
Range("A" & BegRowB).Select
Range(Selection, Selection.Offset(0, 1)).Copy
Sheets("WINNERS").Range("B5").PasteSpecial xlPasteValues
'$200 GRAND PRIZE WINNER
Dim BegRowC As Integer
Dim EndRowC As Integer
EndRowC = Range("A65536").End(xlUp).Row
BegRowC = Int((EndRowC - 1 + 1) * Rnd + 1)
Range("A" & BegRowC).Select
Range(Selection, Selection.Offset(0, 1)).Copy
Sheets("WINNERS").Range("B6").PasteSpecial xlPasteValues
Can anyone tell what the code would be to conduct a random selection (3 times) while restricting duplicate winners?
Thanks for your help!