Macro | Crear Función Sumar por Color

En este video te comparto el código para poder sumar cantidades por color utilizando una función.

═══════════════════════════════════
Function Sumarcolor(Celdacolor As Range, Rangosuma As Range) As Double
Dim celda As Range
For Each celda In Rangosuma
If celda.Interior.ColorIndex = Celdacolor.Cells(1, 1).Interior.ColorIndex Then Sumarcolor = Sumarcolor + celda
Next celda
Set celda = Nothing
End Function
═══════════════════════════════════

═══════════════════════════════════
Si te gusta este vídeo y VOLUNTARIAMENTE quieres
hacerme una donación, puedes hacerlo
a mi cuenta de PayPal. ✅✅✅
═══════════════════════════════════

Suscríbete a mi canal y comparte el contenido.

Pagina Facebook:

Sígueme en Facebook:

[excel-trabajatumente]

Si te gusta este vídeo y VOLUNTARIAMENTE quieres
hacerme una donación, puedes hacerlo
a mi cuenta de PayPal. ✅✅✅

[miinombree]

Buenísimo!!! Me solucionaste unas buenas horas de cálculo!

[felixperalta]

Excelente me funciona correctamente lo único que si ya tengo unos cálculos hechos no me actualiza automático si hay un cambio con los en las celdas que se suman. Si alguien sabe como hacer para que refresque se los agradecería mucho.
Saludos desde Republica Dominicana

[grijalvaescobedo]

Excelente amigo Erik me sirve y gracias por el código de vba. Si más adelante sacas otro vídeo he igual a este pero para saber cuántos están de color verde cuántos de amarillos y cuántos de color azul aprendo muchos de tus vídeos y si ya no te veo por estos días desearte una feliz navidad 🇲🇽👍

[excel-trabajatumente]

Function Sumarcolor(Celdacolor As Range, Rangosuma As Range) As Double
Dim celda As Range
For Each celda In Rangosuma
If celda.Interior.ColorIndex = Celdacolor.Cells(1, 1).Interior.ColorIndex Then Sumarcolor = Sumarcolor + celda
Next celda
Set celda = Nothing
End Function

[jeduardocuevass]

Excelente, amigo, una pregunta, Como hacer si en el rango existe una celda con un numero no numérico y que no marque error, simplemente que esa celda la tome como cero?

[luisalfredofabian]

Me sale error de compilación en lo que va dentro de parentesis😢

[janethsilva]

Me suma todo, pero no por color. U.u