Crear funcion similar a la de SUMAPRODUCTO celda con color
Estoy tratando de crear una funcion similar a la SUMAPRODUCTO para realizar una sumatoria de las multiplicaciones, con dos columnas en la cual una de ella tiene ciertas casillas de color, necesito que me identifique solo las de color y multiplique y sume.
Estoy intentando con este lenguaje:
Function SumMulColor(color As Range, rango As Range, mul As Range)
'color: La celda que contiene el color a sumar
'rango, mul: El rango de celdas a considerar en la suma
Dim resultado 'Almacenara el resultado de la suma
Dim celda As Range
Dim mult As Range
'Recorrer cada celda del rango
For Each celda In rango
For Each mult In rango
'Sumar si el color de la celda es igual al color especificado
If celda.Interior.ColorIndex = color.Interior.ColorIndex Then
If mult.Interior.ColorIndex = color.Interior.ColorIndex Then
resultado = resultado + ((celda.Value) * (mult.Value))
End If
Next celda
Next mult
SumMulColor = resultado
End Function
Pero me sale error de compilacion de NEXT SIN FOR
1 respuesta
H o l a:
Después del End If te falta otro End If
No he probado la macro porque no entiendo por qué tienes 2 ciclos.
Si pones el End If que te hace falta y logras el resultado que esperas. Entonces podrías valorar la respuesta.
Si no logras el resultado que esperas, explícame con una imagen qué quieres multiplicar y qué quieres sumar.
S a l u d o s
Tienes pendiente valorar esta respuesta o avísame si requieres más información.
