Excel automatisch sorteren

Windows, Android, iOS, Linux, Chrome OS, ...
Plaats reactie
Robert Ford
Elite Poster
Elite Poster
Berichten: 1515
Lid geworden op: 12 nov 2005, 18:54
Uitgedeelde bedankjes: 102 keer
Bedankt: 101 keer

Hallo,

Ik organiseer binnenkort een Quiz en ik had graag een Excel lijst gemaakt waarin de ploegen automatisch gesorteerd worden op de totale score.




Ik heb voorlopig al even wat ploegen ingevuld en fictieve scores ingevuld maar in principe had ik graag dat bij elke update van een cel het hele celbereik van A1 tot N30 mee switched.


Is dit eenvoudig in te stellen? Het moet bvb ook werken als bvb ronde 1 en 2 nog maar net zijn ingevuld. (dus nog geen scores voor de resterende rondes, blanco cellen dus)





Alvast bedankt voor de gouden tip :-)
Laatst gewijzigd door Robert Ford 25 feb 2014, 00:12, in totaal 1 gewijzigd.
didi79
Elite Poster
Elite Poster
Berichten: 1054
Lid geworden op: 25 jun 2007, 17:19
Locatie: 8930 Rekkem
Uitgedeelde bedankjes: 107 keer
Bedankt: 108 keer
Recent bedankt: 1 keer

macro die geactiveerd wordt telkens je een cel wijzigt ?
ITnetadmin
userbase crew
userbase crew
Berichten: 8965
Lid geworden op: 28 jan 2012, 18:22
Uitgedeelde bedankjes: 199 keer
Bedankt: 689 keer
Recent bedankt: 2 keer

Is een gewone sorteerfilter op de hele rij 1 niet genoeg?
Dan kan je sorteren op wat je wil in elke volgorde, en als je het goed doet sorteert ie de rest mooi mee.
Moet je wel effe manueel op klikken, automatisch gaat veeleisend werk worden vrees ik.

[Afbeelding Post made via mobile device ]
fvhbrugge
Elite Poster
Elite Poster
Berichten: 1597
Lid geworden op: 23 nov 2008, 20:38
Uitgedeelde bedankjes: 101 keer
Bedankt: 123 keer

Zoals vorige poster ITadmin zegt: gewoon sorteren door bovenaan één rij te plaatsen. (die nu verkeerdelijk onderaan staat)

Zet op de eerste rij de titels, in plaats van onderaan.
dus rij 1:
"namen team" , "ronde 1", 'ronde 2" ,..........., TOTAAL

Het enige dat je moet doen als er een ronde volledig is ingegeven, dat is manueel op sorteren klikken en kiezen om te sorteren op kolom TOTAAL
DIBO
Elite Poster
Elite Poster
Berichten: 883
Lid geworden op: 28 maa 2009, 22:21
Uitgedeelde bedankjes: 183 keer
Bedankt: 97 keer
Recent bedankt: 1 keer

Probeer dit eens:
1.Klik met de rechtermuisknop op het tabblad Blad1 en klik vervolgens op Programmacode weergeven.
2.Kopieer onderstaande code in het VBA venster

Code: Selecteer alles

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("A1:N30").Select
    Range("N30").Activate
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("N30"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:N30")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range(Target.Address).Select
End Sub
Bij elke celwijziging wordt nu alles gesorteerd op het totaal per ploeg.

Edit: laatste instructie gewijzigd in Range(Target.Address).Select om na sorteren terug te staan in de gewijzigde cel
Robert Ford
Elite Poster
Elite Poster
Berichten: 1515
Lid geworden op: 12 nov 2005, 18:54
Uitgedeelde bedankjes: 102 keer
Bedankt: 101 keer

Big thanks to DIBO !!

Dit is exact wat ik zoek. Ik versta niet al te veel van de code maar kom, het werkt als een trein!

:wink:
MichielThiebaut
Starter
Starter
Berichten: 1
Lid geworden op: 25 aug 2017, 10:45

Beste,

ik zoek ook macro waarbij de sortering na iedere input aangepast wordt. de sortering moet gebeuren op een kolom waarin de totalen staan van een reeks waarden in naastliggende kolommen.
Ik heb hierbij een vereenvoudigde weergave gegeven, maar in realiteit is de tabel een stuk groter. Kan iemand me helpen om de juiste macro te gebruiken : zie excel in bijlage.

Of misschien bestaat er ook de mogelijkheid om een knop te maken (met daarachter een macro), waar je door op te klikken het sorteren in gang zet ?

bedankt
Bijlagen
Mountainmaniacs punten test tris.xlsx
(10.56 KiB) 517 keer gedownload
ubremoved_539
Deel van't meubilair
Deel van't meubilair
Berichten: 29849
Lid geworden op: 28 okt 2003, 09:17
Uitgedeelde bedankjes: 434 keer
Bedankt: 1972 keer

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1:N30").Select
Range("N30").Activate

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("N1:N30"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:N30")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(Target.Address).Select
End Sub
... enkele kleine aanpassingen. Is trouwens dezelfde oplossing voor MichielThiebaut.

Hij moet enkel N1:N30 aanpassen naar C3:C22, en A1:N30 aanpassen naar A3:H22.
heksje6666
Starter
Starter
Berichten: 1
Lid geworden op: 28 feb 2018, 09:32

Via Google hier terecht gekomen omdat ik een gelijkaardige vraag heb. Ik heb even geprobeerd met de code die hier eerder werd gegeven en aangepast volgens het bereik, maar ik ken er helemaal niets van en doe duidelijk iets verkeerd, want het werkt niet.

Kan iemand mij helpen? In bijlage het Excel formulier die we gebruiken voor de quiz. Het is enkel in het tabblad PRESENTATIE er moet gerangschikt worden. Kolom E (Totaal) moet van hoog naar laag gerangschikt worden en uiteraard moet kolom D meegaan zodat de juiste naam van de ploeg bij het juiste totaal staat.

Ondertussen al tot volgende code gekomen, maar lukt enkel als ik iets handmatig wijzig in tabblad PRESENTATIE. Het is de bedoeling als ik iets invul in tabblad INVOERBLAD en de totaalscore dus vanzelf wijzigt in tabblad PRESENTATIE dat hij automatisch rangschikt:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("D4:E23").Select
Range("E23").Activate
ActiveWorkbook.Worksheets("PRESENTATIE").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("PRESENTATIE").Sort.SortFields.Add Key:=Range("E4:E23"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("PRESENTATIE").Sort
.SetRange Range("D4:E23")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(Target.Address).Select
End Sub
Bijlagen
muziek en film Quiz 2018 groepen.xlsx
(17.52 KiB) 313 keer gedownload
Plaats reactie

Terug naar “Software en apps”