View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] lijia137@gmail.com is offline
external usenet poster
 
Posts: 6
Default conditional formatting in excel vba

I have a workbook with several worksheets, i need to do conditional
formatting to column B on each worksheet, does excel conditional
formatting only take up to 3 conditions? cuz my formular is like: if
E2=Y and F22, code B2 in blue; if E2=Y and F2<0, code B2 in red,
basically, cells in column B changes color based on colume E and
Colume F, i was recoding macro while doing the conditional formatting,
here is what i wrote: seems macro can't take the last selection? could
somebody help me? thanks a ton!!!

Sub Macro5_ColorCoding()
'
' Macro5_ColorCodingSat Macro
' '

'
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=E2=Y"
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=F20"
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
.ColorIndex = 5
End With
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=E2=Y"
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=F2<0"
With Selection.FormatConditions(3).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
End Sub