Sorteerprobleem

[NIh1IlO]

Dag specialisten,

In een bestand wil ik de gegevens kunnen sorteren, zowel alfabetisch als chronologisch (met hier zelfs een onderscheid tussen leeftijd enerzijds en de verjaardagskalender anderzijds).
Daartoe heb ik macro's (verbonden aan knoppen) gemaakt.
Wat stel ik nu vast? Bepaalde kolommen (c.q. D) worden niet steeds meegesorteerd in de drie sorteerwijzen.
Hoe komt dit toch en wat moet eraan verholpen worden?
Het is de bedoeling dat er van de ene sorteerwijze naar een andere kan worden overgestapt, ongeacht een bepaalde volgorde.
Hopelijk kunnen de denkers mij de goede tip bezorgen.
Ik geef het betreffende bestandje in bijlage.

Met vriendelijke dank,

nIh1IlO

 

[Gert Bouwmeeste]

Het bestandje staat wel in de bijlage, maar de betreffende macro zit er niet in?

 

[NIh1IlO]

Sorry Gert,

Hier komt ie!

nIh1IlO

 

[Gert Bouwmeeste]

Roger,

Vervang dit:

Range("A4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select

door dit:

Range("A4:Z238").Select

Ik vindhet minder handig dat je de macroknoppen onderaan neerzet. Op die manier ben je beperkt in het aantal leden wat je toevoegt. Als e meer regels bijkomen dan moet je de macro ook elke keer veranderen.

 

[NIh1IlO]

Bedankt Gert voor de zeer snelle en adequate oplossing en dito tips.

Vriendelijke groeten,

nIh1IlO :thumb:

 

[Cobbe]

Zonder gebruik te maken van 'select':

Sub chrono_sort()
' De macro is opgenomen op 27/03/2008 door Smagghe Roger.
'
    [COLOR="Red"][B]Range("A4:Z" & Sheets("chrono_lijst").UsedRange.Rows.Count)[/B][/COLOR].Sort Key1:=Range("I4"), Order1:=xlAscending, Key2:=Range("H4") _
        , Order2:=xlAscending, Key3:=Range("G4"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A4").Select
End Sub

Sub chr_mnd_dag()
'
' chr_mnd_dag Macro
' De macro is opgenomen op 27/03/2008 door Smagghe Roger.
'
    Range("A4:Z238").Sort Key1:=Range("H4"), Order1:=xlAscending, Key2:=Range("G4") _
        , Order2:=xlAscending, Key3:=Range("C4"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A4").Select
End Sub

Sub alfab_sort()
'
' alfab_sort Macro
' De macro is opgenomen op 31/03/2008 door Smagghe Roger.
'
    Range("A4:Z238").Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("A4") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
    Range("A4").Select
End Sub

Het is beter om 'Select' te vermijden.
De regel in rood kan enkel indien je onder je NAW gegevens niets meer zet, dan telt deze de nodige rijen.

Cobbe

 

[NIh1IlO]

Cobbe, ook van harte bedankt!

Er moet echter toch nog iets fout zijn met die code in het rood want ik krijg telkens een foutmelding.

Groetjes

nIh1IlO

 

[Cobbe]

Er mag niets meer staan onder de persoonsgegevens.
Er mogen geen samengevoegde celln in de te sorteren kolommen zitten.

Dan werkt het wel.

Zie bestand

Mvg, Cobbe

 

[NIh1IlO]

Bedankt Cobbe, :thumb:

Alles werkt nu perfect. Mooi alternatief!

Vriendelijke groeten,

nIh1IlO