Excel.Tips.Net Welcome toExcel.Tips.Net

Helpful Links

Tips.Net Home
ExcelTips Home
Ask an Excel Question
Make a Comment

Tips.Net Store

ExcelTips FAQ
ExcelTips Premium

Learn Access Now

Beauty Tips
Car Tips
Cleaning Tips
College Tips
Cooking Tips
Excel2007 Tips
ExcelTips
Family Tips
Gardening Tips
Health Tips
Home Tips
Money Tips
Organizing Tips
Pest Tips
Pet Tips
Wedding Tips
Word2007 Tips
WordTips

Advertise on the
ExcelTips Site

Newest Tips

Assigning a Macro to a Keyboard Combination

Creating Scenarios

Using Message Boxes

Understanding Phantom Macros

Picking a Group of Cells

Running Out of Memory

Hiding Rows Based on a Cell Value

 

Sorting by Fill Color

Summary: Sorting data in a worksheet is easy, unless you want to sort by the color used to fill a range of cells. There are ways to do the sorting, however, as illustrated in this tip. (This tip works with Microsoft Excel 97, Excel 2000, Excel 2002, Excel 2003, and Excel 2007.)

Chuck wrote about a need he has to sort records in a worksheet based on the fill color used in a cell. Excel provides no intrinsic function to perform such an action, but it is possible to create a user-defined function that will help with any sorting that needs to be done. Consider the following macro:

Function GetFillColor(rng As Range) As Long
    GetFillColor = rng.Interior.ColorIndex
End Function

Assuming the fill colors are in the cells of column A, all you need to do is make sure there is an empty column B. Then place the following formula in cell B2 and copy it down for each record:

=GetFillColor(A2)

When you are done, column B will contain the index values of each fill color used in column A. You can then sort by column B, which has the result of grouping all the like fill colors together.

If you need to get more elaborate, for instance, if you need to sort in a particular order (yellow first, red second, green third, etc.), then you cannot rely solely on the fill color's index value. In such an instance you must rely on a different method of returning a color. Consider the following macro:

Function GetColor(rngIndex As Range, rngSource As Range) As Long
    Dim lngColor As Long
    Dim J As Integer

    Application.Volatile
    lngColor = rngSource.Interior.ColorIndex

    GetColor = 99       'Set to default color
    For J = 1 To rngIndex.Count
        If rngIndex(J).Interior.ColorIndex = lngColor Then
            GetColor = J
        End If
    Next J
End Function

This macro works differently than the last one. It requires two ranges to work properly. The first range is basically a color table which indicates the order in which you want colors sorted. For instance, cells E1 through E9 could contain the nine colors you want to use for sorting, in the order that you want them sorted. You would then place the following formula in cell B2 and copy it down for each record:

=GetColor($E$1:$E$9,A2)

The result is that column B will contain the values 1 through 9, representing the colors in your color table. If the color in a cell does not have a corresponding color in the color table, then the function returns the value of 99. When you sort the records in your table, you end up with them sorted as you want.

ExcelTips is your source for cost-effective Microsoft Excel training. This tip (2009) applies to Microsoft Excel versions: 97 | 2000 | 2002 | 2003 | 2007

PivotTables Got You Perplexed? PivotTables for the Faint of Heart shows how you can start using Excel's PivotTable tool right away to spin your data into gold! You discover how easy it really is to crunch the numbers you need to crunch. Uncover the power of creating PivotTables, editing them, formatting them, customizing them, and much more.
 
Check out PivotTables for the Faint of Heart today!