Team Draw Roster

[Browny]

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?

 

[Gary''s Student]

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

 

[Mike H]

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