condition chart color bar range

[Guest]

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

 

[Jon Peltier]

For clarity change this

For Each Rng In Range("E2:E41") to
For Each Rng In Range("E2:E41").Cells

To see what's in the adjacent cell, use Rng.Offset(, 1).Value, then expand
on your If structures to account for this value as well.

- Jon