*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: sorteren hoog-laag  (gelezen 1918 keer)

0 leden en 1 gast bekijken dit topic.

Offline Frans1949

  • Lid
  • *
  • Berichten: 64
  • Geslacht: Man
  • Oplossing.be
sorteren hoog-laag
« Gepost op: 02 augustus 2023, 23:49:12 »
Hallo,

Met onderstaande code kan ik A-Z of tewel laag-hoog sorteren.

Waar moet ik de regel:  .Orientation = xlTopToBottom door vervangen om van Z-A of tewel hoog-laag te kunnen sorteren?

Frans

       
Code: [Selecteer]
Sub Macro1()
 ''Sorteert rijen met kolom M van laag naar hoog.
        ActiveWorkbook.Worksheets("blad3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("blad3").Sort.SortFields.Add2 Key:=Range("m1:m10000" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("blad3").Sort
        .SetRange Range("A1:m10000")
        .Header = xlNo
        .MatchCase = False
    Sub Macro1()
 ''Sorteert rijen met kolom M van laag naar hoog.
        ActiveWorkbook.Worksheets("blad3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("blad3").Sort.SortFields.Add2 Key:=Range("m1:m10000" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("blad3").Sort
        .SetRange Range("A1:m10000")
        .Header = xlNo
        .MatchCase = False
     .Orientation = xlTopToBottom ''sorteerd A-Z
        .SortMethod = xlPinYin
        .Apply
    End With
    End Sub ''sorteren A-Z
        .SortMethod = xlPinYin
        .Apply
    End With
    End Sub
Gelogd

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: sorteren hoog-laag
« Reactie #1 Gepost op: 03 augustus 2023, 08:37:58 »
je moet bij "order" die regel aanpassen :

Order:=xlDescending = groot naar klein

Order:=xlAscending = van klein naar groot

Mvg,
Montagnard.
Gelogd

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: sorteren hoog-laag
« Reactie #2 Gepost op: 03 augustus 2023, 10:23:24 »
Frans,

Montagnard heeft helemaal gelijk.
Maar je macro is een beetje aan de lange kant. In feite volstaat dit:
Code: [Selecteer]
Sub Macro1()
Worksheets("blad3").Columns("A:M").Sort key1:=Range("M1"), Order1:=xlDescending, Header:=xlNo
End SubJe zal merken dat je ook in dat ene regeltje kan kiezen tussen a-z en z-a

Mvg,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Frans1949

  • Lid
  • *
  • Berichten: 64
  • Geslacht: Man
  • Oplossing.be
Re: sorteren hoog-laag
« Reactie #3 Gepost op: 03 augustus 2023, 11:13:02 »
Montagnard en Molly,

Beide bedankt voor uw reactie en oplossing.

Ik ga voor de oplossing van Molly.

Frans
Gelogd
Pagina's: [1]   Omhoog
 


www.combell.com