Matemáticas 2
'taula torneig
If modalitat = "I" Then
hora = InputBox("Introdueixi l'hora en la que es celebrarà el primer partit", "Registre de l'hora")
indi = total / 2
i = 0
individual = 6
For i = i + 6 To indi + 5
Worksheets("torneig").Range("B" & i).Value = hora + i - 6 & ":00"
Worksheets("torneig").Range("E" & i).Value = "vs"
Worksheets("torneig").Range("C" & i).Value = "Individual"
Worksheets("torneig").Range("D" & i).Value = Worksheets("LlistaAleatoria").Range("A" & individual).Value
Worksheets("torneig").Range("F" & i).Value = Worksheets("LlistaAleatoria").Range("A" & individual + 1).Value
...