VBA Sorteren

[johngub]

Hallo,

Ik wil graag cel C sorteren en dat hij dan cel A en E en G en I de gegevens ook mee neemt.
Zie voorbeeld is denk ik duidelijker.

 

[mvw64]

Kijk zo eens

 

[MarcelBeug]

Dat kun je ook doen met aangepast sorteren, hetgeen ik dan ook gedaan heb met de macro recorder geactiveerd, resulterend in de volgende

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("A:I").Select
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("C2:C13"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A1:I13")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[johngub]

Het werkt bedankt

 

[zapatr]

Ik wil graag cel C sorteren en dat hij dan cel A en E en G en I de gegevens ook meeneemt.

je kunt volstaan met deze code:

Sub macro1()
Sheets("Blad1").Range("A2:I4").Sort Range("C2")
End Sub