19. september 2003 - 14:39Der er
5 kommentarer og 1 løsning
låse række til brug for sortering
Jeg har et regneark med data, hvor en række hører sammen. Jeg vil gerne kunne sortere på en kolonne, så der ikke går rod i mine rækker. Hvordan gør man det?
Jeg vil gerne være fri for at markere rækkerne hver gang.
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Jeg ved ikke hvad du mener med går rod i rækkerne. Excel bytter aldrig rundt på rækkernes indhold. Men hvis du har data før de rækker du vil have sorteret og data bagefter, kan det godt være du er nødt til at markere hvilke rækker der skal sorteres.
Det var dog en frygtelig opgave. Følgende makro løser problemet håber jeg. Det kræver dog at to kolonner inddrages som en slags hjælpe/oplysningskolonner. BB bruges som en slags opbevaring. I BC skal du skrive hvilke rækker der ikke skal sorteres med. Dvs. BC1 = 8, BC2 = 10 osv. Det er kolonne F der sorteres i dette eksempel. Håber det kan bruges:
Sub sorter() Application.ScreenUpdating = False Dim midl As Range Dim midl2 As Range Set midl = Range("bb:bb") Set midl2 = Range("bc:bc") Dim kol As Range Set kol = Range("f:f") ' hvilket område skal sorteres For Each cell In midl2 cell.Select rak = cell If rak = "" Then GoTo fortsæt Else kol(rak, 1).Select Selection.Cut midl(rak, 1).Select ActiveSheet.Paste End If Next fortsæt: kol.Select Selection.Sort Key1:=Range("f:f"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom For Each cell In midl2 cell.Select rak = cell If rak = "" Then GoTo fortsæt2 Else kol(rak, 1).Select Selection.Insert Shift:=xlDown midl(rak, 1).Select Selection.Cut kol(rak, 1).Select ActiveSheet.Paste End If Next fortsæt2: [a1].Select End Sub
Det kan være at jeg ikke helt forstår dit spørgsmål, men jeg ser ingen grund til at kode VBA Prøv følgende: markere hele dataområdet, gå op og vælg Data - Sorter. hvis du vælger hele dataområdet inklusiv header, så går der ikke rod i det. Alternativ kan du isteden for vælge Data-Filter-Autofilter.
Jeg ved det! Det er et kringlet og tilsyneladende ligegyldigt, ja næsten ikke eksisterende, problem jeg forsøger at belyse i få ord.
Der er tilsyneladende ingen nem løsning, ud over den indlysende, nemlig at markere de felter man vil sortere. Det var dog rart at få bekræftet min første indskydelse.
Tak for tip og kode!
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.