Ver Mensaje Individual
  #1 (permalink)  
Antiguo 19/03/2007, 12:02
Avatar de Daniel Ulczyk
Daniel Ulczyk
Super Moderador
 
Fecha de Ingreso: febrero-2005
Ubicación: Buenos Aires
Mensajes: 9.264
Antigüedad: 19 años, 2 meses
Puntos: 2114
Función que suma según los colores de fondo

Tengo la siguiente función que suma según el color de fondo de las celdas:


Código PHP:
Function SumColor(rColor As RangerSumRange 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 
La cual funciona bien y se adapta a mis necesidades.
Aunque al momento de la edición donde existe una cantidad, si cambio el color de fondo no me actualiza la función.
Sólo lo actualiza si elijo un color de fondo y luego introduzco una cantidad en la celda, pero no en sentido inverso
¿Cómo se puede optimizar la función para que el orden de modificación de la celda sea indistinto?
__________________
—Somos lo que hacemos repetidamente. La excelencia, entonces, no es un acto sino un hábito. (Aristóteles dixit)