• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

gekleurde cellen tellen

Status
Niet open voor verdere reacties.
H

hansie1962

Gebruiker
Lid geworden
10 feb 2009
Berichten
63
Goedemorgen,

Ik heb de volgende vraag.
Ik heb een overzicht waarin de gewerkte uren worden bijgehouden.
Naast de gewerkte uren moet ook worden bijgehouden wat voor soort dienst het geweest is, en dit geef ik aan middels een gekleurde cel.
Is het ook mogelijk dat je met ee bepaalde formule het aantal gekleurde cellen kan tellen?
Zo ja, kan je dan ook onderscheid maken in de betreffende kleuren?

Ik oop dat iemand mij op weg kan helpen.
Alvast bedankt voor de reactie.

Groeten Hans
 
hansie1962

Gebruik ook eens de zoek functie van Helpmij "Doorzoek dit forum"
Kijk hier maar even.
 
Thanxx

Hoornvan zei:
hansie1962

Gebruik ook eens de zoek functie van Helpmij "Doorzoek dit forum"
Kijk hier maar even.
Klik om te vergroten...

Ik heb inderdaad wel iets gevonden.
Zou je me uit kunnen / willen leggen wat de code betekend?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If intersect (target,Range("B1:X31")) is nothing then exit sub
[B33: D33].Value = 0
For Each c In [B1:X31]
If c.Interior.ColorIndex = 3 Then
[B33].Value = [B33].Value + 1
ElseIf c.Interior.ColorIndex = 4 Then
[C33].Value = [C33].Value + 1
ElseIf c.Interior.ColorIndex = 5 Then
[D33].Value = [D33].Value + 1
End If
Next
End Sub


Alvast bedankt
 
De code telt de kleuren Rood - Blauw en Groen.
 
ansie1962,

Dat zet hij in de cellen B33 - C33 - D33
Wil je het ergens anders dan moet je het daar veranderen.
Code: 
[B33].Value = [B33].Value + 1
ElseIf c.Interior.ColorIndex = 4 Then
[C33].Value = [C33].Value + 1
ElseIf c.Interior.ColorIndex = 5 Then
[D33].Value = [D33].Value + 1
Hij kijkt in de cel B1 to X31 voor de kleuren ook dat kun je aanpassen.
Code: 
For Each c In [B1:X31]
 
Hoornvan zei:
ansie1962,

Dat zet hij in de cellen B33 - C33 - D33
Wil je het ergens anders dan moet je het daar veranderen.
Code: 
[B33].Value = [B33].Value + 1
ElseIf c.Interior.ColorIndex = 4 Then
[C33].Value = [C33].Value + 1
ElseIf c.Interior.ColorIndex = 5 Then
[D33].Value = [D33].Value + 1
Hij kijkt in de cel B1 to X31 voor de kleuren ook dat kun je aanpassen.
Code: 
For Each c In [B1:X31]
Klik om te vergroten...

Jouw verhaal snap ik wel maar verder kom ik er niet mee....
Moet ik de code als module in VB toevoegen?

Ik heb de code aangepast maar volgens mij werkt het niet.
Ik heb het bestand als bijlage toegevoegd.
Zou je mij op weg kunnen / willenhelpen?
Je hoeft het niet te doen voor me.. als kun je me maar op weg helpen.
Ik zou er heel blij mee zijn.

Alvast bedankt
 

Bijlagen

  • Overallplanning DVRI 2010-09.rar
    24,4 KB · Weergaven: 78
hansie1962,

Ik heb even zitten klooien maar had een foutje gemaakt. (snapte het niet)
Hier is je file terug en werkend op het bovenste gedeelte C8 - CH36

Zo te zien heb je het ook voor de onderste nodig maar dat zal je zelf wel kunnen denk ik.
Zet nog zo'n setje code er onder en past de bereiken aan.

Je moet ook de juiste kleurennummers gebruiken anders ziet hij ze niet.

De code staat achter het blad.
Klik met recht op het tabblad en kies voor code weergeven.

Suc6
 

Bijlagen

  • Overallplanning DVRI 2010-09(Hv).rar
    59,1 KB · Weergaven: 86
Laatst bewerkt:
Beste Wim,

Heel erg bedankt voor je hulp.
Ik heb echter nog 1 klein probleem.
De waardes van de gekeurde cellen heb jij naast de legenda geplaatst.
Ik heb ze verplaatst naar de reachterkant van het tabblad.
Ik moet echter de waardes van alles cellen per werknemer aan de rechterzijde hebben, per regel dus.

Bij de eerste regel heb ik het voor elkaar dat werkt als een speer.

Hoe moet ik nu het VB script aanpassen zodat ik de waarden van iedere regel te zien krijg?

De formule per regel kopieeren en aanpassen is geen optie, dat heb ik geprobeerd maar dan krijg ik allerlei foutmeldingen.

