Función al cambiar color de una celda
Publicado por Daniel Ulczyk (50 intervenciones) el 20/03/2007 23:22:00
Estimados:
Vengo del foro de Visual Basic, donde he publicado este post y no he conseguido una respuesta satisfactoria.
******************************************************************************************
He dado en la web, con el código que posteo al pie. El cual me es útil para sumar celdas con determinado color de fondo.
Ahora bien, si en el diseño de la hoja cambio el color de fondo de alguna celda, ya sumada; no veo en forma inmediata el cambio de resultado en la función =SUMCOLOR(A1;B1:B100)
Cómo se modifica esta función para tal solicitud.
Daniel Ulczyk
Function SumColor(rColor As Range, rSumRange As Range)
''''''''''''''''''''''''''''''''''''''
'Written by Ozgrid Business Applications
'www.ozgrid.com
'http://www.ozgrid.com/VBA/Sum.htm
'Sums cells based on a specified fill color.
'''''''''''''''''''''''''''''''''''''''
Dim rCell As Range
Dim iCol As Integer
Dim vResult
iCol = rColor.Interior.ColorIndex
For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell
SumColor = vResult
End Function
******************************************************************************************
Espero puedan darme una mano.
Saludos!
Vengo del foro de Visual Basic, donde he publicado este post y no he conseguido una respuesta satisfactoria.
******************************************************************************************
He dado en la web, con el código que posteo al pie. El cual me es útil para sumar celdas con determinado color de fondo.
Ahora bien, si en el diseño de la hoja cambio el color de fondo de alguna celda, ya sumada; no veo en forma inmediata el cambio de resultado en la función =SUMCOLOR(A1;B1:B100)
Cómo se modifica esta función para tal solicitud.
Daniel Ulczyk
Function SumColor(rColor As Range, rSumRange As Range)
''''''''''''''''''''''''''''''''''''''
'Written by Ozgrid Business Applications
'www.ozgrid.com
'http://www.ozgrid.com/VBA/Sum.htm
'Sums cells based on a specified fill color.
'''''''''''''''''''''''''''''''''''''''
Dim rCell As Range
Dim iCol As Integer
Dim vResult
iCol = rColor.Interior.ColorIndex
For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell
SumColor = vResult
End Function
******************************************************************************************
Espero puedan darme una mano.
Saludos!
Valora esta pregunta
0