Opgelost Draaitabel hulp gevraagd

[Angela69]

Wie kan mij helpen met een draaitabel, ik e.e.a. al geprobeerd, maar het lukt me niet.
Zie bijgaand voorbeeld, de bedoeling is dat de totalen van groepen spelers naast elkaar met de datum in kolom volgorde geplaatst worden
en degene met de hoogste score bovenaan komt en afloopt naar beneden. (in het geel gearceerd)

 

[AlexCEL]

Ik heb het via de Power Query (PQ) route gedaan.

 

[cow18]

met een klassieke draaitabel

 

[AlexCEL]

@cow18, hoe laat jij die laatste kolom automatisch sorteren?

 

[Mde]

via de optie meer sorteeropties bij paar en dan aflopend (Z tot A) op: ->som van totaal

 

[Angela69]

Hallo allemaal, hartelijk dank voor jullie oplossingen, geweldig.
Ik ben helaas vergeten te melden dat er 9 data voorkomen en dat van de 9 resultaten er minimaal 6 resultaten moeten zijn om mee te mogen tellen en het gemiddelde van de 6 beste resultaten meetellen. Kan dat nog aangepast worden, alvast bedankt

 

[AHulpje]

Ietsje korter:

                Select Case Right(UCase(.Value), 2)
                    Case "NO"
                        .Value = Left(Target, 1) & "SA(O)"
                    Case "NW"
                        .Value = Left(Target, 1) & "SA(W)"
                End Select

 

[cow18]

ivm die 6, dat wordt dan toch de PQ van AlexCEL of een stukje VBA, alhoewel in het voorliggend bestand zijn er nog geen 6 data
PS. @AlexCEL, je vraag heeft @Mde al netjes beantwoord.

 

[Angela69]

Eh................... was dit voor mij bedoeld? En AHulpje, moet ik dit scriptje ergens bij plakken? Zo ja, kun je mij aangeven waar?

 

[Angela69]

Ik heb het via de Power Query (PQ) route gedaan.

Ik vind het helemaal geweldig, hee veel dank, ik heb totaal geen kennis van Power Query, dus kan ik niet zelf dit aanpassen. Zou jij dat voor mij willen doen? Het gaat om een competitie van 9 spelmomenten waarbij als je mee wilt strijden je minimaal 6 x mee moet doen en bij de beoordeling na 9 wedstrijden de beste 6 scores meetellen en waar dan een gemiddelde uitkomt rollen. In bijgaand bestand heb ik alle 9 momenten ingevuld. Wil jij dan de scripts bijwerken?

 

[AHulpje]

#7 was bedoeld om dit stuk code te vervangen, hoeft niet, mag wel:

                Select Case UCase(.Value)
                    Case "1NO"
                        .Value = "1SA(O)"
                    Case "1NW"
                        .Value = "1SA(W)"
                    Case "2NO"
                        .Value = "2SA(O)"
                    Case "2NW"
                        .Value = "2SA(W)"
                    Case "3NO"
                        .Value = "3SA(O)"
                    Case "3NW"
                        .Value = "3SA(W)"
                    Case "4NO"
                        .Value = "4SA(O)"
                    Case "4NW"
                        .Value = "4SA(W)"
                    Case "5NO"
                        .Value = "5SA(O)"
                    Case "5NW"
                        .Value = "5SA(W)"
                    Case "6NO"
                        .Value = "6SA(O)"
                    Case "6NW"
                        .Value = "6SA(W)"
                    Case "7NO"
                        .Value = "7SA(O)"
                    Case "7NW"
                        .Value = "7SA(W)"
                End Select

 

[cow18]

zonder draaitabel en eventueel handmatig sorteren
Wim&Maxima met hun 8 beurten zouden eigenlijk ook nog moeten gewipt worden ?

 

[Angela69]

Helemaal top, geweldig en nee er hoeft niks te worden gewipt,