standen automatische invullen

[ChantalM]

Ik wil standen automatische in laten vullen in excel zoals in de bijlage.

alleen veranderen de medespelers en tegenstanders wel per ronde.
en per toernooi.
weet iemand hoe en of dit gerealiseerd kan worden in excel?

Bekijk bijlage bijlage.docx

 

[SjonR]

Een Excel-bestand plaatsen lijkt me beter.

 

[ChantalM]

Het excel bestand waar ik in werk is deze.

Bekijk bijlage programma goed.xlsm

Als ik in het tabblad toernooi overzicht een stand invul bij 1 speler dan wil ik dat deze stand zoals in het voorbeeld uit mijn vorige bericht ook meteen wordt ingevuld bij de medespeler en omgekeerd wordt ingevuld bij de tegenstander.
zodat ik de stand maar 1x in hoef te vullen per wedstrijd.

 

[VenA]

Kijk hier eerst even https://www.helpmij.nl/forum/announcement.php?f=5

#4 kan je aanpassen. Zonder het lange verhaal of door gebruik te maken van codetags.

 

[ChantalM]

Dank u wel voor de hulp.
Heb ondertussen de code iets korter kunnen maken, maar zit nog steeds met het probleem dat bij de 2de speler de stand niet wordt ingevuld.

Sub A3_tegenspelers()
Dim ii, i As Integer
For ii = 6 To 18
    For i = 3 To 54
        If Range("A" & i) = "" Then Exit Sub
        If Range("A2") = Sheets("Overzicht partijen mix").Range("D" & i) Or Range("A2") = Sheets("Overzicht partijen mix").Range("E" & ii) Or Range("A2") = Sheets("Overzicht partijen mix").Range("F" & ii) Then
        If Sheets("Overzicht partijen mix").Range("G" & ii) = Range("A" & i) Or Sheets("Overzicht partijen mix").Range("H" & ii) = Range("A" & i) Or Sheets("Overzicht partijen mix").Range("I" & ii) = Range("A" & i) Then
        Worksheets("Toernooi Overzicht").Select
        Sheets("Toernooi Overzicht").Range("D2").Copy
        Range("F" & i).PasteSpecial
        Sheets("Toernooi Overzicht").Range("F2").Copy
        Range("D" & i).PasteSpecial
        End If
        End If
    Next i
Next ii
End Sub

 

[ChantalM]

Zou iemand me hier verder kunnen helpen, zodat de code werkt voor een 2de en 3de speler.
Zie excel bestand voor ondersteuning

Bekijk bijlage programma goed test.xlsm