Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cell Colour based on text in Range of cells
Hi! I'm not too familiar with VBA, so i was hoping someone could please help me! I want to change the background colour of a single cell, based on the text in a range of cells (which can be one of two options.) I want the cell colour of F14 to change if *all* the cells in G14:S14 contain either "N/A" or a date timestamp. This is what i tried out: Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer If Not Intersect(Target, Range("G14:S14")) Is Nothing Then If Range("G14:S14").Text = "N/A" Or "date value" Then Range("F14").Interior.ColorIndex = 4 Else Range("F14").Interior.ColorIndex = 0 End If End If End Sub This pretty much does the job, but the Or condition doesnt work. Any help would be much appreciated!! Thanks!! -- viewmaster ------------------------------------------------------------------------ viewmaster's Profile: http://www.excelforum.com/member.php...o&userid=32094 View this thread: http://www.excelforum.com/showthread...hreadid=518482 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cell Colour based on text in Range of cells
Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer dim i as integer dim cell If Not Intersect(Target, Range("G14:S14")) Is Nothing Then Range("G14:S14").select for each cell in selection if cell.Text = "N/A" Or cell.text= "date value" Then Range("F14").Interior.ColorIndex = 4 Else Range("F14").Interior.ColorIndex = 0 End If next End If End Sub http://www.geocities.com/excelmarksway for Color Utilities "viewmaster" wrote: Hi! I'm not too familiar with VBA, so i was hoping someone could please help me! I want to change the background colour of a single cell, based on the text in a range of cells (which can be one of two options.) I want the cell colour of F14 to change if *all* the cells in G14:S14 contain either "N/A" or a date timestamp. This is what i tried out: Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer If Not Intersect(Target, Range("G14:S14")) Is Nothing Then If Range("G14:S14").Text = "N/A" Or "date value" Then Range("F14").Interior.ColorIndex = 4 Else Range("F14").Interior.ColorIndex = 0 End If End If End Sub This pretty much does the job, but the Or condition doesnt work. Any help would be much appreciated!! Thanks!! -- viewmaster ------------------------------------------------------------------------ viewmaster's Profile: http://www.excelforum.com/member.php...o&userid=32094 View this thread: http://www.excelforum.com/showthread...hreadid=518482 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do i change cell text colour based on value in other cell | Excel Worksheet Functions | |||
get range of cells based on colour | Excel Programming | |||
How do I set a colour to 4 cells based on the value of a cell | Excel Discussion (Misc queries) | |||
Adding colour to a range of cells based on one of the cells v... | Excel Discussion (Misc queries) | |||
Change the colour of a bunch of cells, based on one cell. | Excel Programming |