Automatisch sorteren

[theantontim]

Hi allemaal,

Kan iemand mij bij het volgende helpen?

Ik wil in excel de volgende bereiken automatisch laten sorteren: F6:F55, H6:H55, K6:K55

Nou heb ik de volgende VBA-Code en deze werkt voor het eerste bereik, kan iemand me helpen deze aan te passen ? Thanx!

Private Sub Worksheet_Change(ByVal Target As Range)
'Zodra u de laatste kolom heeft ingevoerd, dan wordt de lijst
'gesorteerd en gaat de cursor naar de volgende lege cel in kolom A.
If Intersect(Target, Range("F6:F55")) Is Nothing Then Exit Sub
Range("F6:F55").Sort _
Key1:=Range("F6"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub

 

[spaarie]

Het is dat ik toevallig in deze topic kijk anders had ik het nooit gezien, maar ik zou deze vraag sluiten en een nieuwe topic openen in de VBA afdeling en niet in 'Code uitwisselen'...

 

[ReneDirks]

Zoiets misschien? Dat laatste kan vast nog wel een stukje handiger.

Private Sub Worksheet_Change(ByVal Target As Range)
    CheckSort Target, Range("F6:F55")
    CheckSort Target, Range("H6:H55")
    CheckSort Target, Range("K6:K55")
End Sub

Private Sub CheckSort(Tgt As Range, R As Range)
    If Not Intersect(Tgt, R) Is Nothing Then
        R.Sort Key1:=Cells(R.Rows(1), R.Column), Order1:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End If
End Sub

 

[crash]

Het is dat ik toevallig in deze topic kijk anders had ik het nooit gezien, maar ik zou deze vraag sluiten en een nieuwe topic openen in de VBA afdeling en niet in 'Code uitwisselen'...

Waarom adviseren nog een topic over hetzelfde te openen, terwijl een melding naar de sectie moderator voldoende is om een topic naar de juiste sectie te laten verplaatsen? Dubbele topics zijn namelijk niet toegestaan.

Verplaatst naar VBA.