Anónimo
Misma columna distinta fila
Amigazo de nuevo yo con otra duda:
Buenas tardes tengo una duda de como poder sumar varias celdas del mismo color pero en distintas celdas se como sumar los colores en la misma columna de completo pero necesito es de celdas especificas en la misma columna pero distinta fila por ejemplo
celda a1 color verde b1 x
celda a2 color azul b2 t
cela a3 color verde b3 x
celda a5 colort verde b5 y
.
.
.
.
Celda a21 color verde b21 x
Para sumarlas todas se como hacerlo
Pero necesito sumar las del mismo color pero que dependa de otra celda en este caso de la celda b sumar solo las de color verde con x en la columna b
gracias por to ayuda en lo que me puedas ayudar
Buenas tardes tengo una duda de como poder sumar varias celdas del mismo color pero en distintas celdas se como sumar los colores en la misma columna de completo pero necesito es de celdas especificas en la misma columna pero distinta fila por ejemplo
celda a1 color verde b1 x
celda a2 color azul b2 t
cela a3 color verde b3 x
celda a5 colort verde b5 y
.
.
.
.
Celda a21 color verde b21 x
Para sumarlas todas se como hacerlo
Pero necesito sumar las del mismo color pero que dependa de otra celda en este caso de la celda b sumar solo las de color verde con x en la columna b
gracias por to ayuda en lo que me puedas ayudar
1 respuesta
Respuesta de Juan Carlos González Chavarría
1
Lo que se me ocurre es que hagas un Formato Condicional en base a la columna B. Después puedes incluir esta función personalizada creada por inocampHola amigo, aquí tienes una función de inocampo. Tienes que poner la celda B2 del color que quieres sumar y en A1 digitas la función:
Function SumByColor(InputRange As Range, ColorRange As Range) As Double
Dim cl As Range, TempSum As Double, ColorIndex As Integer
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempSum = 0
On Error Resume Next
For Each cl In InputRange.Cells
If cl.Interior.ColorIndex = ColorIndex Then
TempSum = TempSum + cl.Value
End If
Next cl
On Error GoTo 0
Set cl = Nothing
SumByColor = TempSum
End Function
Por ejemplo =SumBycolor(D1:D16,B2)
LEE BIEN las instrucciones para que no me digas que no puedes o no sabes cómo aplicar la función.
Function SumByColor(InputRange As Range, ColorRange As Range) As Double
Dim cl As Range, TempSum As Double, ColorIndex As Integer
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempSum = 0
On Error Resume Next
For Each cl In InputRange.Cells
If cl.Interior.ColorIndex = ColorIndex Then
TempSum = TempSum + cl.Value
End If
Next cl
On Error GoTo 0
Set cl = Nothing
SumByColor = TempSum
End Function
Por ejemplo =SumBycolor(D1:D16,B2)
LEE BIEN las instrucciones para que no me digas que no puedes o no sabes cómo aplicar la función.