31. oktober 2019 - 15:29Der er
8 kommentarer og 1 løsning
Automatisk sortering af tal, men også værdier i andre kolonner
Hej
Jeg har værdier i kolonne B - C - D - E - F - G - H - I - J. Nå jeg indtaster mine værdier i disse kolonner, ønsker jeg det således, at programmet sorterer efter kolonne B automatisk. Værdierne i de andre kolonner skal følge med, så de altid bliver sammen, på langs. Mit skema går helt ned til B550.
Der er ikke altid værdier i alle kolonnerne, men de skal stadig følge med..
VBA er et programmeringssprog til makroer. Denne kode kan gøre jobbet for dig
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B1:J550")) Is Nothing Then Range("B1:J550").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End If End Sub
Som altid, når man arbejder med makroer, bør man gøre det i en kopi af mappen, da der ikke er mulighed for at fortryde, hvis det ikke går som man ønsker.
For at bruge funktionen kan du højreklikke på den arkfane, hvor du har dine data. Vælg Vis programkode og kopier ovenstående til det tomme ark, der nu vises. Gå tilbage til arket og prøv at indtaste noget i en celle.
*Det kan dog blive lidt tungt, da den sorter hver gang, du har tastet noget i en af de kolonner, du har i området.
Når jeg har skrevet den kode ind, så når jeg prøver og skrive i excelarket kommer der en fejl "Run-time error '1004' Det kræver, at alle de flettede celler har samme størrelse" - hvad har jeg gjort forkert :)
Den tabel kunne godt bruges - kunne dog ikke have to af de samme overskrifter, så skrev den "dato2", men til det den skal bruges til går det nok - Tak for hjælpen! :)
velbekomme Excel problematikker kan løses på mange måder!
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.