how make a random draw of teams of 4 golfers from a list of 40
Everey week we have a group of 25 to 40 golfers that want to make a random
draw of teams of 4. How can I do this using Excel |
how make a random draw of teams of 4 golfers from a list of 40
Run this in a blank worksheet. Pure random number generation.
Sub RandomGroup() Dim Random Dim DestCell As Range Dim i As Long i = 1 For i = 1 To 40 Set DestCell = ActiveSheet.Cells(i, 1) Random = Rnd() Select Case Random Case Is < 0.25 DestCell = "Team 1" Case Is < 0.5 DestCell = "Team 2" Case Is < 0.75 DestCell = "Team 3" Case Is < 1 DestCell = "Team 4" End Select Next i End Sub -------- Cheers, Anony "romero1st" wrote: Everey week we have a group of 25 to 40 golfers that want to make a random draw of teams of 4. How can I do this using Excel |
how make a random draw of teams of 4 golfers from a list of 40
enter the names in column 1.
in column 2, B2 put in =rand() then drag fill down next to the names. Sort the two columns on the second column. 1st 4 rows are team1, second 4 are team 2 and so forth. -- Regards, Tom Ogilvy "romero1st" wrote: Everey week we have a group of 25 to 40 golfers that want to make a random draw of teams of 4. How can I do this using Excel |
All times are GMT +1. The time now is 06:49 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com