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

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

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

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)