Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc,microsoft.public.excel.worksheet.functions
|
|||
|
|||
Insert text based on another cell's colour or font in Excel 2003
eI have a table of data (b2:f600). Some of the rows are green, some yellow,
etc. I need a formula/macro that will put a number or text in column A based on the row's colour (eg if b2 is green then put "1" or "green" in a2). The coloured rows are not in consecutive order. I use Excel 2003. Anyone? |
#2
Posted to microsoft.public.excel.misc,microsoft.public.excel.worksheet.functions
|
|||
|
|||
Insert text based on another cell's colour or font in Excel 2003
hi
see this site for xl color indexes... http://www.mvps.org/dmcritchie/excel/colors.htm Sub testit() Dim r As Range Dim rd As Range Set r = Range("B1") Do While Not IsEmpty(r) Set rd = r.Offset(1, 0) r.Select If r.Interior.ColorIndex = 4 Then 'green r.Offset(0, -1).Value = 1 'or A Else If r.Interior.ColorIndex = 6 Then 'yellow r.Offset(0, -1).Value = 2 'or b End If End If Set r = rd Loop MsgBox ("Done!") End Sub regards FSt1 "Philip Hinton" wrote: eI have a table of data (b2:f600). Some of the rows are green, some yellow, etc. I need a formula/macro that will put a number or text in column A based on the row's colour (eg if b2 is green then put "1" or "green" in a2). The coloured rows are not in consecutive order. I use Excel 2003. Anyone? |
#3
Posted to microsoft.public.excel.misc,microsoft.public.excel.worksheet.functions
|
|||
|
|||
Insert text based on another cell's colour or font in Excel 20
hi
remove r.select; i just added that as part of the test. no need to select anything. sorry. regards FSt1 "FSt1" wrote: hi see this site for xl color indexes... http://www.mvps.org/dmcritchie/excel/colors.htm Sub testit() Dim r As Range Dim rd As Range Set r = Range("B1") Do While Not IsEmpty(r) Set rd = r.Offset(1, 0) r.Select If r.Interior.ColorIndex = 4 Then 'green r.Offset(0, -1).Value = 1 'or A Else If r.Interior.ColorIndex = 6 Then 'yellow r.Offset(0, -1).Value = 2 'or b End If End If Set r = rd Loop MsgBox ("Done!") End Sub regards FSt1 "Philip Hinton" wrote: eI have a table of data (b2:f600). Some of the rows are green, some yellow, etc. I need a formula/macro that will put a number or text in column A based on the row's colour (eg if b2 is green then put "1" or "green" in a2). The coloured rows are not in consecutive order. I use Excel 2003. Anyone? |
#4
Posted to microsoft.public.excel.misc,microsoft.public.excel.worksheet.functions
|
|||
|
|||
Insert text based on another cell's colour or font in Excel 20
Thanks for the input FSt1. Your code works but only if the rows are coloured
"yellow" or "bright green" (as Excel sees them). I need something that will give a result for ANY colour. However, I followed up on your dmcritchie link and found http://www.cpearson.com/excel/SortByColor.htm, which does it for me. Thanks for the pointers. Philip "FSt1" wrote: hi see this site for xl color indexes... http://www.mvps.org/dmcritchie/excel/colors.htm Sub testit() Dim r As Range Dim rd As Range Set r = Range("B1") Do While Not IsEmpty(r) Set rd = r.Offset(1, 0) r.Select If r.Interior.ColorIndex = 4 Then 'green r.Offset(0, -1).Value = 1 'or A Else If r.Interior.ColorIndex = 6 Then 'yellow r.Offset(0, -1).Value = 2 'or b End If End If Set r = rd Loop MsgBox ("Done!") End Sub regards FSt1 "Philip Hinton" wrote: eI have a table of data (b2:f600). Some of the rows are green, some yellow, etc. I need a formula/macro that will put a number or text in column A based on the row's colour (eg if b2 is green then put "1" or "green" in a2). The coloured rows are not in consecutive order. I use Excel 2003. Anyone? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Formatting a cell with colour based on whether another cell's valu | Excel Worksheet Functions | |||
Pulling out data based on font colour | Excel Discussion (Misc queries) | |||
VLOOKUP based on PART of another cell's text | Excel Discussion (Misc queries) | |||
font colour won't change in Excel 2003 | Excel Discussion (Misc queries) | |||
Change Font colour mid-worksheet: Excel 2003 | Excel Discussion (Misc queries) |