Change colors in bubble chart based on cell value

[MPaul100]

Hi,
I have a bubble chart that should change the bubble color based on a RGB code in a column. I have 4 criteria, therefore 4 color codes.
My chart is split in 4 frames, and the bubbles will change color based on criteria above.
The macro throws and error but it changes the colors properly with data unfiltered. The problem is that when I filter a column the bubble chart gets updated, but the colors are moving from their frames. I checked the codes and somehow the colors are modified, are not reflected as per my criterias.
Anyone has any idea on how to make it work with filtered data or some other way?
Thanks!
Code:

Sub BB()
Dim cht As Chart, ser As Series, r As Range, i%
Sheets("Overview").ChartObjects("Graphique 3").Activate       ' your chart name here
Set cht = ActiveChart
Set ser = cht.SeriesCollection(1)
Set r = [I38]                                      ' starting RGB cell
'On Error Resume Next
For i = 1 To ser.Points.Count
    ser.Points(i).Format.Fill.ForeColor.RGB = r
    Set r = r.Offset(1)
Next
End Sub

 

[MPaul100]

I managed to find a solution myself

Sub Tester()
    Dim s As Series, i As Long, X, y
    Set s = ThisWorkbook.Sheets("Overview").ChartObjects("Graphique 3").Chart.SeriesCollection(1)
    
    For i = 1 To s.Points.Count
        X = s.XValues(i)
        y = s.Values(i)
        If X < 0.8 And y < 600 Then
            s.Points(i).Format.Fill.ForeColor.RGB = vbRed
        End If
          If X < 0.8 And y >= 600 Then
            s.Points(i).Format.Fill.ForeColor.RGB = vbBlue
          End If
            If X >= 0.8 And y < 600 Then
              s.Points(i).Format.Fill.ForeColor.RGB = vbCyan
            End If
              If X >= 0.8 And y >= 600 Then
                s.Points(i).Format.Fill.ForeColor.RGB = vbGreen
              End If
    Next i
    With s.DataLabels.Font
            .Name = "Arial"
            .FontStyle = "Italic"
            .Size = 8
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = 1
            .Background = xlAutomatic
        End With
End Sub