EK-poule: onderling resultaat / kruislings zoeken??

[Peter404]

Hallo allemaal

Ik ben bezig een EK-poule op te zetten. Na eerdere hulp van mensen van dit forum had ik mijn inschrijfformulier af. Deelnemers kunnen hun voorspellingen invullen en wanneer zij dit doen wordt automatisch in het tabblad standen doorberekend welke landen verdergaan.
Ik dacht alles af te hebben en las toen in de regels van de uefa dat, wanneer landen gelijk eindigen niet eerst het doelsaldo telt, maar eerst het onderling resultaat. Na vele uren puzzelen en proberen is het helaas nog niet gelukt om bovenstaande te realiseren. Kan iemand mij helpen?

Alvast bedankt.

Groeten
Peter

Bekijk bijlage inschrijfformulier EK 2012.xls

 

[popipipo]

Dat is inderdaad niet eenvoudig.
Met behulp van anderen heb ik bijgaand inschrijf formulier in gebruik.

 

[Wigi]

Dag Rudy

Kleine opmerking. Ik zou dit:

Private Sub CommandButton10_Click()
    If Not Range("N61").HasFormula Then
        Range("n61").Select
        ActiveCell.FormulaR1C1 = "=+RC[12]"
        MsgBox "Maak opnieuw uw selectie"
    End If
End Sub

Private Sub CommandButton11_Click()
    If Not Range("N62").HasFormula Then
        Range("n62").Select
        ActiveCell.FormulaR1C1 = "=+RC[12]"
        MsgBox "Maak opnieuw uw selectie"
    End If
End Sub

Private Sub CommandButton12_Click()
    If Not Range("N63").HasFormula Then
        Range("n63").Select
        ActiveCell.FormulaR1C1 = "=+RC[12]"
        MsgBox "Maak opnieuw uw selectie"
    End If
End Sub

Private Sub CommandButton13_Click()
    If Not Range("N64").HasFormula Then
        Range("n64").Select
        ActiveCell.FormulaR1C1 = "=+RC[12]"
        MsgBox "Maak opnieuw uw selectie"
    End If
End Sub

Private Sub CommandButton14_Click()
    If Not Range("N68").HasFormula Then
        Range("n68").Select
        ActiveCell.FormulaR1C1 = "=+RC[12]"
        MsgBox "Maak opnieuw uw selectie"
    End If
End Sub

Private Sub CommandButton15_Click()
    If Not Range("N69").HasFormula Then
        Range("n69").Select
        ActiveCell.FormulaR1C1 = "=+RC[12]"
        MsgBox "Maak opnieuw uw selectie"
    End If
End Sub

Private Sub CommandButton16_Click()
    If Not Range("N73").HasFormula Then
        Range("n73").Select
        ActiveCell.FormulaR1C1 = "=+RC[12]"
        MsgBox "Maak opnieuw uw selectie"
    End If
End Sub

vervangen door:

Private Sub CommandButton10_Click()
    TestEnVul Range("N61")
End Sub

Private Sub CommandButton11_Click()
    TestEnVul Range("N62")
End Sub

Private Sub CommandButton12_Click()
    TestEnVul Range("N63")
End Sub

Private Sub CommandButton13_Click()
    TestEnVul Range("N64")
End Sub

Private Sub CommandButton14_Click()
    TestEnVul Range("N68")
End Sub

Private Sub CommandButton15_Click()
    TestEnVul Range("N69")
End Sub

Private Sub CommandButton16_Click()
    TestEnVul Range("N73")
End Sub

Sub TestEnVul(Rng As Range)
    If Not Rng.HasFormula Then
        Rng.Select
        Rng.Formula = "=RC[12]"
        MsgBox "Maak opnieuw uw selectie"
    End If
End Sub