rijen automatisch sorteren op 2 kolommen

[DeCor]

Ik heb een bestandje met een paar VBA knoppen, "vak B1", "vak B2" en "datum"

wanneer ik nu een nieuwe rij invul en ik druk op "vak B1" (geef de "opmerkingen" in) en vervolgens op "datum" druk, wordt heel die rij gesorteerd volgens eerst "vak" en nadien "datum". Dit werkt, maar hij sorteert enkel op de "dag" van de datum. Dwz wanneer de volgende maand begint loopt het mis.

Ik hoop dat iemand me hiermee kan helpen.

Alvast bedankt.

 

[Warme bakkertje]

Probeer onderstaande eens uit

Private Sub CommandButton1_Click()
[E65536].End(xlUp).Offset(1, 0).Value = Format(Now, "dd/mm/yy hh:mm") 'plaatsen van huidige datum en tijd
[A23:E200].Sort Key1:=[A23], Order1:=xlAscending, Key2:=[E23], _
Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal                'sorteren op Vak en datum
[A23].Select
End Sub

Mvg

Rudi

 

[DeCor]

Bedankt Rudy,

Dit lijkt te werken :thumb:
Was de oorzaak dan omdat er "date" stond ipv "now"?

In elk geval, bedankt want hier breek ik mijn kop al verschillende uren over.

mvg,

 

[Warme bakkertje]

Normaal herkent Excel datums en uren als getallen. Door jouw format (met tussenstreepje) was dit niet meer het geval.

Mvg

Rudi

 

[DeCor]

Dat vergeten we niet meer

Nogmaals bedankt Rudi

mvg,