| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
if fill color = this, then increment this cell by one
Here is my first attempt
Private Sub changeColor() Dim x As Integer Dim y As Integer Dim z As Integer Set myfrange = Sheet1.Range("AI:5").Value = x Set myyrange = Sheet1.Range("AK:5").Value = y Set myzrange = Sheet1.Range("AK:5").Value = z If Range("C4:af5").Cells.Interior.Color.[Red] Then x = x + 1 If Range("C4:af5").Cells.Interior.Color.[Magenta] Then y = y + 1 If Range("C4:af5").Cells.Interior.Color.[Black] Then z = z + 1 This doesn't work. Any ideas? Thanks |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I fill one cell color with text html/rgb color from another | Excel Discussion (Misc queries) | |||
| Match TextBox Back Color to Cell Fill Color | Excel Programming | |||
| Cell Fill Color and text color - changes for recipient | Excel Discussion (Misc queries) | |||
| change fill color of a range of cells based on color of a cell? | Excel Programming | |||
| Set Cell Fill Color | Excel Programming | |||
Threaded Mode
