Sorteren

[popipipo]

Ik heb je bestandje eens bekeken.
Om eerlijk te zijn begrijp ik niet wat het hele bestand inhoud.
Ik zie alleen een hoop getallen en de logica begrijp ik niet.

Waar gebruik je dit bestandje nu voor?
Hoe hangen de verschillende tabbladen aan elkaar?
Wat gaat er niet goed met sorteren; hoe had je het dan willen hebben?

 

[mcs51mc]

Hallo brandsmurf, laat ons de puzzlestukjes eens bij elkaar smurfen... ...
Wanneer je je originele code, die blijkbaar uit je file verdwenen is, naast wat ik voorstelde leg, moet er toch een belletje gaan smurfen hoe de vork aan de steel zit?
Of niet ?!?
In elk geval werkt onderstaande code perfect op jouw tabel in blad "TOTAAL"

Sub Sort()
    
    'Sorteer sleutel instellen
    With ActiveWorkbook.Worksheets("TOTAAL").Sort.SortFields
        .Clear
        .Add Key:=Range("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        '.Add Key:=Range("C:C"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        '.Add Key:=Range("E:E"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    End With
        
    'Sorteren
    With ActiveWorkbook.Worksheets("TOTAAL").Sort
        .SetRange Range(Range("A2"), Range("A2").End(xlDown).End(xlToRight))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Vul gerust wat lijnen onderaan je lijst in sheet "TOTAAL" aan en ze worden mee gesorteerd.

Eén zaak moet je nog uitleggen, wat versta je onder "automatisch" ?
Wanneer is dat juist?
Wanneer we die voorwaarde kennen, moet die voorwaarde bovenstaande code triggeren.

Snappie???

 

[Brandsmurf]

Hallo popipipo, en mcs51mc

Heb in de bijlage het een en ander proberen duidelijk te maken, hoop dat dat gelukt is.

Automatisch was een groot woord, ik bedoelde wanneer ik op een knop druk ctrl+s bijvoorbeeld.

 

[popipipo]

Nu begrijp ik je omdat ik nu ook weet wat de getallen voorstellen.

Om alles wat flexibeler te maken heb ik in tabblad 'avond' een aantal formules gezet. (gele cellen)
Zo hoeft de volgorde van Baan A en Baan B niet dezelfde te zijn om toch de juiste uitslag te krijgen.

In tabblad totaal rij 44 staat via formules de uitslag van tabblad 'avond'
Door nu op de knop 'kopie en sorteer' te drukken kopieert hij de uitslag van rij 44 naar rij 30 als 'waarde' en niet als formule en zal dus niet meer wijzigen.

Tevens zorgt deze knop voor de sortering van hoog naar laag per kolom (rij 3 tm rij 30)

 

[Brandsmurf]

Beste popipipo,

Petje af, hartelijk dank voor deze oplossing dit was zo,n beetje waar ik heen wilde.

Nogmaals mijn dank voor de moeite, en sorry dat het begin wat hobbelig was maar alle begin is moeilijk.
Hoop als weer een vraagje heb dat ik weer aan mag kloppen.

Gr, Brandsmurf

 

[Brandsmurf]

Beste trucker 10, en mcs51mc,

Ook jullie mijn dank voor het helpen met mijn sorteer vraag.

Gr, Brandsmurf

 

[trucker10]

Ieder apart

Sub eerste()
With [A3].CurrentRegion.Columns(1)
    .Sort [A3], xlAscending
End With
End Sub

Sub tweede()
With [B3].CurrentRegion.Columns(2)
    .Sort [B3], xlAscending
End With
End Sub
Sub derde()
With [C3].CurrentRegion.Columns(3)
    .Sort [C3], xlAscending
End With
End Sub

Je zou ze in een lus kunnen zetten > " For i = 1 to Columns Count " dan haal je het cijfer weg en zet je i in de plaats en op het einde van de macro next i .

As je de andere macrootjes maakt telekens het rows nr aanpassen !

Edit : bij mij is er iets misgelopen na de mail deze middag en het openen zag ik enkel #23 als laatste , zag niet dat er van Willen al een oplossing stond .
Kijk als bijdrage de range " CurrentRegion.Columns "

 

[Brandsmurf]

Beste trucker10,

Ook dank voor de hulp, ga me eens verdiepen in deze materie eens kijken of ik ook met jullie macrootjes ook wat verder kan komen.

Gr, Brandsmurf