cells interior/color index

[tandavina]

How/Where do I get the color index?
I used the names of the colors:


Code:
--------------------
For i = 1 To grpnr
Select Case D1(i)
Case Cells.Interior("Light Orange")
grpsize(i) = 6
Case Cells.Interior("Aqua")
grpsize(i) = 4
Case Cells.Interior("Plum")
grpsize(i) = 3
Case Cells.Interior("Rose")
grpsize(i) = 2
Case Else
MsgBox "error in grouping color"
End Select
Next i

 

[Yngve]

Hi tandavina

The best way for you to learn something like this (the same as for
everyone
- myself included) is to use the Macro recorder on the Tools...Macros
menu

This is always the best way to start when you don't know what objects
you
need...

When you have finished recording the actions that you need the code
for,
click Stop on the Tools..Macros menu, and use ALT-F8 to show the Macros
dialog.

Select the new macro that you just recorded, and choose 'Edit'

then you can see the code that has been recorded, and this will help
you see
what objects are used, and give you a head start.

If you are still stuck modifying the code, let uis know and we'll help
....

Regards Yngve

 

[Ron de Bruin]

Hi

Run this macro on a empty sheet

Sub ListColorIndexes()
Dim Ndx As Integer

For Ndx = 1 To 56
Cells(Ndx, 1).Interior.ColorIndex = Ndx
Cells(Ndx, 2).Value = Ndx
Next Ndx
End Sub


See also
http://www.mvps.org/dmcritchie/excel/colors.htm

 

[Bob Phillips]

See http://tinyurl.com/8h9lw, Peter and I cover most there.

Your code should look like

Cells.Interior.Colorindex = xlCILight Orange

although your case statement looks odd to me, so perhaps it should say

Select Case D1(i)
Case xlCILight Orange
grpsize(i) = 6

etc.

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

 

[Guest]

1. enter this tiny macro:

Sub Macro1()
MsgBox (Selection.Interior.ColorIndex)
End Sub

2. set the background color of any cell to any color and select that cell

3. run the macro to get the number

So if you set a cell t light orange, you would see 45