Jeg har et Excel ark hvor jeg vil sortere noget data fra fx række 4 til 37 (antallet ændrer sig, da jeg tilføjer og sletter rækker), da der er nogle udregninger neden under de data der ønskes sorteret. Jeg har så 2 ark mere, der henter data fra de 4 (A-D) kolonner i ark 1, men resten af kolonnerne fra og med E skal så sorteres, så de følger det der står i kolonnerne A-D.
jeg har et regneark, hvor jeg kan tage "top 30 brugere" ud af 125 brugere. Den sortere ikke på dato, men på antal i kolonne B. Måske det kan bruges som inspiration
Sub topbrugere() ' top brugere ' sætter filter på brugere og sortere antal (faldende) Sheets("statistik").Select Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.AutoFilter ActiveWorkbook.Worksheets("statistik").AutoFilter.Sort.SortFields.Add2 Key:= _ Range("B1:B125"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _ :=xlSortNormal With ActiveWorkbook.Worksheets("statistik").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With
' markere og kopiere de xx øverste Range("A2:C31").Select Selection.Copy ' sætter det kopierede ind Range("L46").Select ActiveSheet.Paste Application.CutCopyMode = False Range("K1").Select ActiveWorkbook.Worksheets("statistik").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("statistik").AutoFilter.Sort.SortFields.Add2 Key:= _ Range("A1:A125"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("statistik").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Selection.AutoFilter Range("K1").Select End Sub
***** De 2 andre ark (2+3). Jeg er ikke med. Kolonne A-D på Ark2 og 3 henter data på Ark1, ved hjælp af formler ? Hvordan udfyldes data i kolonne E til XX ? Kan det evt. laves med LOPSLAG og / eller HVIS ?
Hvor flovt, jeg har helt overset din kommentar.... Kunne godt være en ledetråd.
Fik dog hjælp fra en anden bruger her inde. Så problemet blev løst, men ikke uden store kodning, som vedkommende kunne klare.
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.