condition chart color bar range

D

Daniel

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
 
J

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top