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?
Der bliver investeret massivt i AI. Teknologien er mere tilgængelig end nogensinde, og ambitionerne er høje. Alligevel oplever mange virksomheder, at resultaterne udebliver.
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.
