Weekstaat invullen

[mofasa]

Hallo Helpers,

Ik heb meerder topics gelezen maar mijn vraag bleef bestaan.

Ik heb een simpel weekstaat gemaak in excel 2003
De volgende punten kom ik niet uit.
standaard werk uren is 8 (7-15.30uur)
er is een pauze van een 30 min of 1 uur.
bij totalen komt er 30min of 1 uur overuren.
leuk voor hun

medewerker vult begintijd (VAN) en eindtijd (TOT)
excel rekent daarvan uit de totaal gewerkte uren en de overuren.
Per dag en per week

Kolom J een puldown menu : ziek/vrij/opname over uren/vakantie
Kolom K-L-M-N beveiligen

Wie-o-wie kan mij uit de excel woud helpen?

Ik heb een opmaak van mijn probleem bijgevoegd.
Alvast bedank

 

[dinoshop]

zo iets

kijkhier even na denk dat je dit bedoeld

 

[robdgr]

Of hier

 

[popipipo]

Of deze met afrondingen.

 

[mofasa]

Of hier

@rdg
beter wat wij gemaakt hadden, petje af hoor. :thumb:

vraag met valideren.
bij de pulldown menu zie ik z/v/o/
hoe kan ik in het menu veranderen dat er "Ziek / Vrij / Overuren" staat?
als ik wijzig bij J14, raak 'ie van slag.
"V" wil ik verplaatsen naar links "K"

bij nummerieke blok
Moet ik altijd 8:00 invullen i.p.v. 8 invullen
en 7:30 invullen i.p.v 7.30
als je alleen 8 invult dat excel dan verandert in 8:00
en 7.30 invult dat excel dan verandert in 7:30

zie bijlage

 

[mofasa]

Of deze met afrondingen.

@popipipo
Als ik pauze invult 0:30 raakt 'ie al gelijk van slag

 

[robdgr]

Aantal zaken aangepast. Tijd invullen zonder : kan wel, maar vraagt vba-oplossingen, die ik niet beheers. Is een kwestie van wennen.

 

[Hoornvan]

mofasa,

Zet deze code achter het blad en past het berijk aan.
Je kunt nu 1830 invoeren en hij maakt er 18:30 van

Private Sub Worksheet_Change(ByVal target As Range)
'invoeren van tijd in gehele getallen

On Error Resume Next
If Intersect(target, Range("B6:C210")) Is Nothing Then GoTo Einde
If IsEmpty(target) Then GoTo Einde

If Hour(target.Value) <> 0 Or Minute(target.Value) <> 0 Then GoTo Einde
Application.EnableEvents = False
If Int(target.Value / 100) < 0.1 Then
target = "00:" & target.Value
Else
target = Int(target.Value / 100) & ":" & Right(target.Value, 2)
End If
Application.EnableEvents = True

Einde:
ActiveSheet.Calculate
End Sub

 

[Hoornvan]

mofasa,

Ik heb de macro in de file verwerkt, tevens de validatie aangepast.

 

[robdgr]

bij nummerieke blok
Moet ik altijd 8:00 invullen i.p.v. 8 invullen
en 7:30 invullen i.p.v 7.30
als je alleen 8 invult dat excel dan verandert in 8:00
en 7.30 invult dat excel dan verandert in 7:30

@Wim,

Deze oorspronkelijke vraag is met je macro nog niet opgelost. Daar heb ik even naar gekeken en zie alleen en oplossing via verborgen kolommen.

 

[Hoornvan]

rdg1314,

Sorry dat ik zo laat reageer maar had even wat anders te doen.

Deze oorspronkelijke vraag is met je macro nog niet opgelost

De tijd zet hij toch neer zoals er word gevraagd, bij mij teminste wel.
De range moet even aangepast worden en ik dacht dat het C15:G21 moet zijn.
Je heb toch wel Analysis ToolPak aangevinkt staan?

Waarom er 2 cellen staan om de tijd in te voeren snap ik niet.
Ik heb de kolom C voor begin en kolom E voor eind tijd gebruikt.

 

[popipipo]

Als ik pauze invult 0:30 raakt 'ie al gelijk van slag

Mijn sheet bevat de functie MROUND
Deze werkt alleen als je Analysis toolpak hebt geïnstalleerd.

bij totalen komt er 30min of 1 uur overuren.

De overuren moeten dus afgerond worden op halve uren is mijn conclusie
Vandaar de MROUND functie in mijn voorstel en dat vind ik in andere voorstellen niet terug.

 

[Hoornvan]

mofasa,

Test deze file eens, volgens mij werkt het wel goed.
Vul b.v.b. 800 en hij maakt er 8:00 van.

Je moet wel 800 invullen want met 8 maakt hij er 00:00:08 van.
De validatie staan de 5 acties, Vrij enz.

 

[mofasa]

mofasa,

Test deze file eens, volgens mij werkt het wel goed.
Vul b.v.b. 800 en hij maakt er 8:00 van.

Je moet wel 800 invullen want met 8 maakt hij er 00:00:08 van.
De validatie staan de 5 acties, Vrij enz.

Prima :thumb:
als ik 800 invult verandert excel naar 8:00. Ook als ik 1530 invult verandert excel naar 15:30. Verder heb ik A4 verander naar Portrait, zodat er 2x op A4-tje komt.

Als er verlof dagen worden opgenomen, zie ik dat 8:00 verandert in een leeg veld.
(Kolom "H"). Kan ik dan in kolom H, 8:00 invullen?

Waarom er 2 cellen staan om de tijd in te voeren snap ik niet.
--Omdat er onregelmatig gewerkt wordt. wegenbouw.

 

[robdgr]

Als er verlof dagen worden opgenomen, zie ik dat 8:00 verandert in een leeg veld. (Kolom "H"). Kan ik dan in kolom H, 8:00 invullen?

Als iemand vrij is, worden er toch geen uren of overuren gemaakt? Daarom wordt die cel leeg.

 

[mofasa]

@rdg1314
om je, gespaarde, overuren op te nemen of je verlof/vakantie dagen op te nemen.
maar dit kan ook handmatig ingevuld worden.

Tot zover wil ik iedereen bedanken die mij geholpen heeft. :thumb:

Gr,
MoFaSa