Sorteren

[Oude leerling]

Geacht forum,

Ik heb een macro gemaakt welke een gebied selecteert en dan een kolom
moet sorteren van groot naar klein
Nu word deze kolom wel gesorteerd maar staan ze helemaal onderaan van het geselecteerde gebied
Ik snap het niet!
Wat doe ik nou fout
Wilt u mij hiermee helpen
Zie de macro en het bijgevoegde bestandje

Sub Macro2()
  Range("F2:F21").Copy
  Range("D2").PasteSpecial Paste:=xlPasteValues
    Range("A2:D21").Select
    Selection.Sort Key1:=Range("D2"), Order1:=xlDescending
    Range("G1").Select
End Sub

Vriendelijke groet , Jaap

 

[SjonR]

Je kan het met een complexere macro oplossen, maar je kan ook bij de lege cellen in kolom b en c een 0 (nul) invullen. Dan sorteert ie wel goed.

Echter vindt men dat vaak visueel gezien niet fijn. Dan kan je bij voorwaardelijke opmaak de tekstkleur van de waarde nul op wit zetten.

En waarom een hulpkolom?

 

[Oude leerling]

SjonR
Bedankt voor je reactie.
In de hulpkolom staan de formules voor het optellen van de waarden
in kolom B e C
Volgens mij kan je kolommen met daarin formules namelijk niet sorteren
De waarden in kolom met de formules kopieer ik dan naar Kolom D
Jou geboden oplossing met nullen en voorwaardelijke opmaak heb ik gebruikt
en nu werkt het inderdaad wel goed
Zou jij ook nog die complexere formule nog voor mij willen maken
Bij voorbaat hartelijke bedankt hiervoor
Vriendelijke groet , Jaap

 

[AHulpje]

Waarom niet gewoon D2 = B2 + C2, doortrekken naar beneden, dan gaat sorteren goed.
En als je de nullen niet wilt zien, dan:
Bestand, Opties, Geavanceerd: Een nul weergeven in cellen met een nulwaarde uitvinken.

 

[Oude leerling]

AHulpje
Ooo,
Dat wist ik niet
Ik dacht dat je cellen met daarin formules niet mee mocht nemen met het sorteren
dankjewel