Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Sort range by color
Hey everyone!
I need to sort a range of cells (A6:H600) by interior color. I've found some code that will sort the entire page, but I need to sort just the range. There are only cells with a color index of 6 (yellow) and all the rest are white. So all I need to do is have the yellow cells show up at the top of the range, and then I'll delete the rest. This is what I found that works for the whole worksheet: Sub MySortingMacro() 'Based on Bernard Rey's routine Const ISHEADER As Long = xlNo ' or xlYes or xlGuess Dim cell As Range Dim oldCalc As Long With Application oldCalc = .Calculation .Calculation = xlManual .ScreenUpdating = False End With With Selection(1) 'I changed this line to: With Range("D7") With .EntireColumn Columns(.Column).Insert ' Adding a temporary column For Each cell In Intersect(.Cells, ActiveSheet.UsedRange) cell.Offset(0, -1).Value = cell.Interior.ColorIndex Next cell End With .Sort Key1:=.Offset(0, -1), Order1:=xlAscending, _ header:=ISHEADER .Offset(0, -1).EntireColumn.Delete End With With Application .Calculation = oldCalc .ScreenUpdating = True End With End Sub I've seen lots of other topics on this, but nothing that will work with a specific range. Do I just need to change the line 'With Range("D7")' to something else? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Sort or sub-total by Fill color or font color | Excel Discussion (Misc queries) | |||
Setting a default sort for a range | New Users to Excel | |||
Can I remove blanks from a range without using sort? | Excel Discussion (Misc queries) | |||
GET.CELL | Excel Worksheet Functions | |||
Is there a way to sort by color in excel? using macros? | Excel Worksheet Functions |