Sortering af rækker

Hvad er der galt med den almidelige sorteringsfunktion? Nå jeg trykker på pilene, så ender det som du beskriver!

problemet er at den gerne skulle gøre det automatisk dvs uden at trykke på nogle knapper

Hvordan lige det? Du er jo nødt til at aktivere den på en eller anden måde.

Åh. Er den en del af en makro?

I en macro kan det gøres med

Range("C1:D7").Select
Range("D1").Activate
Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Hvor celle C1:D7 er dit område og D1 er den øverste celle i kolonnen med de data du vil sortere efter.

Det kan godt være at jeg ikke har udtrykt mig klart nok og det undskylder jeg natruligvis, det handler om at brugerne kan indtaste forskellige værdier i nogle celler, og ikke alle celler bliver der nødvendigvis skrevet i hver gang, men brugeren skal efterfølgende have mulighed for at ændre værdierne og derved have en anden sortering, dvs. sorteringen skal ske hver gang brugeren har indtastet nye værdier, de sorterede værdier ryger over pået andet ark. Den indtastede værdi er ikke tal, men kommasepareret tekst, jeg ønsker som ovenfor beskrevet at tomme linier i celleområdet skal stå nederst efter en sortering, håber at dette kan hjælpe på at anskueliggøre mit problem.

hilsen Sv@@ge

Tjah Svaage, nu skulle jeg have noget klar:

I det modul, der hører til regnearket placerer du følgende lille programstump

Sub MoveSort()

    Application.ScreenUpdating = False
    Range("C1:D7").Select
    Selection.Copy
    Sheets("Ark2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1:B7").Select
    Range("B1").Activate
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("B1").Select
    Sheets("Ark1").Select
    Range("A1").Select
    Application.ScreenUpdating = True
   
End Sub

Og i selve det regneark, hvor brugeren indlæser data, skal du indlæse følgende funktion.

Private Sub Worksheet_Change(ByVal Target As Range)

    Call MoveSort
   
End Sub

Du skal lige være opmærksom på følgende:

Ovenstående kopierer celler fra Ark1!C1:D7 og placere dem i Ark2 begyndende i celle A1.
I Ark2 sorteres A1:B7 efter indholdet af kolonne B.
Når koden er afviklet, placeres markøren i ark2 i celle B1 og i Ark1 i celle A1. Ark2 ses ikke i forbindelse med afviklingen af programmet.

den meddeles en fejl " Metoden Select for klassen Range mislykkedes " og den debugger en fejl i linien "  Range("A1").Select "

Det lyder mystisk. Koden fungerer fint her.

Kan det mon skyldes at du har placeret koden forkert? Koden for Worksheet_Change SKAL ligge i brugerens ark, og MoveSort SKAL ligge i det generelle ark (findes typisk under "Moduler" med navnet Modul1). Hvis du placerer MoveSort i arkets kode virker det ikke.

skal Call Movesort ligge i mappen this Workbook eller ? jeg kan ikke finde nogen Modul1

Nej. Du skal finde hvor der står VBAProject(dit regnearknavn). Herunder er en gul mappe med navnet "Microsoft Excel Objekter" (hvorunder alle dine regneark og "ThisWorkbook" ligger). Højreklik med musen VBAProject(dit regnearknavn) og vælg "Indsæt" og "Modul". Så indsætter programmet "Moduler" og herunder Modul1.

har du mulighed for at sende arket til mig så jeg kan se hvad det er du gør ? så kan jeg muligvis fejlfinde på mit ark, vender tilbage skal lige spise med familien
du kan sende på sv.kir@ci.kk.dk

Jeg har nu fået det til at virke, jeg havde byttet om på placeringen af de 2 koder, så nu er det på plads, der er dog opstået et nyt lille problem. Når funktionen kopiere data over på ark 2, skriver den at den mangler en reference og kan det skyldes at der hvor den kopierer oplysninger fra er ikke værdien af et tal men en reference til en anden celle, så hvordan får jeg den rigtige værdi til at stå uden reference til en anden celle. Det kan lade sig gøre ved at kopiere cellen og Indsæt speciel og kunne indsætte "værdier", men dette må kunne gøres med en formel eller en lille bid VBA-kode eller hvad ?

Du erstatter blot
ActiveSheet.Paste

med
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Hej Superjab mange tak for din hjælp til dette spørgsmål, nu fungerer det bare som det skal, så du får nogle point

Pænt tak.