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
|