werkuren met overzichten ( pc140.04 , maandoverzicht )

trucker10 · #1 7 juni 2010, 23:27

Ik zie bij regelmaat vragen over het bijhouden van werkuren .
In dit voorbeeldje kan je , je uren per dag bijhouden , ik heb dropdownmenutjes voorzien om er een bepaalde code aan te geven , ook de ADV , Verlof- en feestdagen kan je selecteren . Verder is er een overzichtje per maand , product ( code ) , totaal uren enz.........
In het maand en pc140.04 overzicht hoef je enkel maar de begindatum te selecteren de rest komt vanzelf over . Ook eens Ctrl F3 drukken daar staan de namen , bereiken benoemd .
Ik hoop hiermede een bijdrage te leveren aan mensen die een idee willen opdoen hoe het kan ( niet hoe het moet

) .
Ik sta steeds open voor verbeteringen ( ben nu anderhalf jaar bezig met excel ) . Er is een macrootje aanwezig

Code:

Private Sub Worksheet_Activate()
  Application.Goto Cells(4 + DateDiff("d", [C3], Date), 4)
End Sub

bij activatie van tabblad " invulblad " ga je direct naar de datum .

excelfreakhunsel · #2 8 mei 2011, 09:56

ik heb hem ingebruik werkt goed .
heb hem wel wat aan gepast naar mijn werk
bedankt hier voor . zie bijlage

ruudje15 · #3 8 mei 2011, 10:15

volgen de keer prive gegevens er uit halen voor plaatsen

excelfreakhunsel · #4 8 mei 2011, 12:18

sorry Is niet zo erg maar ik heb het aan gepast.

stifje · #5 19 december 2011, 13:09

Dankjewel Kozijntje, ik heb je bestandje gedownload en wil het graag aanpassen aan mijn werk hoe kan ik bv de codes veranderen? Er staat nu ADV maar wil daar mijn eigen codes voor plaatsen. Kan dat? en hoe?

excelfreakhunsel · #6 19 december 2011, 17:39

ja dat kan dan moet je in de macro veranderen

gr johan

trucker10 · #7 19 december 2011, 18:48

Citaat:

Oorspronkelijk geplaatst door kozijntje

ja dat kan dan moet je in de macro veranderen

gr johan

Ik zie geen enkel macro in dat bestandje

Stifje om dat te verwezenlijken moet je gewoon op tabblad "persoonlijk" in kolom V zijn , let wel wat je daar doet , daar deze gekoppeld is aan een datavalidatie ( Ctrl F3 ) drukken

excelfreakhunsel · #8 19 december 2011, 19:29

sorry dat klopt ja trucker10 ,

ik heb zelf een ander waar wel macro's in zitten

je moet in de formule veranderen. =ALS(E11="ADV";D11;"")

dit moet je doen in tabblad "invulblad" in niet in "persoonlijk" trucker10

gr Johan

trucker10 · #9 19 december 2011, 19:42

Ik lees

Citaat:

hoe kan ik bv de codes veranderen? Er staat nu ADV maar wil daar mijn eigen codes voor plaatsen.

Dan moet hij volgens mij toch eerst de data wijzigen in tabblad " persoonlijk " om deze dan via de dropdown cellen op zijn invulsheet te brengen en ook de formule aanpassen zoals je aanheeft .

Heb je ook al een invulsheet met o.a.

Code:

 'Prestatiecode
        Select Case Trim(UCase(ActiveSheet.Cells(i, 3)))
          Case "V"  'verlof
            Record = Record & "228"
          Case "Z" 'ziekte
            Record = Record & "201"
          Case "AO" 'arbeidsongeval
            Record = Record & "203"
          Case "F"  'feestdag
            Record = Record & "102"
          Case "KV" 'klein verlet
            Record = Record & "103"
          Case "C"  'compensatierust
            Record = Record & "225"
          Case "ADV" 'arbeidsduurvermindering
            Record = Record & "104"
          Case "TA" 'toegestane afwezigheid
            Record = Record & "301"
          Case "OA" 'onwettig afwezig
            Record = Record & "308"
          Case "EW" 'economische werkloosheid
            Record = Record & "208"
          Case Else
            Record = Record & "   "
          End Select

Discussietools
Printversie tonen Deze pagina e-mailen
Weergave
Lineaire weergave Switchen naar hybride weergave Switchen naar vertakte weergave