Conditional Formats in Charts

I am trying to create a chart in excel which automatically updates from green to red and vice versa.

I have attached a copy of my work, its self-explanatory.

But here is what I am after:

Cells B32, 33 and Cells C32, 33 are conditionally formatted.

Conditions:

If the expense is greater than the income then = RED

If expense is less than income then = GREEN

This is still in its phase 1 so if anyone has ideas on how to improve this then that would be great.

Thank You in advance

Don't use the 3d style of charts. You will have to use code otherwise.

Sub FormatChart()

    Dim lngPoint As Long
    
    With ActiveSheet.ChartObjects(1).Chart
        ' make both bars the same
        .SeriesCollection(2).Format.Fill.ForeColor.RGB = .SeriesCollection(1).Format.Fill.ForeColor.RGB
        
        For lngPoint = 1 To .SeriesCollection(1).Points.Count
            If Application.WorksheetFunction.Index(.SeriesCollection(2).Values, lngPoint) < _
               Application.WorksheetFunction.Index(.SeriesCollection(1).Values, lngPoint) Then
               ' make expense Red
               .SeriesCollection(2).Points(lngPoint).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
            End If
        Next
    End With
    
End Sub

Can you post the tweaks you have made.

That line does not make sense.

To set the colour of a column use

.SeriesCollection(2).Format.Fill.ForeColor.RGB  = RGB(155,0,2)

.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(160,8,5)

Just add another line to format the other series,

' income less than expense
            If Application.WorksheetFunction.Index(objSeries1.Values, lngPoint) < _
               Application.WorksheetFunction.Index(objSeries2.Values, lngPoint) Then
               ' make income Red
               objSeries1.Points(lngPoint).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
               ' make expense Red
               objSeries2.Points(lngPoint).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
            End If

To do it without macros you first need to use a 2d chart style. You can use 3d but you have no control over the data label position.

You then need to layout data out slightly differently to add padding columns.
The column gap is set to zero to make the columns appear next to each other.