color value

**geoffhep** · 03-06-2011, 06:03 PM

can I assign a color value from the "R,G,B" chart to a cell.

eg; if I have a series of numbers from say 1 to 25 and each number has a value from either
of the three groups can i automatically have those cells filled by the appropriate color.

Thanks,
Geoff.

**protonLeah** · 03-06-2011, 06:51 PM

Have you looked at Conditional Formatting? It would require three formulas...but you didn't describe the three groups to be tested against.

**geoffhep** · 03-07-2011, 01:33 AM

Originally Posted by protonLeah

Have you looked at Conditional Formatting? It would require three formulas...but you didn't describe the three groups to be tested against.

Thanks a lot for that it was right on the money. You saved me big time with that. saw it in the help file but did not understand it originally

on this same project I have about 4000 lines in columns I - M that I want to sort from right to left.lowest to highest. these are of a numerical value. Unfortunately all the help files I have read will only allow me to sort one row at a time. even when I use the multiple function "then"
it changes the following row based on the highest number of the previous row.

Any ideas on this? it's a lot of lines to change manually....

**protonLeah** · 03-08-2011, 12:30 AM

The below will sort one row at a time from left to right lowest to highest.

Sub SortRows()
    Dim RowNum      As Long, _
        RowPicker   As Long, _
        lastrow     As Long, _
        SortSheet   As String
        
    SortSheet = "Sheet1"    '<<<<<<<   change to the appropriate sheet name to sort

    Sheets(SortSheet).Select
    
    lastrow = Cells(Rows.Count, "I").End(xlUp).Row
    
    For RowPicker = 1 To lastrow
        Range(Cells(RowPicker, "I"), Cells(RowPicker, "M")).Select
        ActiveWorkbook.Worksheets(SortSheet).Sort.SortFields.Clear
        
        ActiveWorkbook.Worksheets(SortSheet).Sort.SortFields.Add _
            Key:=Range(Cells(RowPicker, "I"), Cells(RowPicker, "M")), _
            SortOn:=xlSortOnValues, _
            Order:=xlAscending, _
            DataOption:=xlSortNormal
            
        With ActiveWorkbook.Worksheets(SortSheet).Sort
            .SetRange Range(Cells(RowPicker, "I"), Cells(RowPicker, "M"))
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlLeftToRight
            .SortMethod = xlPinYin
            .Apply
        End With
    Next RowPicker
End Sub

Thread: color value

Thread Tools

Display

color value

Re: color value

Re: color value

Re: color value

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions