Automatisc sorteren na invoer

[Lutkeher]

In mijn Excel file wil ik facturen invoeren, echter heb ik ze niet op datum dus zullen ze random ingevoerd worden. Hoe kan ik nu zorgen dat ze automatisch (bij invoer al) gesorteerd gaan worden?

 

[HSV]

Zet deze code eens in je werkblad-module.
Het activeert als er een berekening plaats vindt.

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
 Cells(1).CurrentRegion.Offset(1).Sort Cells(1), , , , , , , 1
Application.EnableEvents = True
End Sub

 

[Obrecht]

Private Sub Worksheet_Calculate()
    Dim dataRange As Range
    Dim sortKey As Range
    Set dataRange = Cells(1).CurrentRegion.Offset(1)
    Set sortKey = Cells(1)
    dataRange.Sort Key1:=sortKey, Order1:=xlAscending, Header:=xlNo
End Sub

 

[Obrecht]

Hier een versie met knop

 

[emields]

of zo? dan moet je nooit meer formules plaatsen.