• 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.

Tijdsprobleempje

Status
Niet open voor verdere reacties.
Dit heb ik er alvast van gemaakt, de huidige lijst van februari, graag hierop verder borduren.

Daar waar de pijltjes staan moet ie nog aangepast worden.
 

Bijlagen

Richard,

Ook vanuit de Gelderse Vallei van harte gelukgewenst.

Groet,
 
De formule in kolom G heb ik van < een = gemaakt en nu doet hij er wel 24 uur van maken.

=ALS(F40=0;"";ALS(F40-E40<0;(F40+1)-E40;F40-E40)) (zo was het)

=ALS(F45=0;"";ALS(F45-E45=0;(F45+1)-E45;F45-E45)) (nu zo)

Alleen als je b.v.b Begin tijd 07:00 en eind tijd de andere dag 08:00 invult geeft hij maar 1uur i.p.v. 25 uur
Dus is het nog niet helemaal juist!

Als het helemal goed werkt heb ik nog een macro vor je dan hoef niet steds die dubbele punt te gebruiken, je zet dan 700 en hiij maakt er 7:00 van.
Dit heb ik niet zelf bedacht maar ook van helpmij afgehaald, je heb er slimme mensen bij zitten.
Zelf zou ik het ook graag leren maar waar vind je een goed lesboek hier over.

Mvg. Wim
 
Je bedoelt 2x de vrijdag aanpassen zoals ik het kan beoordelen.
Er moet inderdaad bij 170% ook wat komen.

Daar moet ik even op studeren (gezien de leeftijd).
Misschien heeft iemand een idee hier over?

Mvg. Wim
 
Wim,

Die 24 uur en die vrijdag heb ik opgelost. Wat is die macro voor die tijd?

Groet,
 
Hallo rdg1314,

Ik wil ook wel even weten hoe je dat opgelost heb (kan er nog wat van leren).

Deze macro moet achter het blad zetten.
Je typt 700 en hij maakt er 7:00 van, als je veel tijden in moet vullen is dit erg makkelijk.

De macro:

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

On Error Resume Next
If Intersect(target, Range("E5:F155")) 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


Mvg. Wim
 
Wim, Dank voor je hulp.

Richard, Heb het bestand aangepast en nu afgemaakt met twaalf tabbladen.

Groet,
 

Bijlagen

Hallo rdg1314,

De macro moet in alle tabbladen nog worden aangepast E4 tot F37 dan werkt hij goed.

Ik hoop dat Richard het nu goed vind, volgens mij moet het zo goed zijn.

Mvg. Wim
 
:thumb:

Het wordt steeds mooier en als je zoals ik in de nachtploeg zit en alleen die uren invult omzeil je precies alle dingen die fout gaan.

Wat ik dus al zei, in principe kan ik hier heel goed mee uit de voeten en is de vraag zo als opgelost.

Echter, er zijn nog een aantal dingen die, om wat voor reden dan ook, niet goed gaan.
Ik heb het file retour gestuurd met in een paar maanden andere tijden dan normaal ingevuld.
Bijvoorbeeld uren voor de dagploeg of simpelweg eerder of later beginnen/eindigen.
Soms wordt er teveel berekent wat er in de naaststaande kolom weer afgetrokken wordt wat resulteert in negative uitkomsten.

De bedoeling is, en dat kan ik zelf wel doen, om de eindresultaten in het rechter gedeelte te koppelen aan een uren berekening.
Bijvoorbeeld kolom urentotaal 130%:
= URENTOTAAL * BASISUURTARIEF + 30%
Maar dat pruts ik zelf wel in elkaar.

Het belangrijkste is dat de verdeling van percentages van de uren precies volgens de matrix klopt. Ongeacht de begin of eindtijd.
En dat lijkt me toch wel een redelijk puzzelstukje te worden.

Dus willen we het onderste uit de kan en maken het 100% of laten we het zo?
Jullie hebben er al een heleboel tijd in gestoken dus wat kan ik nog meer verlangen.
Ik ben er nu al heel blij mee :thumb:

groet,

Richard
 
Zover heb ik het voor elkaar nu nog de rode problemen zien op te lossen.
 

Bijlagen

  • TijdProbleem.jpg
    TijdProbleem.jpg
    81 KB · Weergaven: 29
Ik trek me even terug tot de volgende regenachtige dag. De oorspronkelijke vraag is beantwoord en het begint nu een beetje te lijken op het zoeken naar de grenzen die iedere oplossing heeft.
 
Ok Rob,

Dat bedoel ik dus.

In ieder geval zeer bedankt voor je inzet!


Gr

Richard


(als ik "vraag is beantwoord" aanklik kun je dan nog wel posten voor evetuele verdere communicatie?)
 
Richard,

Volgens mij wel. Mocht het niet werken, dan kun je het altijd ongedaan maken.

Misschien tot later,
 
Ok, bij deze dan.

Ik geloof dat Wim nog met de laatste foutjes bezig is maar dat hoor ik dan nog wel van hem.

Iedereen bedankt voor de hulp. :thumb:
 
Hallo Richard en Rob,

Ik heb het aardig voorelkaar op een kleinigheidje na.
Als je op vrijdag overdag moet werken is dat voor de formule een probleem.
Ik heb verschillende data geprobeerd, dan veranderen automatisch de dagen. Zolang er op de vrijdag van 21:45 uur gewerkt wordt gaat het goed.
Als je op vrijdag om 7:00 uur begint tot b.v.b. 15:00 uur gaat het fout.

Misschien dat Rob of iemand anders daar een oplossing voor heeft.
Als iemand de oplossing hier voor weet wil ik dat ook graag weten (ben nieuwschierig).

Mvg. en een prettig weekend,
Wim
 

Bijlagen

Wim,

Deze?
Code: 
=ALS(OF(E8=0;F8=0);"";ALS(WEEKDAG(C8)=7;G8;""))

Prettig weekend,
 
Hallo Richard,

De formule heb ik geprobeerd maar als je deze op vrijdag zet waar nu 8:00 uur staat, verdwijnt de 8:00 en dat is niet de bedoeling.
Bedankt dat je reageerde, ik denk dat er dit weekend niets meer van komt even de hersens een beetje rust geven.

Mvg. Wim
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan