automatisk sortering?

Hvis du mener at du kun vil sortere kolonne F uden at kolonne A og B bliver sorteret med, skal du bare markere kolonne F inden du sorterer.

Nej alle kolonne skal sortere efter kolonne f. Jeg vil at det sker automatisk eller ved et tryk på en knap.

Hvis du har data i alle kolonner mellem A og F kan du stadig sortere ved at bruge den almindelige sorteringsfunktion. Er der ikke data i alle kolonner, er du nok nødt til at bruge en makro, som du knytter til en knap.

Lav en passende knap i regnearket og læg denne kode på knappen:

    Columns("A:F").Select
    Range("F1").Activate
    Selection.Sort Key1:=Range("F1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

ok tak du får points
Hvordan jeg tilknytter denne kode til en knap?

Jeg har fundet ud af hvordan jeg tiknytter koden til knappen, men jeg vil have at knappen står i ARK1 og sorterer i Ark2.

Så skal koden se sådan ud:

Sheets(1).Select
ActiveSheet.Columns("A:F").Columns("A:F").Select
ActiveSheet.Range("F1").Activate
    Selection.Sort Key1:=ActiveSheet.Range("F1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Sheets(2).Activate

Desuden skal du gå ind i knappens egenskaber og ændre egenskaben "TakeFocusOnClick til False.

Sorry, omvendt

Sheets(2).Select
ActiveSheet.Columns("A:F").Columns("A:F").Select
ActiveSheet.Range("F1").Activate
    Selection.Sort Key1:=ActiveSheet.Range("F1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Sheets(1).Activate