cells interior/color index
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 -------------------- only to return error. -- tandavina ------------------------------------------------------------------------ tandavina's Profile: http://www.excelforum.com/member.php...o&userid=30334 View this thread: http://www.excelforum.com/showthread...hreadid=511457 |
cells interior/color index
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 |
cells interior/color index
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 -- Regards Ron de Bruin http://www.rondebruin.nl "tandavina" wrote in message ... 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 -------------------- only to return error. -- tandavina ------------------------------------------------------------------------ tandavina's Profile: http://www.excelforum.com/member.php...o&userid=30334 View this thread: http://www.excelforum.com/showthread...hreadid=511457 |
cells interior/color index
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) "tandavina" wrote in message ... 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 -------------------- only to return error. -- tandavina ------------------------------------------------------------------------ tandavina's Profile: http://www.excelforum.com/member.php...o&userid=30334 View this thread: http://www.excelforum.com/showthread...hreadid=511457 |
cells interior/color index
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 -- Gary''s Student "tandavina" wrote: 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 -------------------- only to return error. -- tandavina ------------------------------------------------------------------------ tandavina's Profile: http://www.excelforum.com/member.php...o&userid=30334 View this thread: http://www.excelforum.com/showthread...hreadid=511457 |
All times are GMT +1. The time now is 10:15 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com