Gekleurde cellen automatisch optellen doet het niet

[Lampie173]

Aloha allemaal,

bijgevoegd bestand wil ik de cellen met waardes optellen die dezelfde kleur hebben.

Ik heb 2 functies in een module staan, maar geen van beide werkt.

Tevens de vraag over de feestdagen die op zondag vallen:
Hebben die dan de kleur GEEL of ORANJE?

Nu ik toch hulp vraag.
Kan ik de kleuren GROEN en WIT op dezelfde manier doen?

 

[popipipo]

Dat komt doordat de cel in werkelijkheid niet geel gekleurd is maar geel kleurt door de voorwaardelijke opmaak.
Gebruik de voorwaardelijke opmaak formule om de optelling te doen.

 

[Lampie173]

Hey Popipipo,

Ik wil niet het aantal (gekleurde) cellen tellen, maar juist de waardes in die gekleurde cellen.
Ik dacht dat dit met Somdezelfdekleur kon, maar dar gaat niet??

 

[popipipo]

Antwoord blijft gelijk, de Somdezelfdekleur kan niet de cellen identificeren op kleur als de kleur bepaalt wordt door voorwaardelijke opmaak.
Somdezelfdekleur ziet elke cel als "wit"

 

[Lampie173]

Ok.

Ik zie het nu inderdaad wat je bedoelt.
Maar wat ik dan doen/gebruiken om de waardes in (gekleurde) cellen op te tellen?

 

[peter59]

Ik weet niet of je misschien iets moet gaan omdenken.
Zelf heb ik het idee dat je iets met de z.g. RGB code dient te gaan doen.
De VBA specialisten hebben hier misschien een antwoord op.
https://excelatfinance.com/xlf/xlf-colors-1.php

 

[Lampie173]

Peter59
Dank voor je reactie, maar dit gaat mij boven mijn pet!

 

[peter59]

Met "handmatig kleur bepaald" gaat het wel met een functie.
Dit was mijn leidraad.

Om deze inhoud te bekijken, hebben we jouw toestemming nodig om cookies van derden te gebruiken.
Voor meer gedetailleerde informatie, zie onze cookiespagina.

Accepteer cookies van derden

 

[peter59]

Ik heb de functie aangepast om ook de waarden te tellen in de gekleurde cellen.

 

[emields]

telt een zondag die op een feestdag valt voor zondag of feestdag?

 

[Warme bakkertje]

Probeer het eens met deze.

Sub CountCFColors()
For Each Cl In Range("B3:AF14")
    Select Case Cl.DisplayFormat.Interior.Color
        Case RGB(255, 255, 0) 'Yellow
            Count = Count + 1
        Case RGB(255, 192, 0) 'Orange
            count2 = count2 + 1
    End Select
Next
Range("B17") = Count: Range("B18") = count2
End Sub

 

[Lampie173]

@peter59
Dank voor het meedenken #9.
Maar in #4 legt Popipipo uit dat gekleurde cellen bepaalt door VO eigenlijk 'gewoon' wit zijn en dus niet automatisch berekend (lees: bij elkaar opgeteld) kunnen worden. Ik ben na het uitproberen en zoeken op het net tot dezelfde conclusie gekomen. En vooral weer wat geleerd.

@Warm Bakkertje
Dank voor je code in #11, maar volgens worden hierin alleen de gekleurde cellen geteld, 1+1=2, maar ik zoek naar dat de waardes in die gekleurde cellen bij elkaar opgeteld worden.
De gekleurde cellen zijn onder VO opgemaakt.

@emields
Dank voor je vraag, die heb ik mijzelf in het begin ook gesteld.
Maar dat blijkt n.v.t. te zijn.
Ik zal het uitleggen, in de gekleurde cellen komen waarden te staan die voor 'Dal' staan, in de NIET gekleurde cellen staan de waarden die overeen komen met 'Normaal'
Ik wil deze kalender gebruiken om bij te houden hoeveel kWh's (per dag en per tariefsoort) geladen worden.
Ook wil ik de huidige layout (zoveel mogelijk) aan houden.

Eigenlijk wil ik zeggen:

SNB, kom er maar in!

 

[Warme bakkertje]

wil ik de cellen met waardes optellen die dezelfde kleur hebben.

Kwestie van interpretatie.
In Codemodule van Blad1.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:AF14")) Is Nothing Then
    For Each Cl In Range("B3:AF14")
        Select Case Cl.DisplayFormat.Interior.Color
            Case RGB(255, 255, 0) 'Yellow
                Count = Count + Cl.Value
            Case RGB(255, 192, 0) 'Orange
                count2 = count2 + Cl.Value
        End Select
    Next
Range("B17") = Count: Range("B18") = count2
End If
End Sub

 

[Warme bakkertje]

SNB, kom er maar in!

Wat een blijk van vertrouwen naar alle andere helpers toe.

 

[popipipo]

Ook wil ik de huidige layout (zoveel mogelijk) aan houden.

Ik denk dat dit niet gaat lukken totdat het tegendeel bewezen gaat worden.


Maar hangt het tarief soort ook niet af van het tijdstip?
Je hebt nl dag en nacht tarief en ook nog de dynamische contracten.

 

[peter59]

ChatGPT eens geraadpleegd en dan krijg je dit.
De kleuren zijn met voorwaardelijke opmaak gecreëerd.
Dit is de code:

Function SumByValueRules(MyRange As Range, Rule As Integer) As Double
    Dim Cell As Range
    Dim Total As Double

    Total = 0

    For Each Cell In MyRange
        If IsNumeric(Cell.Value) Then
            Select Case Rule
                Case 1
                    If Cell.Value = 1 Then Total = Total + Cell.Value
                Case 2
                    If Cell.Value = 2 Then Total = Total + Cell.Value
                Case 3
                    If Cell.Value = 3 Then Total = Total + Cell.Value
            End Select
        End If
    Next Cell

    SumByValueRules = Total
End Function

Kijk ook even naar de functieformule in de desbetreffende cellen want deze is voor iedere kleur steeds anders.

 

[Lampie173]

Wat een blijk van vertrouwen naar alle andere helpers toe.

@Warme bakkertje

Was als grap bedoeld!!
Sorry.
Laat ik voorop stellen dat ik (in beginsel) als mens in iedereen vertrouwen heb (en dus ook zeker op dit forum)
Kan je zien wat 'platte' tekst met anderen kan doen.
We lezen allemaal een andere bril.

 

[Warme bakkertje]

Top. Nu terug naar de vraag.
Mijn bijdrage in uitvoering. Voeg waardes toe in de gele of oranje gekleurde cellen.

 

[Lampie173]

Ik denk dat dit niet gaat lukken totdat het tegendeel bewezen gaat worden.


Maar hangt het tarief soort ook niet af van het tijdstip?
Je hebt nl dag en nacht tarief en ook nog de dynamische contracten.

Goeie vraag!
Nee, dat alles in niet van toepassing, omdat er alleen overdag (icm pv) verbruik is.
Het tarief Dal is alleen in de weekeinden en op feestdagen geldig, Normaal op de doordeweekse dagen.

 

[Lampie173]

Ik denk dat dit niet gaat lukken totdat het tegendeel bewezen gaat worden.

Hoi Popipipo,

Het tegendeel is bewezen!
Warme Bakkertje heeft het toch voor elkaar (zie #18) gekregen, inmiddels heb ik ook de andere kleuren in kunnen passen.