selecteren op achtergrondkleur en optellen

[johan53]

Hallo,


Kun je getallen selecteren op achtergrondkleur en per kleur automatisch op laten tellen?

Zie onderstaande bijlage.



Dus: alle getallen met gele achtergrond automatisch optellen in cel AH10
en alle getallen met oranje achtergrond optellen in cal AI10

groeten Johan

 

[Joske2000]

Op de site van Ozgrid :

Function SumColor(rColor As Range, rSumRange As Range)
''''''''''''''''''''''''''''''''''''''
'Written by Ozgrid Business Applications
'www.ozgrid.com
'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

Daarna

=SumColor(AH10;C10:AG10)

in cel AH10

Joske

 

[johan53]

Hallo joske,

Ik ben niet goed (zeg maar slecht) in het maken van macro's.
Hoe/wat moet ik doen met de bovenste code in uw antwoord?

Moet dat eenmalig gebeuren of moet ik voor elke kleur een code aanmaken?
En de onderste code is dat ook voor elke kleur gelijk?

bij voorbaat dank,
johan

 

[Joske2000]

Hi Johan,

Ik heb de code in je werkblad gezet.
Je kan deze formule gebruiken in je ganse werkblad.

In je formule (in AH10) staat de volgende formule :

=SumColor(AH10;C10:AG10)

AH10 in deze formule wijst de achtergrondkleur toe van de op te tellen getallen
C10:AG10 is je cellenbereik.

Joske