Jeg har et regneark, hvor min første kolonne indeholder en række tal, tallene bruges til at angive en given placering i en konkurrence. De andre kolonner i rækken, indeholder oplysninger om deltageren i konkurrencen.
Jeg vil gerne kunne ændre positionen af en deltager, fra f.eks 2. til 10. pladsen, ved blot at ændre 2 (to tallet) i første kolonne til et 10 (ti tal). Så skal de andre pladser i kolonnen selvfølgelig passe sig ind, således at de pladser der ligger mellem 2 og 10 skal rykke en plads op, og her underforstået skal rækkerne også tilpasse sig de ændrede kolonner.
Denne lille makro vil sortere automatisk når der tates points ind:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:A11")) Is Nothing Then ' Ændringer i området A2:A11 får makroen til at køre Range("a2:c11").Select 'A2:C11 er området der sorteres
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("A1").Select 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.
