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
Excel automatisch sorteren
-
- Elite Poster
- Berichten: 1515
- Lid geworden op: 12 nov 2005, 18:54
- Uitgedeelde bedankjes: 102 keer
- Bedankt: 101 keer
-
- 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.
[ Post made via mobile device ]
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 ]
-
- 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
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
-
- 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
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
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
Edit: laatste instructie gewijzigd in Range(Target.Address).Select om na sorteren terug te staan in de gewijzigde cel
-
- 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!
Dit is exact wat ik zoek. Ik versta niet al te veel van de code maar kom, het werkt als een trein!
-
- 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
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
-
- Deel van't meubilair
- Berichten: 29849
- Lid geworden op: 28 okt 2003, 09:17
- Uitgedeelde bedankjes: 434 keer
- Bedankt: 1972 keer
... enkele kleine aanpassingen. Is trouwens dezelfde oplossing voor MichielThiebaut.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
Hij moet enkel N1:N30 aanpassen naar C3:C22, en A1:N30 aanpassen naar A3:H22.
-
- 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
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