sbity

Tengo el siguiente programa: Function SUMACOLORES(Datos As Range, LetraColor As Range) As Double On Error Resume Next Dim Suma1 As Double, Color As Integer, Celda As Range Color = LetraColor.Interior.ColorIndex For Each Celda In Datos.Cells If...