Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with the following code...from EntireRow to set width
I have this code to format the entire row a certain color depending on
the text in Column "I". However, I really just want it to go from column "A" to column "J". What would I substitute for ".EntireRow"? '------------------------------------------ Sub ConditionalFormatter() [I2].Activate With Range([I2], [I65536].End(xlUp)).EntireRow .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="= $I2=""N""" .FormatConditions(1).Interior.ColorIndex = 10 .FormatConditions(1).Font.ColorIndex = 2 .FormatConditions.Add Type:=xlExpression, Formula1:="= $I2=""X""" .FormatConditions(2).Interior.ColorIndex = 19 .FormatConditions(2).Font.ColorIndex = 1 End With End Sub '------------------------------------------ Thanks, Todd |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with the following code...from EntireRow to set width
Todd,
With Range([I2], [I65536].End(xlUp)).Offset(0, -8).Resize(, 10) Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) "bentod" wrote in message I have this code to format the entire row a certain color depending on the text in Column "I". However, I really just want it to go from column "A" to column "J". What would I substitute for ".EntireRow"? '------------------------------------------ Sub ConditionalFormatter() [I2].Activate With Range([I2], [I65536].End(xlUp)).EntireRow .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="= $I2=""N""" .FormatConditions(1).Interior.ColorIndex = 10 .FormatConditions(1).Font.ColorIndex = 2 .FormatConditions.Add Type:=xlExpression, Formula1:="= $I2=""X""" .FormatConditions(2).Interior.ColorIndex = 19 .FormatConditions(2).Font.ColorIndex = 1 End With End Sub '------------------------------------------ Thanks, Todd |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with the following code...from EntireRow to set width
On Jan 16, 8:35*am, "Jim Cone" wrote:
Todd, * *With Range([I2], [I65536].End(xlUp)).Offset(0, -8).Resize(, 10) Jim Cone San Francisco, USAhttp://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) "bentod" wrote in message I have this code to format the entire row a certain color depending on the text in Column "I". *However, I really just want it to go from column "A" to column "J". What would I substitute for ".EntireRow"? '------------------------------------------ Sub ConditionalFormatter() [I2].Activate * * With Range([I2], [I65536].End(xlUp)).EntireRow * * * * .FormatConditions.Delete * * * * .FormatConditions.Add Type:=xlExpression, Formula1:="= $I2=""N""" * * * * .FormatConditions(1).Interior.ColorIndex = 10 * * * * .FormatConditions(1).Font.ColorIndex = 2 * * * * .FormatConditions.Add Type:=xlExpression, Formula1:="= $I2=""X""" * * * * .FormatConditions(2).Interior.ColorIndex = 19 * * * * .FormatConditions(2).Font.ColorIndex = 1 * * End With End Sub '------------------------------------------ Thanks, Todd I think I see what you were going for: count back 8 to column "A", then add columns up to "J". However, it yeilded no noticeable results. Todd |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with the following code...from EntireRow to set width
It might help if I removed the conditional formatting before starting.
On Jan 16, 8:35*am, "Jim Cone" wrote: Todd, * *With Range([I2], [I65536].End(xlUp)).Offset(0, -8).Resize(, 10) Jim Cone San Francisco, USAhttp://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Change every 3 columns width with code | Excel Programming | |||
Dropdown list width changing code | Excel Worksheet Functions | |||
ActiveWindow.VisibleRange.Width - Is this the correct code | Excel Programming | |||
adding code to shrink columns to reasonable width | Excel Programming | |||
Using Code to Adjust Specific Column Width | Excel Programming |