verlof registratie

[weettniet]

Kan iemand mij helpen met het oplossen van het volgende probleem. Ik rommel maar wat aan op het gebied van excel en kom er echt niet uit.

Ik ben bezig met het maken van een verlofregistratie van 10 man. Dit zijn 4 man in 5-ploegendienst en 6 man in 3-ploegendienst. Hierin wil ik de verlofdagen, ziekte, etc. bijhouden. Ik geef met een kleur de desbetreffende bijzonderheid bij.

Ik probeer nu dat de cellen op kleur herkend wordt en dat de getalwaarde in de cel opgeteld wordt in het totaal overzicht per werknemer? Het kan ook b.v. een 1/2 snipperdag (=4 uur) of ziek naar huis zijn. Bezoek specialist (Geoorloofd verzuim van 2 uur), etc.



(Zie evt. bijgevoegd bestand)

Bij voorbaat dank,

Weettniet.

 

[Cobbe]

Heb een suggestie ingeplant in uw bestand:

Zie maar eens, Succes, Cobbe

 

[weettniet]

Bedankt voor de reactie. Kunt u misschiend de functie toelichten,ik begrijp helaas niet goed hoe ik het toe moet passen,

='F:\ASAP Utilities\ASAP Utilities\ASAP Utilities.xla'!ASAPSUMBYCELLCOLOR($K13:$IV13;15)

Als ik het goed begrijp kan ik er uit halen dat 15 de code is voor de desbetreffende kleur, het optellen aan de hand van ASAPSUMBYCOLOUR neem ik aan.

Hoe kan ik nu dus b.v. de getalwaarde weergeven van b.v. al de geel gekleurde cellen van de maand januari in het totaaaloverzicht van werknemer 1?

 

[trucker10]

Bedankt voor de reactie. Kunt u misschiend de functie toelichten,ik begrijp helaas niet goed hoe ik het toe moet passen,

='F:\ASAP Utilities\ASAP Utilities\ASAP Utilities.xla'!ASAPSUMBYCELLCOLOR($K13:$IV13;15)

Als ik het goed begrijp kan ik er uit halen dat 15 de code is voor de desbetreffende kleur, het optellen aan de hand van ASAPSUMBYCOLOUR neem ik aan.

Hoe kan ik nu dus b.v. de getalwaarde weergeven van b.v. al de geel gekleurde cellen van de maand januari in het totaaaloverzicht van werknemer 1?

Beste weetniet , je moet enkel deze

=ASAPSUMBYCELLCOLOR($K13:$IV13;15)

overhouden . Ook heb je de ASAP Utilities software nodig .

 

[weettniet]

Is er ook een mogelijkheid om zonder de ASAP utilitie mijn doel te bereiken?

 

[trucker10]

Is er ook een mogelijkheid om zonder de ASAP utilitie mijn doel te bereiken?

Ja met wat VBA code en formules die de kleuren tellen .

Sub gelekleur_6()
Selection.Interior.ColorIndex = 6
End Sub
Sub orangekleur_46()
Selection.Interior.ColorIndex = 46
End Sub
Sub rozekleur_38F() ' feestdag
Selection.Interior.ColorIndex = 38
ActiveCell.FormulaR1C1 = "F"
End Sub
Sub rozekleur_38RF() ' recup feestdag
Selection.Interior.ColorIndex = 38
ActiveCell.FormulaR1C1 = "RF"
End Sub

Dit om je kleuren en eventueel opmaak te bepalen en dan een functie code voor het tellen van de kleuren

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)

    Dim rCell As Range

    Dim lCol As Long

    Dim vResult


    lCol = rColor.Interior.ColorIndex

  If SUM = True Then

        For Each rCell In rRange

            If rCell.Interior.ColorIndex = lCol Then

                vResult = WorksheetFunction.SUM(rCell, vResult)

            End If

        Next rCell

    Else

        For Each rCell In rRange

            If rCell.Interior.ColorIndex = lCol Then

                vResult = 1 + vResult

            End If

        Next rCell

    End If
 ColorFunction = vResult

End Function

Hoe ik voor een bepaalde tak binnen het bedrijf dit bij hou ( zie jpg )

 

[Cobbe]

Was natuurlijk een beetje kort door de bocht.

Maar ik denk dat , indien je het mag doen, die Asap Utilities best installeert.
Het is gratis voor privedoeleinden en anders zéér goedkoop.
Het is fantastische software die je zeker voor dit soort van gegevens veel voldoening zal geven.

Kleuren(waardes) tellen moet je steeds in VBA doen en maakt uw bestand enkel trager, soms véél trager.

Zeker proberen.

Succes, Cobbe

 

[weettniet]

Bedankt voor de ondersteuning

Ik wil graag een ieder bedanken voor zijn input, ik weet het nu wel.

mvg weettniet

 

[trucker10]

Ik wil graag een ieder bedanken voor zijn input, ik weet het nu wel.

mvg weettniet

En wat weetje nu wel van wij niet weten ? , werken en tellen met kleurtjes :thumb: