Sorteren hoog laag

[Chris15]

Sorteren hoog laag

Zie bijlage.

D8 tm F19 moet steeds opnieuw gesorteerd worden na invoeren nieuw getal, van hoog naar laag. Is dit mogelijk?

Invoeren getallen gaat via A7

De D kolom is tekst en E en F zijn formules.

Het zou er bij sortering zo uit moeten zien:

K 11 105
E 20 111
L 12 22
A 30 12
G 11 5
I 23 -29

Enz.

 

[snb]

Heb je de sorteerfunktie (custom sort) in Excel al gebruikt ?

 

[Chris15]

Hoi SNB, nee, zover gaat mijn kennis niet. Heb je daar een voorbeeld van?

PS De uitkomst van de sortering mag natuurlijk ook ergens anders op het blad komen!

 

[emields]

en wat is de logica van uw sortering?

 

[snb]

Mij lijkt een cursus of handboek 'Excel voor beginners' de eerste stap voorafgaande aan vragen stellen op dit forum.
bijv.https://www.bol.com/nl/nl/p/microsoft-excel-2019-voor-dummies/9200000095657336/

 

[Chris15]

Hallo Emields. Dan hoef ik niet steeds zo te zoeken naar de hoogste waarde, en wat er bij hoort.

Misschien is het makkelijker om de hoogste waarde ergens te plaatsen, met de bijhorende gegevens?

In deze nieuwe bijlage staat in F4 de hoogste waarde, maar hoe krijg je dan de andere gegevens erbij?

Dit zou voorlopig een oplossing zijn.

 

[emields]

bedoel je dan zoiets?

 

[Chris15]

Emields, Super bedankt!

Respect voor je, dat je mensen (zoals ik) helpt met dit soort vragen!

 

[Chris15]

Beste Emields,

Kan je het misschien nog een keer nakijken?

Regelmatig geeft hij niet de hoogste waarde aan, ook negatieve getallen.

Ik hoop dat hier een oplossing voor is.

Zie nieuwe bijlage.

 

[emields]

Doe het dan zo want ik vrees dat de volgende vraag zal zijn : als er 2 gelijke standen zijn....

 

[Chris15]

Dank je Emields!

Alleen is nu de focus weg op A7 nadat je hebt ingevoerd. Kan dat weer terug?

 

[emields]

zo dan.

Het volgende wat je moet leren is wat de code doet.

 

[Chris15]

Dank je Emields! Ik had al als gokje de code gekopieerd en geplakt op het einde, zoals jij hebt gedaan.
Nu weet ik dat het correct is.

 

[Piet Bom]

@Chris,
Toevallig kwam er een paar dagen geleden een zelfde vraag.
https://www.helpmij.nl/forum/showthread.php/963662-Gesorteerde-lijst-weer-geven
Ik heb daar een oplossing met matrix-formules en hulpkolommen voorgesteld (zie #11)
Je kunt daar even kijken of dat die methode voor jou een oplossing zou kunnen geven.

 

[HSV]

Het volgende wat je moet leren is wat de code doet.

Om te beginnen om onderstaande regel op de juiste plaats te zetten.

Application.EnableEvents = True

Zo heeft de enableevents = false geen enkel doel.

 

[Chris15]

Dank je HSV voor je opmerking!

Kan jij de code aanpassen zoals het dan wel moet?

Zie:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a7]) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Range("a7").Insert
Application.Goto Range("a7")
i = Range("A" & Rows.Count).End(xlUp).Row
Application.EnableEvents = True

For Each ct In Range("B8:B" & i)
ct.FormulaR1C1 = "=RC[-1]"
Next
Range("D8:F19").Copy
Range("J8").PasteSpecial Paste:=xlPasteValues
Range("J8:L19").Sort [l9], xlDescending
Application.Goto Range("a7")
End If
End Sub

 

[snb]

Gebruik svp code tags.

 

[HSV]

Deze laat ik graag aan @emields over; leert hij/zij er ook van.

 

[emields]

Dat staat daar zeer goed, dat dient enkel voor als er in A7 iets veranderd niet in een loop te geraken. aangeizn er niets meer veranderd mag dat blijven staan.

die eerste application.goto ... mag weg

@hsv Als je de vraag gevolgd had zou je weten dat het eerste deel van de code niet van mij afkomstig is. ik heb er enkel het verplaatsen en sorteren van gegevens bijgevoegd.

 

[HSV]

Het zal daar prima staan in jouw ogen, maar het is te vroeg in de code. Telkens als je een formule plaatst in een cel met die lus die daarna nog komt, zal de code steeds opnieuwe aangeroepen worden.

Dus die enableevents = True moet pas na de laatste wijziging die je doet in het blad.