Sorteren met Macro en knop

[Paulisie]

Hallo, Ik ben een leek met macro's
Maar ik heb de volgende vraag ik wil in een excel bestand een macro maken dat als ik op een knop druk (Sorteren op Naam)
er gesorteerd gaat worden op kolom B en kolom K

Kan iemand mij daar in helpen??

Bekijk bijlage Map2.xlsx

 

[Cobbe]

Zo misschien:

Sub cobbe()
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("B2:B12"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A1:H12")
        .Header = xlYes
        .Apply
    End With
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("K2:K12"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("J1:Q12")
        .Header = xlYes
        .MatchCase = False
       .Apply
    End With
End Sub

 

[VenA]

Probeer het zo eens.

Sub VenA()
  Cells(1).CurrentRegion.Sort Range("B1"), Header:=xlYes
  Cells(1, 10).CurrentRegion.Sort Range("K1"), Header:=xlYes
End Sub