Goedenamiddag allen,

Voor mijn huidig groot project, waar ik reeds enkele weken mee bezig ben, heb ik een klein excel-bestandje geautomatiseerd waarbij ik via een “dashboard’ overzicht kan houden van alle handelingen (processen met diverse programma’s) die ik moet uitvoeren.
Per handeling heb ik een apart werkblad waarop alle uit te voeren taken staan voor dat specifieke programma. De lijsten worden via VBA aangepast vanuit het “dashboard” waar ik voor elk werkblad een “top 5”-tabelletje (geen echte tabel) heb gemaakt zodat ik voor elke handeling de eerste 5 taken gecentraliseerd kan opvolgen en “doorsturen” naar de volgende handeling.

De laatste 4 handelingen hebben elk een specifieke verwerkingstijd die op elk betreffend werkblad berekend wordt. Elke taak heeft één of meerdere onderdelen en elk onderdeel heeft een vaste verwerkingstijd. Op elk werkblad kan ik dan voor elke taak aangeven of ik deze al dan niet wens op te nemen in de volgende ‘batch’-verwerking. De verwerkingstijd wordt per taak berekend en indien de taak opgenomen moet worden, wordt deze in een extra kolom vermeld.
Het totaal van die extra kolom wordt dan opgeteld bij het opgegeven ‘start’-tijdstip en het resultaat daarvan wordt weergegeven op het “dashboard”.

Soms moet ik een bepaald programma eventjes pauzeren (verdere uitleg in mijn bijgevoegd voorbeeld-bestand) maar dan klopt natuurlijk mijn “eind”-tijdstip niet meer.
Daarom zou ik voor elk van deze handelingen een ‘aftelklok’ (heb er nog eentje uit een vorig project) willen integreren bij de berekeningen op elk bijhorend werkblad met 2 extra knoppen “start” en “pauze”
zodat de “eind”-tijd automatisch aangepast wordt ingeval ik heb moeten pauzeren.

Echter heb ik totaal geen idee hoe ik dit moet aanpakken…

In bijgevoegd voorbeeld-bestand heb ik meer informatie geplaatst alsook de relevante gegevens mbt deze vraag en de code van de ‘aftelklok’ uit mijn vorig project toegevoegd aan een module.
Dit bijgevoegd bestandje is dus maar een minuscuul deel van het echte bestand aangezien het echte bestand strippen/aanpassen te veel tijd in beslag zou nemen (gevoelige info die ook in de code zelf verwerkt zit).

Alvast mijn oprechte dank voor elke vorm van tips/hulp/suggesties en meedenken.


Groetjes,
BlackDevil aka Bieke

Ziet er goed uit.
Nu moet je nog wel de stop en start tijden ergens opslaan anders weet je nog niet hoelang de pauze is geweest.

Hey Bieke,

Zou het kunnen dat mijn speciale antennes mij het juiste signaal hebben gegeven dat het veel te ver wordt gezocht...
Een begintijd is nu eenmaal een begintijd, dus daar zou ik zeker afblijven. En verder zie ik geen enkele reden waarom een klok zou nodig zijn.
In je voorbeeldbestand heb ik 2 macro's toegevoegd: om te beginnen met pauzeren, en om het pauzeren te stoppen, elk met één regel code.
En op je werkblad zijn 2 extra cellen in gebruik genomen.
Ik snap wel dat het in het echt mogelijk complexer zal zijn, maar misschien toch eens kijken of dit als idee niet kan volstaan?
Knoppen heb ik er niet bijgezet want mogelijk zijn die ook overbodig: een change-event op J19 zou m.i. namelijk ook kunnen.

Groetjes,
Molly

Ik heb me er een beetje in verdiept en ben daarbij uit gegaan van een iets ander standpunt.In plaats van een timer te starten en te stoppen kun je natuurlijk ook in een de pauze in cel aparte cel te zetten.Dan heb je niets te maken met 4 timers die je moet starten of stoppen In plaats daarvan zet je dmv dubbel klikken een start tijd en stop tijd in een cel.Door deze tijden van elkaar af te trekken heb je een totale pauze tijd en deze kun je dus weer optellen bij de oorspronkelijke eind tijd.
Zie bijlage rijen 40-45

maar 'half' gelezen....

Dat heb je met die lange vragen, dan lees je veel te snel en over van alles heen.

Fijn om te vernemen
Dit was er dus eentje dat snel kon afgevinkt worden

Groetjes,
Molly

***UPDATE***

Omdat een aftelklok/timer veel te storend was door de constante screen-updating ben ik mij wat verder gaan verdiepen in de materie.
Ik had ondertussen de bediening van mijn 12 (4 handelingen x 3 knoppen) knoppen reeds netjes in één procedure kunnen plaatsen door gebruik te maken van de "Application.Caller" wat een pak efficiënter werkt dan 12 afzonderlijke procedures met allemaal dezelfde berekeningen en enkel maar een verschillend werkblad  .

