Automastisk sortering

Ja det kan du med en vba som f.eks. automatisk starter ved åbning af filen (og laver sorteringen inden filen er klar for brugeren). Koden er i stil med dette:

Private Sub Workbook_Open()
Worksheets("Sheet1").Sort.SortFields.Clear
Range("A1:E6").Sort Key1:=Range("E1"), Key2:=Range("C1"), Header:=xlYes, _
    Order1:=xlAscending, Order2:=xlDescending
End Sub

Hej Kim,

Jeg er ikke vandt tilt at bruge kodning, så kan du uddybe? Jeg kan ikke gennemskue hvor i ovenstående der står at det er open/gul der skal sorteres øverst? Eller i så fald om det er noget jeg skal sætte ind et sted?

Mvh Marie

Vi splitter det lidt op:

Private Sub Workbook_Open() 'betyder at den skal køre når workbook åbnes

Worksheets("Sheet1").Sort.SortFields.Clear ' sikrer at du ikke allerede har sorteret dataen

Range("A1:E6").Sort Key1:=Range("E1"), Key2:=Range("C1"), Header:=xlYes, _
    Order1:=xlAscending, Order2:=xlDescending ' denne linje sorterer den range som ligger i A1:A6 (med overskrifter - header yes), den sorterer på kolonnen i E først ascending - oppefra og derefter sorterer den på kolonne C nedefra

Er du i tvivl om hvordan du sætter det ind så er vi ude i en lidt større forklaring af hvordan vba editoren fungerer.


End Sub