Makro opsætning

hvilken kolonne skal den sortere på

Denne makro soerter et område på 6 * 14 celler, med udgangspunkt i den aktive celle. Der sorters på den kolonne, som indehiolder den aktive celle.

Sub Makro1()
    ActiveCell.Range("A1:F14").Select
    Selection.Sort Key1:=ActiveCell, Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

ska den ikke se sådan ud, for jeg får fejl på din jkrons

Sub Makro1()
    ActiveCell.Range("A1:F14").Select
  Selection.Sort Key1:=Range(ActiveCell.Address), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

det var
DataOption1:=xlSortNormal
som min excel 2000 ikke kunne lide

kabbak-> OK, jeg kører 2002.  Nok derfor.

Hm, kan ikke få det til at fungere...Den aktive celle er B4 (i den første) og området rækker til G19. Så jeg havde lavet den til:
Sub Makro1()
    ActiveCell.Range("B4:G19").Select
    Selection.Sort Key1:=ActiveCell, Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Når jeg afspiller makroen, viser den en fejl + at den markerer området fra C7 til H22. Det samme med kabbak's bud. Jeg arbejder med 2000



Udover det skal jeg have en makro til, hvor den sorterer på den sidste kolonne, faldende.

du skal ikke lave

ActiveCell.Range("A1:F14").Select
om til
ActiveCell.Range("B4:G19").Select

selv om der står A1 betyder det ikke at det er A1

Det betyder cirka:

Lad som om den aktive celle er A1 og maker ud fra det

håber du forstår

Sub Makro1()
    ActiveCell.Range("A1:F14").Select
  Selection.Sort Key1:=Range(ActiveCell.Address), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Den her virkede! Fedt!! Er de svært at lave? Jeg kunne forestille mig at jeg vil anvende dem i flere filer fremover. Jeg kan jo selv prøve nu at lave 1 til sortering efter sidste kollone, og faldende...

Hm, det kan jeg vist ikke...hjælp en gang til? (I må gerne forklare mig, hvordan jeg skal gøre!)

her er den

Sub Makro1()
    ActiveCell.Range("A1:F14").Select
  Selection.Sort Key1:=Range(ActiveCell.Offset(0, 5).Address), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Selection.Sort Key1:=Range(ActiveCell.Offset(0, 5).Address)

betyder sorter 5 kolonner ved siden af den aktive celle, og 0 er = samme række

Wow det virker!! Tak for forklaringen og hjælpen, næste gang prøver jeg selv. Sender du lige et svar?

Hvor kan jeg egentlig læse, at den skal sortere på den sidste kolonne?

Offset(0, 5)
5 tallet betyder  5 kolonner til højre for den kolonne den aktive celle er i.

0 betyder samme række

hvad med point til jkrons, det var jo hans kode jeg bagte videre på.

Aaaah ok, tnx! JEg vil godt giver jer begge points, hvis han også lige svarer. Hvordan fordeler man dem? (I må da også gerne få begge to 30 point, da I har hjulpet mig supergodt:-) )

Svar :-)

Tak for point.

tak for point ;-))