herhalen horizontaal sorteren

[gpser]

Ik heb de volgende code aangemaakt om een matrix de horizontale regels afzonderlijk te sorteren.
Echter het sorteren gaat niet goed.
Graag een suggestie hoe ik dit kan oplossen

Range("H4:N100").Select
Selection.Copy
Range("P4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("rekentool").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("rekentool").Sort.SortFields.Add Key:=Range("P4:V4" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("rekentool").Sort
.SetRange Range("P4:V100")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply

 

[jkpieterse]

Je vertelt er helaas niet bij wat er eigenlijk fout gaat?

 

[gpser]

vanaf de tweede regel wordt er niet goed meer gesorteerd.

 

[Leotaxi]

probeer deze eens

Application.ScreenUpdating = False
Range("H4:N100").Copy
With Range("P4")
    .PasteSpecial Paste:=xlPasteValues
End With

Application.CutCopyMode = False

For x = 4 To 100
    ActiveWorkbook.Worksheets("rekentool").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("rekentool").Sort.SortFields.Add Key:=Range("P" & x, "V" & x _
    ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("rekentool").Sort
        .SetRange Range("P" & x, "V" & x)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
Application.ScreenUpdating = True

mvg

Leo

 

[gpser]

Top Leo dat werkt. Ik heb aan het eind van de code alleen Next toegevoegd
Joost

 

[Leotaxi]

ja kleine vergetel of slordigheid
kan gebeuren


kan je wel even de vraag als opgelost zetten ?


mvg
Leo

 

[snb]

Of

Sub M_snb()
  with Range("H4:N100").offset(,8)
    .value=Range("H4:N100").value

    For Each rw In .Rows
       rw.Sort rw.Cells(1), 1, , , , , , xlNo, , , 2
    Next
  end with
End Sub