Sorteren op aantal behaalde punten

[tilly86]

Goedenavond,

Ik ben bezig met een Poule en krijg de macro niet voor elkaar ondanks hij volgens mij simpel is.
Het is de bedoeling dat elke poule gerangschikt word op het aantal behaalde punten.
Speler met de meeste punten moet bovenaan komen
speler met de minst behaalde punten moet onder aan komen.
Als het kan met 1 druk op de knop

Hoop dat iemand zin en tijd heeft om dit erin te zetten voor mij.

Bekijk bijlage test poule sorteren.xlsx

Alvast heel erg bedankt!

 

[VenA]

Er staat niets relevants in het bestand. Iedereen heeft 0 punten en dan lijkt mij de sortering correct.

 

[tilly86]

Hoi hoi ik heb het bestandje aangepast met behaalde punten erin.
Bekijk bijlage test poule sorteren.xlsx

 

[VenA]

Het bestand staat nog steeds vol met externe links maar goed. (zal zeer waarschijnlijk niet werken in het echte bestand maar dan moet je maar met wat beters komen.)

Sub VenA()
  For Each ar In Sheet1.UsedRange.SpecialCells(2).Areas
    With ar.Offset(, -1).Resize(, 2)
      .Sort .Cells(1, 2), 2, , , , , , xlYes
    End With
  Next ar
End Sub

 

[tilly86]

Aaj die had ik niet door inderdaad, ik heb dit gekopieerd vanuit een bestand waar alles naar elkaar toe gelinkt staat.
Dat heb ik er nu allemaal uitgehaald.

Bekijk bijlage test poule sorteren.xlsm

 

[VenA]

En dus werkt het nu of gaat er nog iets fout?

 

[tilly86]

Ik krijg helaas een foutmelding zo op deze manier.
Bij foutopsporing staat onderstaande in het geel gearceerd :

For Each ar In Sheet1.UsedRange.SpecialCells(2).Areas

 

[Jack Nouws]

Met deze code misschien

Sub Sorteren()
    For j = 2 To 20 Step 6
        For jj = 2 To 23 Step 3
            Cells(j, jj).CurrentRegion.Offset(1).Sort Cells(j, jj + 1), 2
        Next
    Next
End Sub

 

[HSV]

@VenA,

Heb jij als codenaam van het blad Sheet1?
Als ik het bestand open staat er bij mij Blad1.

Dat bedoelde ik laatst.

 

[VenA]

En nu? Zelf maar wat studie doen. In het laatste bestand ben je ook weer niet consequent. In O15:O18 en U15:U18 staan formules. Altijd handig overigens om op voorhand de row- en columnheaders uit te zetten.

 

[tilly86]

Bekijk bijlage test poule sorteren.xlsm

Heel erg bedankt daar werkt hij perfect mee
Code:
Sub Sorteren()
For j = 2 To 20 Step 6
For jj = 2 To 23 Step 3
Cells(j, jj).CurrentRegion.Offset(1).Sort Cells(j, jj + 1), 2
Next
Next
End Sub

 

[tilly86]

VenA ook bedankt, die werkt inderdaad ook.

en sorry voor mijn onwetendheid, probeer hier een beetje wegwijs in te worden. Maar zoals je merkt ben ik nog lang geen expert