Hoe een kolom automatisch op waarde sorteren in Excel?

Stel dat je een aankoop tabel hebt zoals in de onderstaande schermafbeelding. Nu wil je dat de kolom Prijs automatisch wordt gesorteerd wanneer je nieuwe getallen/prijzen in deze kolom invoert, hoe zou je dit kunnen oplossen? Hier introduceer ik een VBA-macro om je te helpen een specifieke kolom automatisch op waarde te sorteren in Excel.

Kolom automatisch sorteren op waarde met VBA

Kolom automatisch sorteren op waarde met VBA

Deze VBA-macro zal alle gegevens in een specifieke kolom automatisch sorteren zodra je nieuwe gegevens invoert of een waarde wijzigt in de kolom in Excel.

1. Klik met de rechtermuisknop op de naam van het huidige werkblad in de "Tabbladbalk", en klik vervolgens op "Weergave Code" in het rechtsklikmenu.

2. Plak de volgende VBA-macrocode in het venster dat wordt geopend in het dialoogvenster "Microsoft Visual Basic for Application".

VBA: Kolom automatisch sorteren in Excel

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

Opmerking:
1) In de bovenstaande VBA-code betekent "B:B" dat het kolom B automatisch zal sorteren, B1 is de eerste cel in kolom B, "B2" is de tweede cel in kolom B, en je kunt ze naar behoefte aanpassen.
2) Het fragment "Header:=xlYes" in de 5e regel vertelt Excel dat het bereik dat je gaat sorteren een koptekst heeft, zodat de eerste rij van het bereik niet wordt meegenomen bij het sorteren. Als er geen koptekst is, verander het dan in "Header:=xlNo"; en verander "Key1:=Range("B2")" in de 4e regel naar "Key1:=Range("B1")".

3. Ga vervolgens terug naar het werkblad, wanneer je een nieuw getal invoert in de kolom Prijs of bestaande prijzen wijzigt, wordt de kolom Prijs automatisch in oplopende volgorde gesorteerd.

Opmerking: Wanneer je een nieuw getal invoert in de kolom Prijs, moet je het getal invoeren in de eerste lege cel onder de oorspronkelijke getallen. Als er lege cellen zijn tussen het nieuw ingevoerde getal en de oorspronkelijke getallen, evenals lege cellen tussen de oorspronkelijke getallen, wordt deze kolom niet automatisch gesorteerd.

Demo: Kolom automatisch sorteren op waarde met VBA in Excel