Hi all
I used macro of the colorbars() for my condition chart as below
My question is I have another condition on column F, how can I add
to this sub colorbars()? Thanks in advance.
Daniel
----------------------------------------

Sub ColorBars()

Application.ScreenUpdating = False

Dim Rng As Range
Dim Cnt As Integer

Cnt = 1

For Each Rng In Range("E2:E41")
Set Pts = ActiveChart.SeriesCollection(1).Points(Cnt)
If Rng.Value = "" Then
Pts.Interior.ColorIndex = 44
ElseIf Rng.Value = 2684 Then
Pts.Interior.ColorIndex = 43
ElseIf Rng.Value = 1 Then
Pts.Interior.ColorIndex = 5

End If
Cnt = Cnt + 1
Next Rng
End Sub