Sorteren

[peerke2812]

Hoi allen,

ik heb een bestandje gemaakt,nu wil ik B614 gaan sorteren op kleur in kolom D
een knop heb ik al gemaakt,alleen de VBA code ontbreekt.
ik ben hier een ontzettende leek in.
kan iemand mij helpen?

grt

pieter

 

[danny147]

Beste peerke2812

In Excel 2007 kan je sorteren op kleur !

Ga naar sorteren en filteren dan bij aangepast sorteren en dan op celkleur.

Groetjes Danny. :thumb:

 

[peerke2812]

Beste Danny,

ik vind het makkelijk en mooier als het via een button kan.

grt
pieter

 

[danny147]

Beste peerke2812

Hoe zou je het dan willen gesorteerd zien ?

Ze staan nu toch al op kleur gerangschikt.

Groetjes Danny. :thumb:

 

[peerke2812]

Beste Danny

normaal als kopieer de tijd en kleur van een ander bestand,dus staan ze allemaal door elkaar.
Het zou mooi zijn als ik dan via de button een kleur kan selecteren.

grt
pieter :thumb:

 

[Warme bakkertje]

Deze werkt in XL2003. Ik weet echter niet hoe de functie zich gedraagt met het kleurenpalet van XL2007.
Ik zou zeggen 'Testen maar'
http://www.ozgrid.com/VBA/Sort.htm

 

[peerke2812]

hoi Rudi :d:d

dit is een beetje moeilijk voor mij,ik kan het wel kopieeren,maar als het dan fout is weet ik niet hoe ik die fout eruit moet halen.
ik ben een ontzettende leek met vba.

grt

pieter :thumb:

 

[danny147]

Beste peerke2812

Zie aangepaste versie van de site in het bestandje.

Groetjes Danny. :thumb:

 

[WHER]

Peerke2812,

Dezelfde code, toegepast in jouw bestand uit post #1.
In cellen A6 tot A14 bepaal je de volgorde van de kleuren, het bereik B6 tot D14 wordt gesorteerd volgens de kleuren van D6 tot D14 , kolom E wordt gebruikt als hulpkolom en moet dus leeg blijven zoals in je voorbeeld.

 

[Warme bakkertje]

@ Wher
:thumb: Mooie oplossing maar,dit doet hetzelfde

Sub SortByColor()
    [E6:E14] = "=ColorRank(R6C1:R14C1,RC[-1])"
    [B6:E14].Sort [E2], xlAscending
    [E6:E14].ClearContents
End Sub

 

[WHER]

Qua VBA kennis zit ik nog in de fase "macro opnemen"

 

[peerke2812]

Hoi allen,

ik heb deze week een beetje veel gewerkt vandaar deze late reactie
jullie hebben zoals gewoonlijk weer topwerk afgeleverd.
daarvoor hartelijk dank.

grt

pieter :thumb: :thumb: :thumb: