Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: uren:minuten om de zeven dagen verhogen met 12min.  (gelezen 7163 keer)

0 leden en 1 gast bekijken dit topic.

Offline dreesfr

  • Nieuw lid
  • Berichten: 2
  • Geslacht: Man
  • Oplossing.be
uren:minuten om de zeven dagen verhogen met 12min.
« Gepost op: 27 mei 2020, 13:25:49 »
Goedemiddag,

heb een werkkalender aangemaakt.
In cel H50 heb ik uren:minuten staan, deze zouden iedere vrijdag verhoogd moeten worden met 12min.
Vind hier geen oplossing voor. ???


Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: uren:minuten om de zeven dagen verhogen met 12min.
« Reactie #1 Gepost op: 27 mei 2020, 14:15:41 »
Als je iedere vrijdag dit bestand opent kan je volgende gebruiken in de ThisWorkbook module.
Nadeel, als je het bestand meerdere keren sluit en heropent op vrijdag komt er iedere keer 12 minuten bij.
Private Sub Workbook_Open()
If Weekday(Date) = vbFriday Then Sheets("Sheet1").[H50].Value = [H50].Value + TimeSerial(0, 12, 0)
End Sub
Om vandaag te testen verander vbFriday in vbWednesday
in bijlage voorbeeldje die vandaag 12 minuten bijvoegt als je het bestand opent.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: uren:minuten om de zeven dagen verhogen met 12min.
« Reactie #2 Gepost op: 27 mei 2020, 14:54:29 »
@dreesfr,

Welkom op Oplossing.be  :)

@Dotchiejack,

Nadeel, als je het bestand meerdere keren sluit en heropent op vrijdag komt er iedere keer 12 minuten bij.
Kan de macro de "dag van uitvoering van de macro" (in tekst) niet opnemen in een (verborgen ) cel.
Kan er in de macro niet gekeken worden naar de huidige datum, en of deze al dan niet overeenkomt met de tekst in de verborgen cel.
Indien Ja, voer de het 12-minuten-deel van de macro geen 2de keer uit....

:) SoftAid :)             

Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: uren:minuten om de zeven dagen verhogen met 12min.
« Reactie #3 Gepost op: 27 mei 2020, 15:04:21 »
Hierbij een formule met gewone Excel-functies opgebouwd.
=SUMPRODUCT(--(WEEKDAY(ROW(INDIRECT(DATEVALUE("01/01/2020")&":"&TODAY())))=6))*TIME(0;12;0)
Ik heb op deze laptop helaas niet mijn programmaatje om de formule naar het Nederlands te vertalen, maar misschien lukt dat je.
Wat deze formule doet, is het aantal vrijdagen berekenen die we in dit jaar tot nu toe hebben gehad. Dat aantal wordt vermeningvuldigd met 12 minuten en zou je vandaag (27/05/2020) op 4:12:00 zitten (geteld: 21 vrijdagen).

Ik ben er overigens vanuit gegaan dat dit de bedoeling was. Als je niet vanaf 1 januari wilt rekenen, zal je die datum in de formule moeten aanpassen naar ??...
______________________________

Groet, Leo

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: uren:minuten om de zeven dagen verhogen met 12min.
« Reactie #4 Gepost op: 27 mei 2020, 15:09:48 »
@Redhead, hierbij de vertaling.
=SOMPRODUCT(--(WEEKDAG(RIJ(INDIRECT(DATUMWAARDE("01/01/2020")&":"&VANDAAG())))=6))*TIJD(0;12;0)

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: uren:minuten om de zeven dagen verhogen met 12min.
« Reactie #5 Gepost op: 27 mei 2020, 15:12:25 »
@ Softaid, misschien zo.
Private Sub Workbook_Open()
If MsgBox("Er worden 12 minuten toegevoegd in cel H50, is dit ok?", vbYesNo) = vbNo Then Exit Sub
If Weekday(Date) = vbWednesday Then Sheets("Sheet1").[H50].Value = [H50].Value + TimeSerial(0, 12, 0)
End Sub
Eventjes afwachten wat TS antwoordt.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: uren:minuten om de zeven dagen verhogen met 12min.
« Reactie #6 Gepost op: 27 mei 2020, 16:35:14 »
@ SoftAid, misschien zo.

meer iets in deze aard, maar dan werkend  ;)

Private Sub Workbook_Open()

If Weekday(Date) = vbFriday And [X1] = [X2] Then   
Exit Sub

ElseIf Weekday(Date) = vbFriday Then Sheets("Sheet1").[H50].Value = [H50].Value + TimeSerial(0, 12, 0)
         [X1] = [X2]
End If

End Sub

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: uren:minuten om de zeven dagen verhogen met 12min.
« Reactie #7 Gepost op: 27 mei 2020, 17:34:49 »
Het risico met dit soort updates bij het openen van een workbook is altijd groot aanwezig. Wat je het beste kan doen, is werken met een DateTime stamp ergens in een verborgen cel buiten beeld óf via een NamedRange-waarde (is ff wat lastiger te maken maar kan wel netter zijn). Wat je doet bij openen is het alleen op een vrijdag plaatsen van deze DateTime stamp en daar dan gelijk 7 dagen bij optellen. Bij het openen vergelijk je dan of de huidige datum kleiner is dan die opgeslagen datum. Zo ja, doe niets. Zo nee, plaats je een nieuwe DateTimestamp en dan kan je die 12 seconden erbij optellen in cel H50. Het voordeel van deze methode is dat indien er niet wordt opgeslagen, ook die DateTimestamp verloren gaat. Dan werkt die bij de volgende keer openen wel weer.

[EDIT] En ook déze kronkel gaat in dit geval niet op!!! Als je 3 weken met vakantie gaat en het document niet opent, zal je dus 3x 12 seconden achter gaan lopen. Wat dat betreft is m'n insteek met m'n formule niet eens zo gek (met een vast referentiepunt  ;))
______________________________

Groet, Leo

Offline dreesfr

  • Nieuw lid
  • Berichten: 2
  • Geslacht: Man
  • Oplossing.be
Re: uren:minuten om de zeven dagen verhogen met 12min.
« Reactie #8 Gepost op: 28 mei 2020, 09:48:00 »
Bedankt voor de info, ik ga iedere oplossing uitproberen en zien dewelke het best werkt. :thumbsup:

 


www.combell.com