Standen automatisch invullen

[altosoft]

Beste Forum leden

Mijn vraag is, hoe kan ik automatisch de contra stand laten invullen bij het invullen van uitslagen van een Petanque toernooi.

b.v. Als ik bij team 1 een uitslag noteer, zal ik graag willen zien dat de contra stand bij het andere team wordt ingevuld.
Wie kan mij hierbij helpen.
Ik stuur een voorbeeld bestandje mee.

bvd

Bekijk bijlage Test uitslagen.xls

 

[HSV]

Probeer onderstaande in moduleblad van toepassing.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union(Range("s11:t37"), Range("v11:w37"), Range("y11:z37"), Range("ab11:ac37"), Range("ae11:af37"))) Is Nothing Then
Application.EnableEvents = False
    With Target
     Select Case .Column
       Case 19, 22, 25, 28, 31
         Columns(.Column - 1).Find(Cells(.Row, 11).Value, , xlValues, xlWhole).Offset(, 2) = .Value
       Case Else '20, 23, 26, 29, 32
         Columns(.Column - 2).Find(Cells(.Row, 11).Value, , xlValues, xlWhole).Offset(, 1) = .Value
      End Select
     End With
 Application.EnableEvents = True
End If
End Sub

 

[altosoft]

Automatische invulling

Beste HSV

Als ik een nieuwe loting doe, dan werkt de module niet meer.
Wat betekend Case 19, 22, 25, 28, 31.
Heb dit er misschien mee te maken ?

Ik hoor wel

 

[HSV]

Wat bedoel je precies met 'nieuwe loting'.
Case 20 etc. is de kolomnummer waarin je een getal zet.

 

[altosoft]

Automatische invulling

Hallo HSV

Met nieuwe loting bedoel ik dat er b.v. andere namen in gevoerd worden en daarna krijgen de deelnemers een andere tegenstander nummer.
Dus kolom R-U-X-AA en AD zijn variabel.
Ook het aantal deelnemers kan verschillen van 10 tot 64.
Als ik het blad beveiligd heb dit dan misschien invloed op de werking.

Ik wacht af wat je ervan denkt.

 

[HSV]

Het is nu van rij 11 to 37.
Het zoekt het getal in kolom K in de links naast gelegen kolom waar je in typt. 1 of 2 kolommen links ervan (case).

Dan moet je de bereiken aanpassen in de intersect bovenaan de code.
Het blad beveiligen heeft invloed op de code als daar iets gewijzigd moet worden.

 

[Warme bakkertje]

Met beveiligd werkblad en nog wat gefinetuned.
Wat moet er gebeuren met de reeds ingevulde uitslagen als je de namen wijzigt ?

 

[altosoft]

automatische invulling

Hallo Warme bakkertje

Fijn dat je met ons mee wilt denken.

Als er een nieuwe loting plaats vind worden de namen verwijderd en ingevuld door nieuwe namen.
De reeds ingevulde standen moeten dan allemaal verwijderd worden.
Bij een even aantal deelnemers is er geen Vrij Loting ( VL ).

Ik hoor wel.
Bedankt vast

 

[Warme bakkertje]

Nu met wissen uitslagen en formule in rij 75, anders klopt je controleformule niet als er geen VL is.

 

[altosoft]

Automatische invulling

Hoi

Ziet er goed uit, alleen dient er bij een VL ( vrij loting ) altijd een stand van 13-6 te worden genoteerd.
Dit komt alleen voor als er een oneven aantal deelnemers zijn.

hoor je