Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Conditional formatting
Hi,
I keep getting an error stating it can't create the top line. It errors at the LineStyle Continuous. I don't know why. What do I need to check? With Range("L2") .FormatConditions.Delete .HorizontalAlignment = xlCenter .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""""""Gross Up""""""" .FormatConditions(1).Borders(xlRight).LineStyle = xlNone With .FormatConditions(1).Borders(xlLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.FormatConditions(1).Borders(xlTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With .FormatConditions(1).Borders(xlBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End With -- Thanks for your help, Karen |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Conditional formatting
It should not make any difference, but out of curiosity, is Range("L1") a
merged cell? "Karen53" wrote: Hi, I keep getting an error stating it can't create the top line. It errors at the LineStyle Continuous. I don't know why. What do I need to check? With Range("L2") .FormatConditions.Delete .HorizontalAlignment = xlCenter .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""""""Gross Up""""""" .FormatConditions(1).Borders(xlRight).LineStyle = xlNone With .FormatConditions(1).Borders(xlLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.FormatConditions(1).Borders(xlTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With .FormatConditions(1).Borders(xlBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End With -- Thanks for your help, Karen |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Conditional formatting
Could also be a syntax problem:
Try xlEdgeTop, xlEdgeLeft, xlEdgeBottom Se if you still get the error. "Karen53" wrote: Hi, I keep getting an error stating it can't create the top line. It errors at the LineStyle Continuous. I don't know why. What do I need to check? With Range("L2") .FormatConditions.Delete .HorizontalAlignment = xlCenter .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""""""Gross Up""""""" .FormatConditions(1).Borders(xlRight).LineStyle = xlNone With .FormatConditions(1).Borders(xlLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.FormatConditions(1).Borders(xlTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With .FormatConditions(1).Borders(xlBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End With -- Thanks for your help, Karen |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Conditional formatting
Hi,
Thank you for your reply. I tried the xlEdgeLeft etc. but I still get an error at the .linestyle = xlContinuous stating it can't process the line. I did the same thing in another cell and it works perfectly. I see no difference between the two except the condition. Is there anything else I should check? thanks -- Karen "JLGWhiz" wrote: Could also be a syntax problem: Try xlEdgeTop, xlEdgeLeft, xlEdgeBottom Se if you still get the error. "Karen53" wrote: Hi, I keep getting an error stating it can't create the top line. It errors at the LineStyle Continuous. I don't know why. What do I need to check? With Range("L2") .FormatConditions.Delete .HorizontalAlignment = xlCenter .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""""""Gross Up""""""" .FormatConditions(1).Borders(xlRight).LineStyle = xlNone With .FormatConditions(1).Borders(xlLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.FormatConditions(1).Borders(xlTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With .FormatConditions(1).Borders(xlBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End With -- Thanks for your help, Karen |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Conditional formatting
I got it. It looks like it had to do with the number of quotes on the
condition. Thanks for your help! -- Karen "JLGWhiz" wrote: Could also be a syntax problem: Try xlEdgeTop, xlEdgeLeft, xlEdgeBottom Se if you still get the error. "Karen53" wrote: Hi, I keep getting an error stating it can't create the top line. It errors at the LineStyle Continuous. I don't know why. What do I need to check? With Range("L2") .FormatConditions.Delete .HorizontalAlignment = xlCenter .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""""""Gross Up""""""" .FormatConditions(1).Borders(xlRight).LineStyle = xlNone With .FormatConditions(1).Borders(xlLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.FormatConditions(1).Borders(xlTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With .FormatConditions(1).Borders(xlBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End With -- Thanks for your help, Karen |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Conditional formatting--different formatting depending on cell con | Excel Discussion (Misc queries) | |||
Formatting cells in a column with conditional formatting? | Excel Discussion (Misc queries) | |||
Protect Cell Formatting including Conditional Formatting | Excel Discussion (Misc queries) | |||
conditional Formatting based on cell formatting | Excel Worksheet Functions | |||
Conditional Formatting that will display conditional data | Excel Worksheet Functions |