SUMAR EN EXCEL SEGÚN CRITERIO DE COLOR EN LAS CELDAS

Suscribete a nuestro canal

'esta funcion permite sumar de acuerdo al color de la celda - EDILBERTO MEJIA DIAZ Function Sumarcolor_Fondo(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_Fondo = Sumarcolor_Fondo + celda Next celda Set celda = Nothing End Function 'Esta funcion permite sumar de acuerdo al color DE LA FUENTE - EDILBERTO MEJIA DIAZ Function Sumarcolor_fuente(Celdacolor As Range, Rangosuma As Range) As Double Dim celda As Range For Each celda In Rangosuma If celda.Font.ColorIndex = Celdacolor.Cells(1, 1).Font.ColorIndex Then Sumarcolor_fuente = Sumarcolor_fuente + celda Next celda Set celda = Nothing End Function

ESTE BLOG SIGUE CRECIENDO GRACIAS A TU DONACIÓN

SUSCRIBETE y se parte de esta gran comunidad