Sort a worksheet by Colour

stirlingmw

Board Regular
Joined
Feb 18, 2013
Messages
66
Morning all

I have a worksheet "Project Summary" Columns A to L which is a summary of another worksheet "Project Master" Columns A to BW. ONce the data is pulled through from "Project Master" I am using the following code to sort the "Project Summary" sheet:

Code:
Sub SortMultipleColumns()
With Worksheets("Project Summary").Sort
     .SortFields.Add Key:=Range("B1", Cells(Rows.count, "B").End(xlUp)), Order:=xlAscending
     .SortFields.Add Key:=Range("A1", Cells(Rows.count, "A").End(xlUp)), Order:=xlAscending
     .SetRange Range("A1:L100")
     .Header = xlYes
     .Apply
End With
End Sub
The final thing I would like this worksheet to be sorted by is colours in Column K in the following order Red, Amber and then Green. Any ideas?

Thank

Steve
 

Some videos you may like

Excel Facts

Bring active cell back into view
Start at A1 and select to A9999 while writing a formula, you can't see A1 anymore. Press Ctrl+Backspace to bring active cell into view.

mole999

Moderator
Joined
Oct 23, 2004
Messages
10,362
Office Version
2019, 2016, 2013
Platform
Windows
I think from 2007 you can sort by colour, I'm in 2013 and can't see backwards
 

Watch MrExcel Video

Forum statistics

Threads
1,102,095
Messages
5,484,646
Members
407,459
Latest member
DICKSON KIMEMIA

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top