Need urgent help

[sku]

I have an excel spreadsheet with entire rows marks with different color's. Depending upon the row color I want to populate a new column.
ie if the row color is Red then the column value should be say 'R'

[Barrie Davidson]

On 2002-03-08 12:59, sku wrote:
I have an excel spreadsheet with entire rows marks with different color's. Depending upon the row color I want to populate a new column.
ie if the row color is Red then the column value should be say 'R'

This UDF (User Defined Function) will return a value that identifies the colour of a cell. You could use this to determine your data for your new column.

Function Color_Index(CellRange As Range) As Double



     Application.Volatile

     Color_Index = CellRange.Interior.ColorIndex



End Function

To use this, you first must paste it in to a module. ALT+F11 will open the Visual Basic Editor window. You then need to select the file you want to paste the code in. You can select the file in the Project Explorer window (you'll see your open files in this window. It looks similar to Windows Explorer) and select Insert|Module. This will open a new module window. Paste the code in that window. To use the formula, the syntax is:

=BookName.xls!Color_Index(A1)

where "BookName" is the name of the file you pasted the code in.
Note - this will return an error if you select more than one cell.

Regards,