le pregunte a chat gpt como sumar ciertos valores rellenados con 3 colores diferentes y me los sumara en otra celda rellenada con el color rojo, me dio esta macro y me da valor de cero, le pregunte de 10 diferentes maneras y nunca me resolvio, siempre me dio cero, aqui envio el archivo y la macro dentro y aqui en texto.

Sub SumarColores()

    Dim ws As Worksheet

    Dim rng As Range

    Dim cell As Range

    Dim suma As Double

    ' Establecer la hoja de trabajo

    Set ws = ThisWorkbook.Sheets("Hoja1")

    ' Establecer el rango en la columna A desde la fila 1 hasta la última fila con datos

    Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)

    ' Inicializar la variable de suma

    suma = 0

    ' Recorrer cada celda en el rango

    For Each cell In rng

        If cell.Interior.ColorIndex = 3 Then

            ' Si la celda en la columna A tiene ColorIndex 3, sumar los valores de las celdas adyacentes con ColorIndex 6, 44 y 43

            suma = suma + SumarColoresAdyacentes(cell.Offset(0, 1), 6) + SumarColoresAdyacentes(cell.Offset(0, 1), 44) + SumarColoresAdyacentes(cell.Offset(0, 1), 43)

            ' Mostrar la suma en la misma celda con ColorIndex 3

            cell.Value = suma

            ' Reiniciar la variable suma para la próxima celda con ColorIndex 3

            suma = 0

        End If

    Next cell

End Sub

Function SumarColoresAdyacentes(rng As Range, colorIndex As Integer) As Double

    ' Función para sumar los valores de las celdas adyacentes con un ColorIndex específico

    Dim sumaParcial As Double

    Dim c As Range

    sumaParcial = 0

    ' Recorrer cada celda adyacente

    For Each c In rng.Resize(, 3).Cells

        If c.Interior.ColorIndex = colorIndex Then

            ' Si la celda tiene el ColorIndex deseado, sumar su valor

            sumaParcial = sumaParcial + c.Value

        End If

    Next c

    ' Devolver la suma parcial

    SumarColoresAdyacentes = sumaParcial

End Function