Navigation

   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 

Navigation

Generel makro - sortering i kolonner