Excel automatisch sorteren

[Robert Ford]

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

[didi79]

macro die geactiveerd wordt telkens je een cel wijzigt ?

[ITnetadmin]

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.

[ Post made via mobile device ]

[fvhbrugge]

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]

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]

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!

[MichielThiebaut]

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

[ubremoved_539]

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]

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