Aan de helpers,

bij het niet spelen van de eerste 3 speeldagen krijg ik een foutmelding vanaf de vierde speeldag die voortgaat bij elke volgende speeldag.
ps;ik denk dat bij minder gespeelde dagen hij deze foutmelding geeft,vb:ik heb de drie eerste speeldagen niet meegespeeld en vanaf de vierde wel,als ik dan de gegevens wegschrijf krijg ik de volgende foutmelding.
Ook de optelling van sommige leden is niet correct
 laagste = WorksheetFunction.Small(Range(Cells(r, 3), Cells(r, kolom_t - 1)), lg)

ik denk dat de formule in vba moet aangepast worden maar daar is mijn kennis onvoldoende voor

in bijlage de file waarvan de gegevens uit sheet prijskamp worden overgezet naar sheet 10weken.


           mvg,lco

update: als ik de foutmelding krijg past hij ook de datum niet aan voor de volgende week

pure gok aan de hand van de verstrekte gegevens aantal_laagste = Cells(2, kolom_t + 1)
   If WorksheetFunction.CountA(Range(Cells(3, 3), Cells(3, kolom_t - 1))) > aantal_laagste Then
      For r = 3 To rij
        [color=red] If WorksheetFunction.Count(Range(Cells(r, 3), Cells(r, kolom_t - 1))) > 3 Then[/color]
            laag = Cells(r, kolom_t)
            For lg = 1 To aantal_laagste
               laagste = WorksheetFunction.Small(Range(Cells(r, 3), Cells(r, kolom_t - 1)), lg)
               laag = laag - laagste
            Next lg
            Cells(r, kolom_t + 1) = laag
        [color=red] Else
            Cells(r, kolom_t + 1) = 0
         End If[/color]
      Next r
   End Ifblijkbaar kan er binnen een code niet van kleur veranderd worden.
Ik heb op 2 plaatsen een rode kleur willen inbrengen om de veranderingen aan te duiden, maar dat lukt niet 
Dus zoek  ['color=red] en  ['/color] (zonder die ')

Koe,

Ik heb de code enkele malen proberen in te voegen in de file maar dat krijg ik niet werkend

ik zal het proberen te verduidelijken met een voorbeeld (ben niet zo goed in vragen stellen)

In bijlage een voorbeeld.

klik in sheet prijskamp op de macroknop (rechtsboven)10 weken en kijk wat er gebeurd in sheet 10 weken
 
ps:in word doc. enkele screenshots om te verduidelijken wat ik bedoel
Hopelijk nu wat duidelijker en anders hoor ik het wel


        mvg,lco

Update:
Als ik de derde speeldag van de later bijgekomen spelers invul is alles terug normaal?
Dus ik veronderstel dat hij de fout maakt omdat ze de drie eerste malen niet gespeeld hebben en ook rekening houd met het aantal laagste dat er is ingevuld in cel N2

deze voormiddag eventjes niet.
Ik had het probleem ook al gezien en aangepast in die macro (zie hierboven) maar niet in deze event-macro.
De oplossing is analoog, dus ook eventjes checken of er wel al minstens 3 uitslagen zijn, maar ik zal een elegantere en snellere oplossing insturen met de nodige uitleg erbij. (sneller = heeft maar een fractie van de tijd nodig, dus bv 1 milliseconde ipv 10 milliseconde  )

ps:ik weet dat ik de code tussen tags moet zetten maar weet niet hoe SORRY

Selecteer de gehele code en druk dan op de # -knop in de knoppenbalk van je bericht.

SoftAid              

zie bijlage
in de totaal-kolom van 7 en 10 weken staat nu een gewone som-formule.
In de kolom ernaast, waar de x slechtste resultaten mochten weggelaten worden, staat nu een UDF (user defined function), die het werk opknapt.
1 en ander komt dan te vervallen.

Toch lijkt alles een lappendeken en zoals eerder door pitufo aangegeven, misschien moet er hier en daar nog eens geruimd worden.
 

cow18,

Als ik de macro activeer op sheet 10 weken (blad leegmaken) zijn ook de formules die je aangepast hebt weg.

ps:ik heb geprobeerd om de bereiken in de macro aan te passen maar dan krijg weer andere problemen dus blijf ik er liever af


    mvg,lco

cow18,

Als ik de tabel in sheet 10 weken leeg maak zijn ook de formules in kolom M verdwenen (enkel die in de leeggemaakte cellen)



     mvg,lco