ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Autoformat screws up with FormatConditions? (https://www.excelbanter.com/excel-programming/404393-autoformat-screws-up-formatconditions.html)

bentod

Autoformat screws up with FormatConditions?
 
I have a dynamic named range. The range has autoformatting (List 2).
When I add to the range, my code will add some conditional formatting
to the row if it needs it.

Unfortunately, once a new row is added to the range, the conditional
formatting works fine, but if I trigger autoformatting to run, my
spreadsheet looks all kinds of freaked out. Like it's in a state of
color flux.

Here's my (cheesy) code:

'-----------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

[I2].Activate
With Range([I2], [I65536].End(xlUp)).Offset(0, -8).Resize(, 10)
.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

Range("DataFormat").Select
Selection.AutoFormat Format:=xlRangeAutoFormatList2, Number:=False,
Font:= _
False, Alignment:=False, Border:=True, Pattern:=True,
Width:=False

Application.ScreenUpdating = True

End Sub
'-------------------------------------------------------

Thanks, Todd


All times are GMT +1. The time now is 04:01 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com