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
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
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.
