Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help Fixing Coloring Macro
Here is my Macro:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then If Target.Cells.Count 1 Then Exit Sub If Target.Value = "Y" Then Range(Cells(Target.Row, "A"), Cells(Target.Row, "C")) _ ..Interior.Color = RGB(204, 255, 204) Else Range(Cells(Target.Row, "A"), Cells(Target.Row, "C")) _ ..Interior.Color = RGB(255, 255, 255) End If End If End Sub Three things I would like to adjust on it. 1) I would like this to only effect rows 23 and lower 2) I would like the "Y" criteria not to be case sensitive 3) The Else is set to 255, 255, 255 (white) but is there a setting for just no color at all? Thanks for any help, Tyson |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help Fixing Coloring Macro
By 23 and lower do you mean 23, 24, 25 etc. That is my assumption.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then. If Target.Cells.Count 1 or Target.row < 23 Then Exit Sub If Ucase(Target.Value) = "Y" Then Range(Cells(Target.Row, "A"), Cells(Target.Row, "C")) _ .Interior.Color = RGB(204, 255, 204) Else Range(Cells(Target.Row, "A"), Cells(Target.Row, "C")) _ .Interior.ColorIndex = xlNone End If End If End Sub -- Regards, Tom Ogilvy |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help Fixing Coloring Macro
Thanks Tom, just what I needed.
Tyson Tom Ogilvy wrote: By 23 and lower do you mean 23, 24, 25 etc. That is my assumption. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then. If Target.Cells.Count 1 or Target.row < 23 Then Exit Sub If Ucase(Target.Value) = "Y" Then Range(Cells(Target.Row, "A"), Cells(Target.Row, "C")) _ .Interior.Color = RGB(204, 255, 204) Else Range(Cells(Target.Row, "A"), Cells(Target.Row, "C")) _ .Interior.ColorIndex = xlNone End If End If End Sub -- Regards, Tom Ogilvy |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Fixing the date format in a macro or VBA | Excel Worksheet Functions | |||
macro for coloring in cells | Excel Discussion (Misc queries) | |||
Excel Macro for Coloring the cells | Excel Discussion (Misc queries) | |||
Fixing a vlookup macro that returns #N/A error | Excel Discussion (Misc queries) | |||
fixing macro to highlight a row if a checkbox is checked | Excel Programming |