Sorteren in blokken

[verluc]

Kan via VBA een sorteringscode samenstellen voor een gewone aflopende sortering gebaseerd op een kolom.
Ik wens nu een sortering door te voeren via VBA van : (L4: L100) , (L110: L125) en (L130:L160)
Is dit mogelijk in één run te doen als men weet dat deze rijen kunnen uitbreiden, doch dat er tussen deze groepen minimaal één blanco rij is.?
Met dank bij voorbaat voor alle hulp.

 

[Roncancio]

Sub sorteren()
Dim lRij As Long
    For i = 1 To 3
        lRij = WorksheetFunction.Choose(i, 4, 110, 130)
        Range(lRij & ":" & Range("L" & lRij).End(xlDown).Row).Sort Range("L" & lRij)
    Next
End Sub

Met vriendelijke groet,


Roncancio

 

[verluc]

Beste Roncancio,

Bedankt voor spoedig antwoord.Werkt perfect, alleen ontbreekt een AFLOPENDE sortering.
Kan worden aangepast ?
Bedankt voor Uw tijd.

 

[Roncancio]

Ok dan.

Sub sorteren()
Dim lRij As Long
    For i = 1 To 3
        lRij = WorksheetFunction.Choose(i, 4, 110, 130)
        Range(lRij & ":" & Range("L" & lRij).End(xlDown).Row).Sort Range("L" & lRij), xlDescending
    Next
End Sub

Met vriendelijke groet,


Roncancio

 

[verluc]

Zeer bedankt voor spoedige hulp.
Zet deze vraag op afgehandeld.