Sorteren hoog naar laag

[Oude leerling]

Als ik een gebied wil sorteren worden de gegevens steeds een rij naar onder verplaatst
Ik doe het met de volgende opdracht


Bekijk bijlage Sorteren hoog naar laag.xlsmSheets("Blad1").[A4:L20].Sort [L4], xlDescending

De gegevens worden consequent niet in A4:L20 geplaatst maar in A5:L21

Ik snap het niet wat doe ik fout?? Hoe krijg ik dit wel in A4:L20

 

[edmoor]

Selecteer L16:L20 en druk op de Del toets.
Sorteer nu nog eens.

 

[Oude leerling]

sorteren van hoog naar laag

Ja dan gaat het wel goed.
Maar ik zou graag een code willen welke werkt ongeacht het aantal personen binnen A4:L20
Is dat te doen?

 

[edmoor]

Probeer dit maar eens:

    Dim LR As Long

    With Sheets("Blad1")
        LR = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("A4:L" & LR).Sort [L4], xlDescending
    End With

 

[Oude leerling]

Dat was wat ik moest hebben.
Werkt prima.
Heel erg bedankt voor hulp

 

[snb]

Of ?

Sheets("Blad1").Range("A4:L20").specialcells(2).Sort Sheets("Blad1").range("L4"), 2

 

[Oude leerling]

Snb , code geeft de foutmelding , "kan niet uitvoeren op een selectie van meerdere bereiken".
.
Wat doet , specialcells(2).??

 

[edmoor]

Dat zijn cellen waar een waarde is ingevuld.
Zie voor uitleg van SpecialCells:
https://msdn.microsoft.com/en-us/library/office/ff196157.aspx

 

[VenA]

Dat de code van snb niet werkt komt doordat jouw lege cellen in een aantal gevallen niet leeg maar vol met spaties staan.

Als alternatief

Sub VenA()
  Sheets("Blad1").Cells(3, 1).CurrentRegion.Resize(, 1).SpecialCells(2).Resize(, 12).Sort Sheets("Blad1").[L3], 2, , , , , , True
End Sub

 

[edmoor]

Vandaar mijn eerste opmerking in #2.

 

[Oude leerling]

Edmoor ,
Ja ik snap het , bedankt voor je uitleg.

VenA , helemaal goed , deze code werkt ook.

Wat een pracht forum.
Ik heb al veel van jullie mogen leren

Vriendelijke groet , Jaap

 

[VenA]

Vandaar mijn eerste opmerking in #2.

Dan had er moeten staan Selecteer A16:L40 en druk op de Del toets.

Blad1.Cells(3, 1).CurrentRegion.SpecialCells(2).Select

Geeft een nogal 'bonte' verzameling van niet lege cellen

 

[edmoor]

Voor alleen het sorteren was het bereik dat ik gaf voldoende

 

[VenA]

Geen speld tussen te krijgen. Hoe mensen aan zo'n dramatische sheet komen blijft natuurlijk een raadsel

 

[edmoor]

Ik kom het regelmatig tegen, met als oorzaak vaak kopiëren en plakken of import ergens anders vandaan.

Spelt:
https://nl.wikipedia.org/wiki/Spelt