Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Condintional Format Entire Row based on Value in Cell
I have this VBA code (see below) which changes the background color of a cell based on the value in the cell. What I really want to do is apply this to the entire row so that say “S5” gives the result “DOG” then the entire row changes to red. Thanks in advance for any suggestions. Private Sub Worksheet_Change(ByVal Target As Range) Set MyPage = Range("A5:S200") For Each Cell In MyPage If Cell.Value = "CAT" Then Cell.Interior.ColorIndex = 4 End If If Cell.Value = "BIRD" Then Cell.Interior.ColorIndex = 40 End If If Cell.Value = "DOG" Then Cell.Interior.ColorIndex = 3 End If If Cell.Value = "SNAKE" Then Cell.Interior.ColorIndex = 10 End If If Cell.Value < "CAT" And Cell.Value < "BIRD" And Cell.Value < "DOG" And Cell.Value < "SNAKE" Then Cell.Interior.ColorIndex = xlNone End If Next End Sub -- WOLF87654 ------------------------------------------------------------------------ WOLF87654's Profile: http://www.thecodecage.com/forumz/member.php?userid=223 View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=83449 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Condintional Format Entire Row based on Value in Cell
What about:
Cell.EntireRow.Interior.ColorIndex=.... Regards, Per On 7 Apr., 03:43, WOLF87654 wrote: I have this VBA code (see below) which changes the background color of a cell based on the value in the cell. What I really want to do is apply this to the entire row so that say “S5” gives the result “DOG” then the entire row changes to red. Thanks in advance for any suggestions. Private Sub Worksheet_Change(ByVal Target As Range) Set MyPage = Range("A5:S200") For Each Cell In MyPage If Cell.Value = "CAT" Then Cell.Interior.ColorIndex = 4 End If If Cell.Value = "BIRD" Then Cell.Interior.ColorIndex = 40 End If If Cell.Value = "DOG" Then Cell.Interior.ColorIndex = 3 End If If Cell.Value = "SNAKE" Then Cell.Interior.ColorIndex = 10 End If If Cell.Value < "CAT" And Cell.Value < "BIRD" And Cell.Value < "DOG" And Cell.Value < "SNAKE" *Then Cell.Interior.ColorIndex = xlNone End If Next End Sub -- WOLF87654 ------------------------------------------------------------------------ WOLF87654's Profile:http://www.thecodecage.com/forumz/member.php?userid=223 View this thread:http://www.thecodecage.com/forumz/sh...ad.php?t=83449 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Condintional Format Entire Row based on Value in Cell
Just add EntireRow to the Cell reference. For example, where you have
this... Cell.Interior.ColorIndex = 3 change it to this... Cell.EntireRow.Interior.ColorIndex = 3 and then do the same modification to the rest of your color assignments. -- Rick (MVP - Excel) "WOLF87654" wrote in message ... I have this VBA code (see below) which changes the background color of a cell based on the value in the cell. What I really want to do is apply this to the entire row so that say "S5" gives the result "DOG" then the entire row changes to red. Thanks in advance for any suggestions. Private Sub Worksheet_Change(ByVal Target As Range) Set MyPage = Range("A5:S200") For Each Cell In MyPage If Cell.Value = "CAT" Then Cell.Interior.ColorIndex = 4 End If If Cell.Value = "BIRD" Then Cell.Interior.ColorIndex = 40 End If If Cell.Value = "DOG" Then Cell.Interior.ColorIndex = 3 End If If Cell.Value = "SNAKE" Then Cell.Interior.ColorIndex = 10 End If If Cell.Value < "CAT" And Cell.Value < "BIRD" And Cell.Value < "DOG" And Cell.Value < "SNAKE" Then Cell.Interior.ColorIndex = xlNone End If Next End Sub -- WOLF87654 ------------------------------------------------------------------------ WOLF87654's Profile: http://www.thecodecage.com/forumz/member.php?userid=223 View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=83449 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
conditional format of entire row based on a single cell in row | Excel Worksheet Functions | |||
Conditional format an entire row based on one cell | Excel Worksheet Functions | |||
Conditional format based on entire row | Excel Worksheet Functions | |||
Conditional Format to change entire row based on one cells data | Excel Discussion (Misc queries) | |||
Can I format an entire row based on the value of a single cell? | Excel Discussion (Misc queries) |