Wellicht moet ik het script aanpassen en uibreiden maar ik weet niet hoe.
Zou je me nog 1x kunnen helpen?
Ik hoop dat je begrijpt wat ik bedoel.
Ik moet van iedere werknemer apart de gegevens kunnen zien aan de rechterzijde.

Ik heb het aangepaste bestand nogmaals als bijlage meergestuurd.
Alvast hardstikke bedankt.

Groeten Hans
 

Bijlagen

  • Overallplanning DVRI 2010-09(Hv).rar
    60,5 KB · Weergaven: 36
hansie1962,

Zo als jij het wil zou het een macro van een meter worden denk ik.
Nu heb ik het opgelost met een formule.

Er zit een module in met een Functie om kleuren te tellen en in de cel een formule.

Ik hoor wel wat je er van vind.

Suc6
 

Bijlagen

  • Overallplanning DVRI 2010-09(Hv2).rar
    61,8 KB · Weergaven: 55
Beste hansie1962 ;)

Heb ongeveer hetzelfde idee dan Hoornvan, alleen moet je hier de kleur uit een cel halen zonder het kleurnummer in te voegen.

Het is ook met een formule. (maar met een code erachter !)

=Telkleur(cel met kleur erin;bereik)
Vb. =TelKleur(CK$7;$C8:$CH8)

Op deze manier kan je zoveel kleuren optellen als je wilt zonder het kleurnummer te kennen.

Zie bestandje.

Groetjes Danny. :thumb:
 

Bijlagen

  • Overallplanning DVRI 2010-09 (Danny147).rar
    59,8 KB · Weergaven: 111
Laatst bewerkt:
danny147,

Dit is misschien een mooiere oplossing, je heb altijd de juiste kleur.:thumb:
 
Hoornvan zei:
hansie1962,

Zo als jij het wil zou het een macro van een meter worden denk ik.
Nu heb ik het opgelost met een formule.

Er zit een module in met een Functie om kleuren te tellen en in de cel een formule.

Ik hoor wel wat je er van vind.

Suc6
Klik om te vergroten...

Beste Wim,

Het ziet ewr goed uit, maar ik dat het niet in alle cellen werkt.
Als ik de kleur uit de cellen verwijder, wordt de waarde oom niet bijgewerkt, of ligt dat aan mij?

Werkt deze formule ook voor de andere weken of alleen van week 1 tm 4?
 
danny147 zei:
Beste hansie1962 ;)

Heb ongeveer hetzelfde idee dan Hoornvan, alleen moet je hier de kleur uit een cel halen zonder het kleurnummer in te voegen.

Het is ook met een formule. (maar met een code erachter !)

=Telkleur(cel met kleur erin;bereik)
Vb. =TelKleur(CK$7;$C8:$CH8)

Op deze manier kan je zoveel kleuren optellen als je wilt zonder het kleurnummer te kennen.

Zie bestandje.

Groetjes Danny. :thumb:
Klik om te vergroten...

Hoi Danny,

Ook jij heel erg bedankt, maar ik loop bij jouw bestand tegen dezelfde problemen aan als bij Wim.
Als ik het bestand helemaal leeg haal en daarna de cellen weer ga inkleuren, worden de waardes niet meer bijgewerkt.
 
Beste hansie1962 ;)

Heb je al eens geprobeerd door op F9 te klikken.

F9 = alles herberekenen.

Groetjes Danny. :thumb:
 
danny147 zei:
Beste hansie1962 ;)

Heb je al eens geprobeerd door op F9 te klikken.

F9 = alles herberekenen.

Groetjes Danny. :thumb:
Klik om te vergroten...

Ja heb ik,

Kijk maar in de bijlage als je wilt..... er gebeurt helemaal niets.
Het kan best aan mij liggen hoor
 

Bijlagen

  • Overallplanning DVRI 2010-09 (Danny147).rar
    59,5 KB · Weergaven: 53
hansie1962 zei:
Ja heb ik,

Kijk maar in de bijlage als je wilt..... er gebeurt helemaal niets.
Het kan best aan mij liggen hoor
Klik om te vergroten...

waar staat CK voor in de formule Danny?
De rest van de formule snap ik wel, maar die CK staat op iedere regel....
=TelKleur(CK$7;$C9:$CH9)
 
hansie1962,

waar staat CK voor in de formule Danny?
De rest van de formule snap ik wel, maar die CK staat op iedere regel....
=TelKleur(CK$7;$C9:$CH9)

CK$7 dat is de cel van het kleurvak.

Ik heb ook gemerkt dat er niets gebeurd, in mijn file ook niet.
Waar dit aan licht zou ik niet weten.

Misschien weet Danny147 het?
 
Die maakt een verwijzing naar de kleur die hij moet tellen.
In dit geval dus CK7
In de cel ernaast staat CL7, CM7 enz

edit.
Was al antwoord gegeven
 
hansie1962,

Zet dit achter het tabblad.
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Calculate
End Sub
Wanneer je nu een cel inkleurt en deze verlaat werkt het wel.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan