Sortere i et excelark ved hjælp af en makro

i stedet for at du vælger range(\"b16:h65\"), dette skal du erstatte med

range(\"b16:h16\").select
range(selection, selection.end(xlDown)).select

ASKIMS

Jeg går ud fra, at den øverste række altid er nr. 16 - og at der altid står noget i kolonne B (kolonne 2)

Prøv at slette din øverste linje (Range...) og indsæt følgende kode i toppen:

Række = 16
While Cells(Række, 2).Value <> \"\"
  Række = Række + 1
Wend
Range(\"B16:H\" & (Række - 1) & \"\").Select

Lytter lige med

Forskellen ligger i: Orientation:=xlLeftToRight

What?
Hvilken forskel?

Jeg læser opgaven således, at celle E16 indeholder en overskrift som hedder dato eller noget lignende.
Så skal den færdige makro se således ud:

Sub sorter()
    Range(\"B17:H17\").Select
    Range(Selection, Selection.End(xlDown)).Select

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

For at makroen fungerer rigtigt skal kolonne B og kolonne E indeholde lige mange rækker data hele vejen ned.

Hej

Tak for de mange forslag´!

Må erkende, at der går lige et par timer før der er td til at afprøve dem alle. Derefter kommer der point...til den eller de rette person(er)!!

Ps. kan for en god ordens skyld sige til janvogt, at i B:16H65 er rådata, og i e15 står der dato! Ændrer formentlig intet

Så skal du nok nærmere bruge denne her:

Sub sorter()
    Range(\"B16:H16\").Select
    Range(Selection, Selection.End(xlDown)).Select

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

Har prøvet janvogt, men får fejlmed.

Skal lige nævnes at nu står der \"dato\" i e13
og rådata er i række 15. (række 14 er tom)
Det kan måske skyldes, at i række 70 (fordi nu går den til 70, og 69 er tom), er der en sum formel af kolone D, og B og C er flettet sammen og i BC70 er der tekst. Og den medtager nemlig række 70 når den skal sorterer.

Hilsen Carsten

Ja, det er det, som giver problemer.
Hvis du mailer mig arket skal jeg hurtigt lave makroen.

jan_vogt_hansen@hotmail.com

Prøv at indsætte dette i stedet for janvogt to første linjer med Range:

Række = 15
While Cells(Række, 2).Value <> \"\"
  Række = Række + 1
Wend
Range(\"B15:H\" & (Række - 2) & \"\").Select

Det er så forudsat, at rådataene starter i række 15, og ikke række 16 som du startede med.

ASKIMS

Så er det mailet, du får lige nogle point:)

Jeg ville nu ellers godt dele dem med askims.
Han var egentlig først med \"selection.end(xlDown)\"-kommandoen.

>>> askims
Jeg smider lige lidt kompensationspoint ;-)

-> jan

Hvor har du smidt dem henne? (Ska\' vi sige 10 point, for så komme jeg op på en 5.plads under regneark?) ;-)

Jeg havde så småt overført carstenr\'s navn til min sorte liste over personer, der ikke kan forvente at få min hjælp igen, da han åbenbart kun værdsætter at få den endelige løsning præsenteret i stedet for at tænke på de mellemliggende steps ;-)

ASKIMS

>>> carstenr
Jeg har ingenting modtaget!

>>> askims
2 minutter ....