Color Chart Columns by Conditionally Formatted Cell Color

[arns]

table1.JPG
Category color is Conditionally Formatted based on Text (i.e. cell color will change automatically with change of letter).

Goal: Automatically color each column in chart with same color as in category (based on Conditional Formatting).

chart1.JPG

Is someone out there that could help me to reach my goal?

arns

[mancubus]

check this out:
https://www.get-digital-help.com/201...on-cell-color/

[mancubus]

adopted from:

https://www.get-digital-help.com/201...on-cell-color/

Sub vbax_61383_Color_Chart_Columns_Based_on_Conditional_formatting()
    
    Dim vAddress As Range
    Dim i As Long, ColorVal As Long
    Dim R As Long, G As Long, B As Long
    
    With Sheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1) 'change sheet and chart references to suit
        Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1)).Columns(2) 'X values from col A and B. so set range to the second col, ie col B
        For i = 1 To vAddress.Cells.Count
            ColorVal = vAddress.Cells(i).DisplayFormat.Interior.Color 'Displayformat to return conditional formatting color
            R = ColorVal Mod 256 'return RED value from ColorVal
            G = (ColorVal \ 256) Mod 256 'return GREEN value from ColorVal
            B = (ColorVal \ 256 \ 256) Mod 256 'return BLUE value from ColorVal
            .Points(i).Format.Fill.ForeColor.RGB = RGB(R, G, B)
        Next i
    End With

End Sub

[arns]

Spot on excellent! Exactly what I was looking for.
Thank you mancubus.

[mancubus]

you are welcome.

thanks for the feedback and marking the thread as solved.