pie charts to match conditioning formatting colors of cell

Compress the file and post the ZIP file.

Try this:

Sub colourTheCharts()
    Dim co As ChartObject
    Dim sourceData As Range
    Dim n As Long
    Dim ser As Series
    Dim seriesFormula As String
    
    For Each co In ActiveSheet.ChartObjects
        Set ser = co.Chart.SeriesCollection(1)
        seriesFormula = Mid$(ser.Formula, 10)
        seriesFormula = Left$(seriesFormula, InStr(seriesFormula, ",") - 1)
        Set sourceData = Application.Range(seriesFormula)
        
        For n = 1 To ser.Points.Count
            With ser.Points(n).Format.Fill
                .Visible = True
                .Solid
                .ForeColor.RGB = sourceData.Cells(n).DisplayFormat.Interior.Color
            End With
        Next n
        
    Next
End Sub

PS It doesn't really help to post a password protected project.

No worries - doesn't take a lot to bypass.

You could put it in the worksheet_calculate event.

Right-click the worksheet tab, choose View code, then paste this in:

private sub worksheet_calculate()
colourTheCharts
end sub

Can you post the workbook as you have it now?

I've just had a quick look at your earlier file - which sheet did you put the code into? It needs to be the charts' source data sheet, not the sheet with the charts on.

Put this code into the Turbine Calc sheet's module:

Private Sub worksheet_calculate()
colourTheCharts
End Sub

Sub colourTheCharts()
    Dim co As ChartObject
    Dim sourceData As Range
    Dim n As Long
    Dim ser As Series
    Dim seriesFormula As String
    
    For Each co In Sheets("Turbine Status").ChartObjects
        Set ser = co.Chart.SeriesCollection(1)
        seriesFormula = Mid$(ser.Formula, 10)
        seriesFormula = Left$(seriesFormula, InStr(seriesFormula, ",") - 1)
        Set sourceData = Application.Range(seriesFormula)
        
        For n = 1 To ser.Points.Count
            With ser.Points(n).Format.Fill
                .Visible = True
                .Solid
                .ForeColor.RGB = sourceData.Cells(n).DisplayFormat.Interior.Color
            End With
        Next n
        
    Next
End Sub