Pitufo,

Fantastisch wat je hebt klaargespeeld,ik heb reeds verschillende malen getest en dit werk zoals gevraagd
Dit gaat zeker in de smaak vallen bij de leden

 ik nog een vraagje, hoeft niet als het teveel werk is
als ik de datums in het doelblad verwijder werkt het niet meer
Nu moet ik de datums nog handmatig invullen in de sheets 7/10weken,kan dit aangepast worden zodat ik de eerste invul hij de volgende in de lijst ook autm. aanvult


    mvg,lco

Pitufo,

het sorteren zit er al in volgens dat ik kan zien en werkt op -2 laagste 
kan je dit aanpassen zodat hij vanaf de 6de score de 2 laagste in vermindering brengt bij 7weken en vanaf de 8ste score bij de 10 weken (dit om de spanning er in te houden)
ps:nu vroeg ik mij af waar in de vba in te grijpen (aanpassen) als we nu de 3 laagste of de vier laagste zouden willen laten wegvallen (is enkel bedoeld als klantenbinding)of droom ik maar

update
Ik had in reactie 14 de uitleg niet goed gelezen SORRY maar bij de 10 weken moet hij de 3 laagste ipv de 2 laagste in vermindering brengen.
Hopelijk geeft dit niet te veel problemen


    mvg,lco

Ziezo Luc, al je wensen zijn weer vervuld (als niets over het hoofd is gezien...)

het sorteren zit er al in volgens dat ik kan zien

Dat lijkt misschien zo bij sommige resultaten maar Excel noch vba gaan zomaar aan het sorteren tenzij ze daar de opdracht toe krijgen.
In deze nieuwe versie is dat dus geregeld.
Er wordt gesorteerd op totaal OF op -2/-3 laagste (indien die is ingevuld). Invullen van -2/-3 laagste gebeurt nu enkel nog als het minimaal aantal weken is gespeeld.
Je merkt het aan voorgaande zin: bij 10 weken worden nu inderdaad de 3 laagste afgetrokken.

nu vroeg ik mij af waar in de vba in te grijpen (aanpassen) als we nu de 3 laagste of de vier laagste zouden willen laten wegvallen (is enkel bedoeld als klantenbinding)of droom ik maar

Zeker niet, dat vraagt maar een kleine aanpassing in dit stukje code:
kl1 = WorksheetFunction.Small(Range(Cells(r, 3), Cells(r, kolom)), 1)
kl2 = WorksheetFunction.Small(Range(Cells(r, 3), Cells(r, kolom)), 2)
If kolom_x = 10 Then
    kl3 = WorksheetFunction.Small(Range(Cells(r, 3), Cells(r, kolom)), 3)
End If
Cells(r, kolom_t + 1) = Cells(r, kolom_t) - (kl1 + kl2 + kl3)


Nu moet ik de datums nog handmatig invullen in de sheets 7/10weken

Je zou dat simpel kunnen oplossen met formules, maar stel dat het ooit eens zou gebeuren dat er niet heel precies elke week op dezelfde dag wordt gespeeld, dan kan je nog eender waar datums gaan wijzigen nu dit ook met vba wordt geregeld (in principe enkel C2 invullen dus).
Voor de lol heb ik ook nog een klein extraatje voorzien bij "Leegmaken".

Kortom, je kan alweer gaan testen!

Groeten,
pitufo

op het blad van de weken kan je een datum aanpassen de volgende data veranderen automatisch naar de volgend week
ik cel K2 kan je invullen hoeveel laagste waarden er niet geteld worden ( - laagste...)

Na het invullen van een week vba de volgende week voor ieder weekblad afzonderlijk (kan me best voorstellen dat beide wedstrijden niet op dezelfde dag gebeuren)

Luc,

ik heb geprobeerd om het stukje code aan te passen om -4 -5 laagste te kunnen instellen

In het stukje code dat ik vorige keer meestuurde bepaalde ik kl1, kl2... (kleinste, 2°kleinste...) en trok de som daarvan af van het totaal. kl3 werd enkel berekend voor 10 weken. Op dezelfde wijze zou kl4, kl5... kunnen toegevoegd worden.
Maar dan moet je nog altijd de code wijzigen.
Ik heb nu voor een flexibele oplossing gezorgd waarbij het aantal laagste automatisch wordt bepaald aan de hand van cel K2 (7 weken) of N2 (10 weken). Ook als al een aantal wedstrijden zijn gespeeld kan je dit nog aanpassen en zal dit gebruikt worden vanaf de verwerking van de eerstvolgende wedstrijd. De tekst zoals hij daar nu staat, bv "-2 LAAGSTE" mag behouden blijven.
De voorwaarde dat "-X laagste" maar mag berekend worden vanaf de 6° of 8° wedstrijd blijft gelden.

Veel plezier ermee!
pitufo

Als ik mag nog 1 aanpassing...of is dit te moeilijk

Respectievelijk "ja" en "neen" 
Als je dat verkiest kan je in cel K2 of N2 (7 of 10 weken) enkel een getal zetten, en eventueel daarboven een verduidelijking.
Dat zal even goed werken en lijkt me handiger als je er veel mee wil 'spelen' 

Groeten,
pitufo

Ik vrees dat ik even niet meer volg, Luc.
Die laatste vraag zit verwerkt in de meest recente versie.
Tenzij ik die vraag compleet verkeerd heb begrepen (?)

Groeten,
pitufo

Dag Luc,

Zoals ik het zie zitten we met 2 methodes die het invullen of wijzigen van -x laagste kunnen in gang zetten. Ik kan me voorstellen dat dit niet altijd precies doet wat je zou willen. Ik zal niet beweren dat die methodes elkaar tegenwerken maar ze kunnen toch in elkaars vaarwater terecht komen.

Laat ons om er makkelijkst uit te komen enkel naar "7 weken" kijken (voor "10 weken" is de redenering namelijk exact dezelfde).

Als je op tabblad "prijskamp" klikt op ">>> 7 weken" worden in elk geval alle uitslagen volledig verwerkt op blad "7 weken" EN wordt de kolom "-x laagste" ingevuld ALS minimaal 6 weken zijn gespeeld, zoniet blijft die leeg.
Als je op tabblad "7 weken" cel K2 wijzigt wordt kolom K in elk geval berekend en opnieuw gesorteerd, om het even hoeveel weken er gespeeld zijn.
Tot daar kan er niets raars gebeuren.

Als je daarna, dus na een VOLGENDE prijskamp, terug de knop op blad "prijskamp" klikt, en je bent nog geen 6 weken ver, gebeurt er (volkomen volgens de logica achter die knop) niets met kolom K.
Daar zal best nog iets op verzonnen worden. Maar de kwestie is dat we een resem verschillende principes kunnen verzinnen en dat we daar een duidelijke keuze moeten in maken. Dat vervolgens coderen zal weer het probleem niet zijn!

1) Je zou ervoor kunnen kiezen dat bij wijzigen van K2 ook enkel kolom K berekend wordt indien minimaal 6 wedstrijden zijn gespeeld.
2) Of je kan met de knop op "prijskamp" laten herrekenen als minimaal 6 wedstrijden zijn gespeeld OF als kolom K al met de andere methode was ingevuld.
3) Of je kan met de knop op "prijskamp" laten herrekenen als minimaal 6 wedstrijden zijn gespeeld EN kolom K laten leegmaken als er minder zijn gespeeld.
4) Of ...
5) Of ...

Met punten 4) en 5) bedoel ik dus dat er zeker en vast nog andere mogelijkheden zijn om alles te sturen 
Anders gezegd: het is opnieuw jouw beurt 

Groeten,
pitufo