Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Team Draw Roster
i have 16 teams and wish to setup a draw so that each team plays each other
once in round 1 & again in round 2. Can anyone assist? -- Browny |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Team Draw Roster
You can make the draws using a simple rotation:
1 16 2 1 3 2 4 3 5 4 6 5 7 6 8 7 9 8 10 9 11 10 12 11 13 12 14 13 15 14 16 15 and then: 1 15 2 16 3 1 4 2 5 3 6 4 7 5 8 6 9 7 10 8 11 9 12 10 13 11 14 12 15 13 16 14 -- Gary''s Student - gsnu200839 "Browny" wrote: i have 16 teams and wish to setup a draw so that each team plays each other once in round 1 & again in round 2. Can anyone assist? -- Browny |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Team Draw Roster
Hi,
I'm not sure how each team playing each other in round 1 is different to the same teams playing each other in round 2 unless you mean Home 7 Away. Anyway, 16 teams is 120 fixtures and this assumes you team list is in column A starting in a1. Right click your sheet tab, view code and paste this in to get your fixtures in column B Sub Fixtures() Dim x As Long, z As Long Dim TeamList As String Dim FixtureList As String Dim firstRow As Long, lastRow As Long, CurrentRow As Long TeamList = "A" 'teams in Col A Change to Suit FixtureList = "B" 'Fixtures in Col B Change to suit firstRow = 1 CurrentRow = 1 lastRow = Range(TeamList & Rows.Count).End(xlUp).Row For x = firstRow To lastRow - 1 For z = x + 1 To lastRow Range(FixtureList & Format(CurrentRow)) = Range(TeamList & Format(x)) _ & " - " & Range(TeamList & Format(z)) CurrentRow = CurrentRow + 1 Next Next End Sub Mike "Browny" wrote: i have 16 teams and wish to setup a draw so that each team plays each other once in round 1 & again in round 2. Can anyone assist? -- Browny |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
softball team roster management | New Users to Excel | |||
Team Role Rotation (number of team members is variable) | Excel Worksheet Functions | |||
How do I make a draw for a 28 team day tournament (bowls)? | Excel Discussion (Misc queries) | |||
Roster | Excel Worksheet Functions | |||
Roster | New Users to Excel |