10. februar 2005 - 18:40Der er
6 kommentarer og 1 løsning
Prøver igen?
Jeg har i cellerne A1 til F4 nogle tal . Jeg vil gerne have et makro som sorterer kolonnerne i forhold til kolonne f.Jeg har brugt nedenstående makro til sortering,men den kan kun sorterer hvis der ingen formler er i cellen. Et forslag?
Private Sub CommandButton1_Click() 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 End Sub
Jeg har brugt nedenstående makro til sortering,men den kan kun sorterer hvis der ingen formler er i cellen. Et forslag?
jeg går ud fra at du har knappen på arket (Ark1), så er koden i ark1s modul, det plejer ikke at gå godt med at arbejde i andre ark, med en kode der ligger i et arkmodul.
denne har du i arkmodulet
Private Sub CommandButton1_Click() Call Sortering End Sub
denne sætter du i et almindelig modul
Public Sub Sortering() Sheets(2).Select ActiveSheet.Columns("A:F").Columns("A:F").Select ActiveSheet.Range("F1").CurrentRegion.Select Selection.Sort Key1:=Range("F1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Sheets(1).Activate
Kabbak det virker men hvis jeg har knappen i ark2 og det der skal sorteres også i ark2 så bliver kolonnerne sorteret men jeg ender i ark1. xelor dit forslag kan jeg ikke får til at virke. Kan du ikke forklare hvad skal jeg gøre?
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.
