Rangschikken kolom automatisch

[verluc]

Zou graag een kolom automatisch willen rangschikken na invoering van een getal op de laatste
Blanco lijn
Alvast dank voor de genomen moeite

 

[popipipo]

Misschien is een klein excel bestandje handig

 

[verluc]

Heb in kolom A een getallen reeks staan van 20 getallen ( = 20 lijnen)
Wil hier op laayste vrije lijn (=21) een getal toevoegen
Na toevoeging automatisch oplopend rangschikken

 

[HSV]

Private Sub Worksheet_Change(ByVal Target As Range)
 [a1].CurrentRegion.Sort [a1]
End Sub

 

[verluc]

Fantastisch, werkt zoals gevraagd
Graag nog een toevoeging aan deze macro:
Kan bij toevoeging van een reeds bestaand getal (dus dubbel)
De reeds bestaande cel rood gekleurd ?
Dit om dubbels te vermijden
Met gemeende waardering

 

[HSV]

Wat ga je daarna met die rode (dubbele) cel doen die dan in de gesorteerde lijst komt.
Is het dan niet beter om deze gelijk weer te verwijderen?

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
 .EnableEvents = False
   If .CountIf(Columns(1), Target) > 1 Then .Undo
   [a1].CurrentRegion.Sort [a1]
 .EnableEvents = True
End With
End Sub