Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Greetings:
I have a Yes/No pulldown menu in cell F229. My spreadsheet has a white background (color index 0). If "Yes" is selected, I want some text to appear in Cell H229 (the text is currently there, I just want to change it to font color index 0 so that it will be visible), and I want to turn the background of cell J229 yellow and put a border around it. If F229 is selected as "No" or is blank, I want the text in H229 to go invisible (not delete) and reset the yellow bordered cell back to white background with no borders. I recorded and modified a macro. Here is the relevant code (declarations not included): If Target.Cells(1).Address = "$F$229" Then 'Make text in H229 bordered box with yellow background appear if "Yes" in F229 Application.EnableEvents = False If MM.Range("F229") = "Yes" Then Range("H229").Font.ColorIndex = 0 'OK Range("J229").Interior.ColorIndex = 6 'OK Range("J229").Borders(xlEdgeLeft).ColorIndex = xlAutomatic 'OK Range("J229").Borders(xlEdgeTop).ColorIndex = xlAutomatic 'Not executing Range("J229").Borders(xlEdgeBottom).ColorIndex = xlAutomatic 'Not executing Range("J229").Borders(xlEdgeRight).ColorIndex = xlAutomatic 'Not executing Else Range("H229").Font.ColorIndex = 2 'OK Range("J229").Interior.ColorIndex = 0 'OK Range("J229").Borders(xlEdgeLeft).LineStyle = xlNone 'OK Range("J229").Borders(xlEdgeTop).LineStyle = xlNone 'OK Range("J229").Borders(xlEdgeBottom).LineStyle = xlNone 'OK Range("J229").Borders(xlEdgeRight).LineStyle = xlNone 'OK End If Application.EnableEvents = True End If The problem: When I select "Yes" in F229, I only get the LEFT border on the yellow cell. The other three borders don't appear. Any thoughts as to what's going on? Help is appreciated. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Why _Change(ByVal Target As Range) | Excel Programming | |||
Ranges:Target in Worksheet_SelectionChange(ByVal Target As Range) | Excel Programming | |||
ByVal Target As Range | Excel Programming | |||
what does (ByVal Target As Range) mean | Excel Programming | |||
Many Sub Worksheet_Change(ByVal Target As Range) In One Worksheet | Excel Programming |