Auteur Topic: Méér dan 3 kolommen sorteren (gelezen 4443 keer)

SoftAid · « **Gepost op:** 19 maart 2006, 14:53:38 »

In een bereik (A1:E5) heb ik data staan. Deze wil ik sorteren (met een macro).

Alles sorteren op rij A, dan op B, dan op C, dan op D, en tenslotte op E. Dit moet in één keer gebeuren.

Gewoon sorteren in een werkblad kan maar 3 kolommen aan.
Kan ik in een macro dit tot 5 brengen, en met welke code (aanpassing)?

Bedankt.

SoftAid

LucHeyndrick · « **Reactie #1 Gepost op:** 19 maart 2006, 15:17:26 »

Hallo,

In één keer gaat niet. Maar dat hoeft de gebruiker niet te weten. Indien je het met een macro doet, kan je eerst sorteren op D en E, en vervolgens op A B en C. In een macro kan je dit immers onder één sub zetten, en dan heb je wat je wil.

ps. Naar mijn mening kan je dit met de recorder opnemen.

Luc

WG · « **Reactie #2 Gepost op:** 19 maart 2006, 17:09:47 »

Ik zou dat ook in 1 module van een macro doen.

Een tip die kan werken in welbepaalde omstandigheden (check dit voor jouw spreadsheet!):

je kan de inhoud van cellen samenvoegen met TEKST.SAMENVOEGEN, of simpelweg &. Bv. =A1&B1&E1

Vervolgens sorteer je op de nieuwe kolom. De sorteerregels van Excel zorgen dan voor de juiste sortering.

WG

SoftAid · « **Reactie #3 Gepost op:** 19 maart 2006, 18:20:56 »

Hallo WG,

Tekst samenvoegen, en dan sorteren gaat niet, dan komen de sorteerregels voor dit project niet meer uit.

Ik moet alles eerst sorteren van links naar rechts, en dan samenvoegen.

@Luc, ik begrijp wat je bedoeld, en krijg dit gemakkelijk in een macro verwerkt, maar het resultaat is niet hetzelfde als wanneer ik sorteer van links naar rechts in één keer.

Wat ik probeer is het probleem dat Guy8780 opgaf in dit topic
op te lossen met 1 macro, en ben al redelijk ver geraakt (voor een beginneling, met goede leermeester(s)).

Het probleem bestaat er in dat er 1 kolom tekst moet gesorteerd worden, maar de tekst bestaat uit getallen.

Ik hang het bestandje aan dat ik maakte, waar alles netjes in gesplitst wordt, om getallen te bekomen, en deze dan te kunnen sorteren. dit voorbeeld behelst 10 rijen, de echte
lijst heeft 4000 lijnen te sorteren.

Bedankt voor de hulp, want ik kom er niet uit met dat sorteren.

SoftAid

LucHeyndrick · « **Reactie #4 Gepost op:** 19 maart 2006, 21:38:52 »

Ik heb even een macro opgenomen. Je zal het nog moeten aanpassen, want ik selecteer zelf eerst een gebied, zodat ik enkel de juiste data sorteer. Wanneer er enkel een database in je werkblad staat, kan je gerust alles selecteren.

De truc zit er hem in dat je begint met het sorteren van de laatste data... en dan pas de eerste.

Sub Sorteren()
'
' Sorteren Macro
' De macro is opgenomen op 19/03/2006 door Luc Heyndrickx.
'

'
Range("A1:V12").Select
Selection.Sort Key1:=Range("O1"), Order1:=xlAscending, Key2:=Range("S1") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Key2:=Range("I1") _
, Order2:=xlAscending, Key3:=Range("L1"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
End Sub

Luc

SoftAid · « **Reactie #5 Gepost op:** 22 maart 2006, 11:23:46 »

Het sorteer probleem is opgelost

klein (stom) probleempje dat nog op te lossen is:

Normaal: Range("A1:A12").select

Nu wil ik de 12 in "A12" vervangen door en variabele, en dat lukt mij niet.
Range("A1:A & variabele").select
De truuk met de aperstand schijnt niet te werken in een Range?

Met RC formula ook niet...

Sub testleegmaken()
Dim einde As Integer
einde = Sheets("Sorteren").Range("A1").End(xlDown).Row
Sheets("Sorteren").Range(Cells(einde, 1)Cells(einde, 21)).Select
Selection.ClearContents
End Sub

Heren.... Hulp

SoftAid

WG · « **Reactie #6 Gepost op:** 22 maart 2006, 19:38:18 »

Softaid

Dim var as integer
Range("A1:A" & var).Select

WG

SoftAid · « **Reactie #7 Gepost op:** 22 maart 2006, 20:06:24 »

Hartelijk dank WG,

zo eenvoudig, maar je moet de haakjes en haken maar op de juiste plaats krijgen...

Bedankt,

Groeten,

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics