Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help for a macro change cell colour under many conditions
please i need help. If anyone can, i need a macro to colour a cell under some conditions. e.g. if (a1 and c<1) then cell "blue" if (a<1 and d<1) then cell "green" if (a1 and d=1) then cell "red" if (c1 and e=1) then cell "yellow". thanks, jim -- dpjim ------------------------------------------------------------------------ dpjim's Profile: http://www.excelforum.com/member.php...o&userid=25143 View this thread: http://www.excelforum.com/showthread...hreadid=386388 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help for a macro change cell colour under many conditions
Think you are looking for something like this.
Sub Collor() Dim Rng As Range With Worksheets("blad1") Set Rng = Range("A1:D12") ''your range where to lool End With Dim CL As Object Selection.Cells(1).Select Rng.Select Selection.Interior.ColorIndex = xlNone For Each CL In Selection.Cells Select Case CL.Value Case (a 1 And c < 1) CL.Interior.ColorIndex = 3 Case (a < 1 And d < 1) CL.Interior.ColorIndex = 4 Case Else '----- color red = 3 CL.Interior.ColorIndex = xlNone End Select Next '----- color white = 2 '----- color Green = 4 Selection.Cells(1).Select End Sub Chris |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Change Tab colour using Macro | Excel Worksheet Functions | |||
change a cell background colour to my own RGB colour requirements | Excel Discussion (Misc queries) | |||
formula help to change row colour automatically by some conditions | Excel Worksheet Functions | |||
Change cell colour according to conditions | Excel Programming | |||
Change cell colour according to conditions | Excel Programming |