Sorteren op data == ok ---- & uur ???

[grema]

beste


via onderstaande code sorteer ik op data :

Sub Sorterenopdata()


'
    Range("A3:F900").Select
    Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A3").Select
End Sub

nu wil ik bijkomend sorteren op uur per dag ;

In kolom " D " staan de uren per dag.


Het resultaat zou moeten zijn :

kolom " A " is dag & datum
kolom " D " is binnen deze dag het uur oplopend.

Nu staat alles op volgorde dag , maar niet op volgorde uur.

Heeft iemand hiervoor een oplossing ?,

Alvast dank
grema

 

[richard1970]

Beste grema,

ALs je de macrorecorder aanzet en de tabel sorteert zoals jij dat wilt, krijg je de gezochte code.
Zonder voorbeeldbestand kan ik dat niet namaken, maar het zal er ongeveer zo uit zien. Let op het rode deel, dat is de tweede kolom om op te sorteren.

Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, [COLOR="Red"]Key2:=Range("D3") _
        , Order2:=xlAscending, [/COLOR]Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom

Richard

 

[grema]

Richard


in bijlage toch maar bestand.
Lijkt eenvoudiger .

grema

 

[richard1970]

Beste grema,

't Is hier natuurlijk ook de bedoeling dat je leert van hints, tips en zo
De code komt er bij mij zo uit te zien:

    Range("A3:F900").Select
    Range(Selection, Selection.End(xlUp)).Select
    Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("D3") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom

Hierbij staat drie keer 24 augustus bovenaan, met eerst de tijd 15:00 uur, daarna 16:15 uur en dan 19:00 uur.

Richard

 

[grema]

Richard

dank voor de code.


ps :

't Is hier natuurlijk ook de bedoeling dat je leert van hints, tips en zo

ben nog geen jaar bezig met excell, lees regelmatig de tips & hints ; maar geraak er niet steeds wijs uit , vandaar af en toe m'n " NOODKREET" .

Zoals reeds in andere topic vermeld : "" HELPMIJ "" is een pracht forum. :thumb::thumb:

Moet iedereen NOGMAALS DANKEN voor al de hulp en voorral geduld waarmee iets uitgelegd wordt.:thumb:

 

[richard1970]

You're welcome :thumb: