Jeg har fået en ven til at hjælpe mig med at lave en Macro til excel hvor den justere stigende... der er dog et problem med det.
Jeg vil gerne have den skal ignorere de første 2 rækker da disse er brugt til overskrifter og lignende
er der nogen der kan hjælpe, macroen ser således ud:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then Range("A:A").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End If End Sub
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A3:A2000")) Is Nothing Then Range("A3:A2000").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End If End Sub
Hvis du har mere end 2000 linier, skal der rettes i området (i anden og tredie linie)
Hvis Excel selv skal finde antal rækker: (Ikke testet, men burde virke - Dog kun hvis der ikke er "blanke" linjer eller kolonner i datagrundlag. Test evt. ved at markere celle A3 og trykke [Ctrl]+[Shift]+
- (Ctrl+Shift+"stjerne"). Hvis alle data bliver markeret, skulle der ikke være nogen problemer).
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A3:A"&Range("A3").currentregion.rows.count)) Is Nothing Then ("A3:A"&Range("A3").currentregion.rows.count).Sort Key1:=Range("A3"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End If End Sub
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.