Om automatisch mijn eind-formule-resultaat op het "dashboard" te laten wijzigen in "is klaar met verwerken" zodra het eind-tijdstip bereikt is ben ik me wat gaan verdiepen in de "Application.OnTime"...

Mits toevoeging van 1 cel per werkblad én een kleine aanpassing in mijn eind-formule heb ik via de combinatie van "Application.Caller" en "Application.OnTime" volgende drie procedures opgebouwd (de namen van de werkbladen en knoppen zijn wel aangepast voor de plaatsing hier) :

Sub bediening1()
  Dim ws As Worksheet, rij As Long
  Select Case Left(Application.Caller, 2)
    Case "H1"
      Set ws = Sheets("Handeling1")
    Case "H2"
      Set ws = Sheets("Handeling2")
    Case "H3"
      Set ws = Sheets("Handeling3")
    Case "H4"
      Set ws = Sheets("Handeling4")
  End Select
  With ws
    Select Case Left(Application.Caller, 2)
      Case "H4"
        Select Case Mid(Application.Caller, 3, 1)
          Case "s"
            If .Cells(4, 14) <> "pauze" Then
              .Cells(4, 14) = "lopend": .Cells(4, 16) = "": .Cells(5, 14) = Now: .Cells(6, 14) = "": .Cells(7, 14) = ""
              eind_ontime_starten
            End If
          Case "p"
            If .Cells(4, 14) <> "pauze" Then
              .Cells(4, 14) = "pauze": .Cells(6, 14) = Now
            End If
          Case "h"
            If .Cells(4, 14) = "pauze" Then
              .Cells(4, 14) = "lopend": .Cells(7, 14) = Now: .Cells(4, 16) = .Cells(4, 16) + .Cells(7, 14) - .Cells(6, 14)
            End If
        End Select
      Case Else
        Select Case Mid(Application.Caller, 3, 1)
          Case "s"
            If .Cells(4, 16) <> "pauze" Then
              .Cells(4, 16) = "lopend": .Cells(4, 18) = "": .Cells(5, 16) = Now: .Cells(6, 16) = "": .Cells(7, 16) = ""
              eind_ontime_starten
            End If
          Case "p"
            If .Cells(4, 16) <> "pauze" Then
              .Cells(4, 16) = "pauze": .Cells(6, 16) = Now
            End If
          Case "h"
            If .Cells(4, 16) = "pauze" Then
              .Cells(4, 16) = "lopend": .Cells(7, 16) = Now: .Cells(4, 18) = .Cells(4, 18) + .Cells(7, 16) - .Cells(6, 16)
            End If
        End Select
    End Select
  End With
End Sub
'-------------------------------------------------------------------------------------------
Sub eind_ontime_starten()
  Dim begin As Variant
  Select Case Application.Caller
    Case "H1start"
      begin = Sheets("Handeling1").Cells(8, 16)
    Case "H2start"
      begin = Sheets("Handeling2").Cells(8, 16)
    Case "H3start"
      begin = Sheets("Handeling3").Cells(8, 16)
    Case "H4start"
      begin = Sheets("Handeling4").Cells(8, 14)
  End Select
  Application.OnTime CDate(begin), "vordering"
End Sub
'-------------------------------------------------------------------------------------------------------------
Sub vordering()
  If Sheets("Handeling1").Cells(8, 16) = Now Then Sheets("Handeling1").Cells(2, 23) = "klaar"
  If Sheets("Handeling2").Cells(8, 16) = Now Then Sheets("Handeling2").Cells(2, 23) = "klaar"
  If Sheets("Handeling3").Cells(8, 16) = Now Then Sheets("Handeling3").Cells(2, 23) = "klaar"
  If Sheets("Handeling4").Cells(8, 14) = Now Then Sheets("Handeling4").Cells(2, 23) = "klaar"
End Sub

de formules zijn nu aangepast als volgt :

voor de eerste 3 handelingen :
=ALS(AANTAL.ALS(I2:I30;"j")>0;ALS(P4="lopend";ALS(W2<>"klaar";P8;"is klaar met verwerken");"is gepauzeerd");"is inactief")

voor de 4e handeling :
=ALS(AANTAL.ALS(E2:E30;"j")>0;ALS(N4="lopend";ALS(W2<>"klaar";N8;"is klaar met verwerken");"is gepauzeerd");"is inactief")

Ik heb het nog niet volledig uitgebreid kunnen testen maar ingeval ik toch 'bugs' of 'valkuilen' zou tegenkomen dan laat ik het hier weten.

groetjes,
Bieke