waarschuwing inbouwen in planningsschema

[Blommo]

Bekijk bijlage test uren invulschema.xls

Hallo,

Ik heb een overzichtsblad totaal; als ik daar een code invul wil graag een waarschuwing als de persoon niet voldoet aan het aantal uren dat hij werkzaam is vlg. tabblad mensen afd.
Bijv. het veld laten verkleuren als dit niet goed is ingevuld

Groet Patrick

 

[Superzeeuw]

patrick,

Je vraag hier in het forum is anders dan de vraag in je excel sheet.
Vervolgens moeten wij maar gokken wat jij wilt want dat staat er niet duidelijk in.

Plaats eens een voorbeeld bestand waarin je laat zien wat de mogelijke varianten zijn.
Als het goed gaat.
En wanneer het fout gaat en dan wat jij als resultaat wilt.

 

[Blommo]

waarschuwing inbouwen in plannings schema

Bekijk bijlage test uren invulschema.xls
Hoi Superzeeuw

Bij ons op de afdeling werken een honderd mensen.
Allen hebben een nogal wisselend arbeidspatroon: Er zijn mensen die maar een uur werkzaam zijn bijv. smorgens en er zijn mensen die alleen smiddags werken ook bijv 2uur.
Dit is nogal verwarend en bijna ondoenlijk om jezelf te niet vergissen .
Wat wil ik bereiken:
Als in mijn geval Patrick op ma. 1-11-2010 2 uur wil snipperen wil ik dit met code So2 aangeven. So2 = Snipperen Ochtend 2uur.
Als ik deze code op deze blz. invul wil graag dat hij controleerd op blz. Mensen Afd. of patrick voldoet aan het uren wat hij moet werken
In mijn overzicht staat dat patrick op maandagochten niet hoeft te werken dus is mijn invulling niet goed.
Nu zou ik graag in het overzichtsblad totaal hier voor gewaarschuwd willen worden

Hopelijk is dit iets duidelijker

Groet PAtrick

 

[Superzeeuw]

Blommo,

Ik heb gekeken of ik dit met een formule zou kunnen oplossen maar daar zie ik geen mogelijkheden.
Met VBA lukt dit wel.

 

[Blommo]

Hoi Superzeeuw,

Ik wilde het niet via VBA oplossen.
In iedergeval bedankt voor de moeite

Groet PAtrick

 

[Thoralf]

Hallo Patrick,

Er is met formules wel het een en ander te bereiken, maar dan wel met hulpkolommen.
Ik heb alvast een voorzetje gemaakt. zie de formules in de gele cellen.

Aanvulling:
De tekst Ziek is nog niet verwerkt.

 

[sylvester-ponte]

hoi
door in exel namen toe te voegen
en door en nieuwe functie te maken:

Function CodeKlopt(PersNr As Integer, Dag As String, Code As String) As Boolean
    'de tabellen "MensenAfdeling" en "CodeTabel" Zijn als Namen gedefineerd.
    'omdat bij voorwaardelijke opmaak niet buiten het betreffende Blad gekeken mag worden.
    
    Dim PersRij As Integer, DagKolom As Integer, CodeRij As Integer
    Dim SnipperUren, Dagdeel As Integer, WerkUren
    If Code = "" Then CodeKlopt = True: Exit Function
    If Dag = "" Then CodeKlopt = False: Exit Function
    If PersNr = 0 Then CodeKlopt = False: Exit Function
    
    For PersRij = 1 To Range("MensenAfdeling").Rows.Count
        If PersNr = Range("MensenAfdeling")(PersRij, 1) Then Exit For
    Next PersRij
    If PersRij > Range("MensenAfdeling").Rows.Count Then CodeKlopt = False: Exit Function
    
    For DagKolom = 1 To Range("MensenAfdeling").Columns.Count
        If Dag = Range("MensenAfdeling")(1, DagKolom) Then Exit For
    Next DagKolom
    If DagKolom > Range("MensenAfdeling").Columns.Count Then CodeKlopt = False: Exit Function
    
    For CodeRij = 1 To Range("CodeTabel").Rows.Count
        If Code = Range("CodeTabel")(CodeRij, 1) Then Exit For
    Next CodeRij
    If CodeRij > Range("CodeTabel").Rows.Count Then CodeKlopt = False: Exit Function
    
    SnipperUren = Range("CodeTabel")(CodeRij, 2)
    Dagdeel = Range("CodeTabel")(CodeRij, 3)
    WerkUren = Range("MensenAfdeling")(PersRij, DagKolom + Dagdeel)
    If WerkUren = "Ziek" Then CodeKlopt = False: Exit Function
    If SnipperUren > WerkUren Then CodeKlopt = False: Exit Function
    CodeKlopt = True
End Function

kan het met voorwaardelijke opmaak.

groet sylvester

 

[Blommo]

Hoi Sylvester-ponte,

Zo'n Marco werkt hartstikke geweldig, kan er niet meer van zeggen.
Doet alles wat ik wil

bedankt

Groet Patrick

 

[Blommo]

Hallo Patrick,

Er is met formules wel het een en ander te bereiken, maar dan wel met hulpkolommen.
Ik heb alvast een voorzetje gemaakt. zie de formules in de gele cellen.

Aanvulling:
De tekst Ziek is nog niet verwerkt.

Hoi Thoralf,

Heb je overzicht bekeken, werkt hartstikke goed, maar je hebt inderdaad hulpkolommem nodig. Ben er nog mee aan het stoeien. Heb in ieder geval er wel van opgestoken dat het werken met codes als index, indirect vergelijken etc. voor mij nog het nodige te leren valt.
Sylvester heeft mij een macro toegezonden, en die doet ook alles wat nodig is.
Zullen de macro gaan inzetten.
In iedergeval hartstikke bedankt voor de moeite.

Groet PAtrick