Zelfde sortering verschillende Ranges

[Lisette2016]

Hallo,

Ik moet een zelfde sortering doen van laag naar hoog in 26 ranges.
1e sortering is ("A41:M138")
2e sortering is ("141:M238")
3e sortering is ("241:M338")
enz tot 2541:M2638

Kan ik dit doen waarbij de ranges in 1 keer worden benoemd, ipv 26 keer deze code te maken?

Sortering ziet er zo uit:
Range("A41:M138").Select

ActiveWorkbook.Worksheets("Map1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Map1").Sort.SortFields.Add Key _
:=Range("L41:L138"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Map1").Sort
.SetRange Range("A41:M138")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

 

[VenA]

Zet er een lusje omheen.

Sub VenA()
For j = 0 To 25
  Range("A" & j * 100 + 41).Resize(98, 13).Sort Range("L" & j * 100 + 41), , , , , , , xlYes
Next j
End Sub

 

[Lisette2016]

Hoi VenA,

Waar zet ik het lusje?

 

[VenA]

Heb je de code uit #2 al geprobeerd?

 

[snb]

Als je een voorbeeld had geplaatst.....

Misschien ook deze:

sub M_snb()
  for each it in columns(1).specialcells(2).areas
     it.sort it.cells(1).offset(,11)
  next
End Sub

 

[Lisette2016]

Ik heb een voorbeeld bestand erbij gedaan.

 

[VenA]

Dan wordt het

Sub VenA()
For j = 0 To 25
  Range("A" & j * 100 + 41).Resize(98, 13).Sort Range("L" & j * 100 + 41)
Next j
End Sub

 

[Lisette2016]

VebA, ik snap nog steeds niet waar de lus dan moet komen?

 

[VenA]

Gewoon de code uit #7 in jouw bestand zetten en de macro uitvoeren.

 

[Lisette2016]

Super VenA, hij werkt !!