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
Adjunto | Tamaño |
---|---|
archivo con la macro que me dio chat gpt que no funciona. | 17.55 KB |
Normal que no funcione, poco nos pasa por fiarnos a ciegas de chatgpt y similares.
Mira estas entradas del foro, hablan de contar celdas pero se haría similar si quisiéramos sumar los valores de esas celdas:
https://www.necesitomas.com/contar-celdas-colores
https://www.necesitomas.com/contar-celdas-colores-intervalo-fechas
------
Ya sé Excel, pero necesito más.