Print side | Luk vindue

Generel makro - sortering i kolonner

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4675
Udskrevet den: 22.Nov.2024 kl. 16:40


Emne: Generel makro - sortering i kolonner
Besked fra: MaleneScharling
Emne: Generel makro - sortering i kolonner
Posteringsdato: 09.Feb.2022 kl. 10:59
Er det muligt at lave en generel makro, som sorterer i kolonner, som kan anvendes på alle regneark i filen? 

Min udfordring er at der i makroen skrives det konkrete Worksheets titel. Kan man på nogen måde skrive denne makro, sådan at den kan du på det aktive worksheet men uden at det er navngivet i makroen? 

Jeg vil netop undgå, at skulle lave én makroen pr. worksheet. 

    Columns("A:D").Select

    ActiveWorkbook.Worksheets("Prod1 (3)").ListObjects("Tabel1").Sort.SortFields. _

        Clear

    ActiveWorkbook.Worksheets("Prod1 (3)").ListObjects("Tabel1").Sort.SortFields. _

        Add2 Key:=Range("A2:A500"), SortOn:=xlSortOnValues, Order:=xlDescending, _

        DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Prod1 (3)").ListObjects("Tabel1").Sort

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With 


Print side | Luk vindue