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

Tijdregistratie bij verhoging temperatuur

Status
Niet open voor verdere reacties.

Georgyboy

Gebruiker
Lid geworden
6 jan 2007
Berichten
883
Besturingssysteem
Windows 11
Office versie
365
Goedemorgen,

In een tabel is er een registratie van tijd en temperatuur.
kunnen we de tijd meten vanaf verhoging van de temperatuur?

In de tabel is er een totaaltijd via
Code:
'=TIJD(0;SUBSTITUEREN(AANTALLEN.ALS(B:B;J4);".";",");0)

ook is er een andere berekening via
Code:
 =MAX(ALS(B:B=J4;(A:A))) - =MIN(ALS(B:B=J4;(A:A)))

  • De 2 tijden verschillen iets
  • de aanvangstijd bij opstart is niet juist, dit kan pas vanaf de verhoging van de temperatuur

Is dit mogelijk via een formule ?
Alvast bedankt!
Groeten,
Georgyboy
 

Bijlagen

  • Tijdregistratie vanaf verhoging Temperatuur.xlsx
    41,1 KB · Weergaven: 14
Dit behoeft nog wat extra uitleg voor mij.

Wat verwacht je als uitkomst? (en waarom?)
Welke tijden zijn juist? En welke niet (en waarom?)

Welke Excel-versie gebruik je?
 
draaitabel ?
 

Bijlagen

  • Tijdregistratie vanaf verhoging Temperatuur.xlsx
    59,9 KB · Weergaven: 15
Dankjewel AlexCEL,

Welke tijden zijn juist? En welke niet (en waarom?)

Juiste tijden program 9 en 10 omdat de temperatuur dan juist zit
Program 12 is niet juist omdat de temperatuur pas goed is na stijging temperatuur

27-7-2021 05:45 9 13,9 107
Code:
27-7-2021 05:46	9	24,25	107
27-7-2021 05:47 9 40,15 107


Program Start Stop TIJD (Stop - Start) Totaal Tijd
12 27-7-2021 00:00 27-7-2021 05:44 5:43 5:45 (niet juist omwille van foute temperatuur (té laag !) lijn nog niet opgestart
9 27-7-2021 05:45 27-7-2021 10:43 4:58 4:59
10 27-7-2021 10:44 27-7-2021 12:16 1:32 1:33

Eigenlijk zou de juiste tijd vanaf de kortste benadering temperatuur stijging temperatuur tot 106,65 tot gevraagde temperatuur 107
Code:
27-7-2021 06:07	9	106,65	107


Welke Excel-versie gebruik je? 2019
 
"Juist is A" omdat het juist is... Appels zijn lekker omdat appels lekker zijn...
Dit zegt me niets dus. Je herhaalt bericht #1 in iets andere woorden.

Mijn vraag: WAAROM is het juist of niet.

En lees deze zin nog eens door...
Eigenlijk zou de juiste tijd vanaf de kortste benadering temperatuur stijging temperatuur tot 106,65 tot gevraagde temperatuur 107
????

Voor jou misschien heel logisch, maar voor mij is het nog abracabra.

Probeer het nog eens simpel uit te leggen. Wat voor tijd verwacht je bij programma 12 en WAAROM?
 
zo?

Je zou in principe ook nog een bandbreedte kunnen definieren, bv. je streeftemperatuur plusminus 10°, maar dan zou hij mogelijks er een paar keer kunnen uitflikkeren tijdens een programma, want ik zie daar een aantal gekke pieken in het verloop. (openen van de ovendeur?)
 

Bijlagen

  • Tijdregistratie vanaf verhoging Temperatuur.xlsx
    124,5 KB · Weergaven: 13
Laatst bewerkt:
@ Cow18
Goed voorstel, kan ik zeker mee verder :)
inderdaad temperatuurverschillen (Temperatuur product(en), hoeveelheid, stoom, afzuiging, ventilatie, .........), deuren boven de denk 80°C kunnen we gelukkig niet openen wegens veiligheid.

@ alexCEL

Sorry voor "abracabra"

Het is een zeer grote oven (spiraaloven waar producten aan de ene kant onderkant in gaan dan ronddraaiend in de oven en op het einde bovenaan uit gaan)
bij een programma kunnen we de temperatuur, tijd, vocht, ventilatie instellen.
de dag ervoor reinigen we het toestel en leggen we dit af, de dag zelf starten we het toestel op en kiezen een programma vb 12
Programma 12 staat ingesteld op 170°C (stp. temperature)
wanneer de Act. temperature +/- 170 de stp. temperature 170 bereikt dan kunnen we starten
Verder zijn er soms temperatuurschommelingen waar we geen rekening moeten mee houden daar dit ook in de tijd is ingerekend.

Dus rekenen van kortste benadering gevraagde temperatuur tot einde tijd programma nummer.
Bij volgend programma ook weer de gevraagde temperatuur tot einde tijd programma nummer. (opwarmtijd of afkoeltijd in andere gevallen)


Datum / Uhrzeit = tijd van het toestel
Program = het programmanummer
Act. temperature = de actuele temperatuur in het toestel
stp. temperature = De gevraagde temperatuur


Voor Prgram 12 zou ik starten vanaf
Code:
27-7-2021 06:07	9	106,65	107

en niet vanaf
HTML:
27-7-2021 05:46	9	24,25	107

Sorry voor de verwarring van mij :rolleyes:

Groeten,
Georges
 

Bijlagen

  • Tijdregistratie vanaf verhoging Temperatuur.xlsx
    58,3 KB · Weergaven: 12
Het spijt me, ik begrijp niet wat je wilt. Ik heb nog steeds geen antwoord op WAAROM je vanaf een bepaalde rij wilt starten.

Hopelijk kunnen anderen je helpen, ik moet helaas afhaken.
 
@Alex,
blijkbaar als je in de B-kolom een ander programma-nummer kiest en de actuele temperatuur (kolom C) komt in de buurt van de gewenste temperatuur (kolom D) (in mijn geval binnen de 5°), dan start de tijd tot aan het einde van dat programma.
Nu weet ik niet of er vaker een bepaald programma binnen de tabel herhaald wordt, daarom maakte ik die kolom F (periode), anders is die overbodig.
 

Bijlagen

  • Tijdregistratie vanaf verhoging Temperatuur (1).xlsx
    63,7 KB · Weergaven: 9
Laatst bewerkt:
Dankjewel AlexCEL om te willen helpen :thumb:
HTML:
Het spijt me, ik begrijp niet wat je wilt. Ik heb nog steeds geen antwoord op WAAROM je vanaf een bepaalde rij wilt starten.
De oven moet éérst op temperatuur zijn om te kunnen starten. Vandaar kunnen we pas de tijd rekenen vanaf benadering gevraagde temperatuur.

Dankjewel Cow18 voor de mooie draaitabel en formules, weer van bijgeleerd :thumb:

HTML:
=SOM(F1;[@Program]<>B1)
HTML:
=--OF(EN(E5;[@Program]=B5);ABS([@[Stp. temperature]]-[@[Act. temperature]])<5)

HTML:
Nu weet ik niet of er vaker een bepaald programma binnen de tabel herhaald wordt
Ja dit kan afhankelijk van bestellingen en producten, daarmee is die bijkomende kolom nuttig.

Weet nu niet of we dit ook kunnen automatiseren via een VBA code?
We kunnen inloggen op het toestel en een rapport in Excel trekken van de vorige dagen of op de dag zelf een tussentijds rapport, iedere dag is er een nieuw rapport per 24 uur.
Stel we downloaden dit Excel rapport en via een code krijgen we zo´n rapport met draaitabel kan dit of is dit te ver gezocht?

Indien dit niet mogelijk of te complex is, dan mag deze vraag worden afgesloten als opgelost.

Alvast bedankt
Groeten,
Georgyboy
 
Tuurlijk kan dat met VBA, vrij gemakkelijk zelfs, maar het kan ook met PowerQuery, meer Alexcel's specialiteit dan de mijne.

Voor de volledigheid, als je dat rapport uit die oven krijgt, is het dan een txt, een csv of toch al direct een xlsx of nog iets anders ?
Indien geen xlsx, dan is het misschien gemakkelijker voor ons om zo'n origineel te krijgen.

Met VBA kan het zelfs zonder draaitabel en kan de output gemakkelijker naar je wensen gemaakt worden.

Als de oven tijdens een bepaald programma op temperatuur gekomen is (plusminus 5°) en later wijkt die temp bv. langer dan 5 minuten meer dan die 5° af, mag dat ook beschouwd worden als het einde van het lopende programma/periode ?
Ik veronderstel dat zoiets gebeurt op het einde van de shift tijdens het leegdraaien van de oven.
 
Laatst bewerkt:
Dank voor het antwoord,

Code:
Voor de volledigheid, als je dat rapport uit die oven krijgt, is het dan een txt, een csv of toch al direct een xlsx of nog iets anders ?
Indien geen xlsx, dan is het misschien gemakkelijker voor ons om zo'n origineel te krijgen.

Denk dat het direct in xlsx is maar twijfel of het cvs bestand is (is zeker 1 van deze 2) bekijk dit morgen na

Ja ik denk ook dat powerquery snel gegevens kan toveren, gebruik dit soms met beperkte kennis.

Code:
Als de oven tijdens een bepaald programma op temperatuur gekomen is (plusminus 5°) en later wijkt die temp bv. langer dan 5 minuten meer dan die 5° af, mag dat ook beschouwd worden als het einde van het lopende programma/periode ?
Ik veronderstel dat zoiets gebeurt op het einde van de shift tijdens het leegdraaien van de oven.

De temperatuur moet behouden worden zolang er product in zit, de tijd per programma is max. 30 minuten instelbaar.
eens het product eruit is dan kunnen we veranderen van programma of indien gedaan de oven afleggen waar dan de temperatuur daalt.
 
zoiets met de groene knop en daarmee zoek je de gewenste xlsx-file.
 

Bijlagen

  • Tijdregistratie vanaf verhoging Temperatuur (1) (1).xlsm
    160,2 KB · Weergaven: 14
Super bedankt Cow18, knap :thumb:

Bedankt voor je info in de code is heel leerrijk :)

Een en ander geprobeerd, via het originele CVS bestand lukte het nog niet.
Deel van de gegevens gekopieerd naar "test 2 file" Excel en dan de code uitvoeren lukte wel in "Tijdregistratie vanaf verhoging temperatuur"
In bijlage het verloop van de gegevens naar een CVS file.

Best stuur ik misschien een originele file als je het goed vind waar geen kolommen zijn verwijderd en ook niet 1 rij (de 2° rij)

Alvast bedankt!
Groeten,
Georgyboy
 

Bijlagen

  • Test 2 file.xlsx
    32,1 KB · Weergaven: 8
  • Verloop.docx
    78,6 KB · Weergaven: 12
  • Tijdregistratie vanaf verhoging Temperatuur (1) (1) (2).xlsm
    173,9 KB · Weergaven: 8
inderdaad, een originele csv-file zou handiger zijn ivm. de omzetting van die datum+tijd.
Die extra kolommen mogen er gerust in blijven, die laat VBA wel vallen.

Hierbij een nieuwe versie, enkel wat esthetische aanpassingen.
 

Bijlagen

  • Tijdregistratie vanaf verhoging Temperatuur (1) (1).xlsm
    198,4 KB · Weergaven: 10
Laatst bewerkt:
Goedemorgen,

in bijlage een originele CVS file, die dagelijks word gemaakt

Groeten,
Georgyboy
 

Bijlagen

  • Alco_DataLog_2_8_2021 (1).csv
    46,4 KB · Weergaven: 15
zoiets ?
Bovenin de module2 moet je eventueel je directory voor de CSV-files aanpassen.
 

Bijlagen

  • Tijdregistratie vanaf verhoging Temperatuur (2).xlsm
    248,2 KB · Weergaven: 13
Laatst bewerkt:
Super bedankt daar heb je véél tijd en energie ingestoken,

Moet zware toebak zijn!
Ziet er al "beregoed" uit :)

loopt nog wat vast op een paar denk voor jouw kleine aanpassingen


In
HTML:
Private Sub Verwerken()
loop het hier vast
Code:
Sheets("tijd Registratie").PivotTables("Draaitabel1").PivotFields("temperatuur ok").CurrentPage = "1"

hier blijft de tijd vast per regel


Datum / Uhrzeit Error Automatic Recipe No Act. temperature Stp. temperature Fan speed Dwell time extra1 extra2 extra3 temperatuur ok periode Labels
03/08/2021 00:00:13 1 0 12 15,8 170 100 9 0 0 0 0 1 12
03/08/2021 00:00:13 1 0 12 15,8 170 100 9 0 0 0 0 1
03/08/2021 00:00:13 1 0 12 15,8 170 100 9 0 0 0 0 1
03/08/2021 00:00:13 1 0 12 15,8 170 100 9 0 0 0 0 1
03/08/2021 00:00:13 1 0 12 15,8 170 100 9 0 0 0 0 1
03/08/2021 00:00:13 1 0 12 15,8 170 100 9 0 0 0 0 1
03/08/2021 00:00:13 1 0 12 15,7 170 100 9 0 0 0 0 1
03/08/2021 00:00:13 1 0 12 15,7 170 100 9 0 0 0 0 1
03/08/2021 00:00:13 1 0 12 15,7 170 100 9 0 0 0 0 1


CVS Bestand

Datum / Uhrzeit Error Automatic Recipe No Act. temperature Stp. temperature Fan speed Dwell time

03.08.2021 00:00:13 1 0 12 15,8 170 100 9 0 0 0
03.08.2021 00:01:12 1 0 12 15,8 170 100 9 0 0 0
03.08.2021 00:02:12 1 0 12 15,75 170 100 9 0 0 0
03.08.2021 00:03:12 1 0 12 15,75 170 100 9 0 0 0
03.08.2021 00:04:12 1 0 12 15,75 170 100 9 0 0 0
03.08.2021 00:05:12 1 0 12 15,75 170 100 9 0 0 0
03.08.2021 00:06:12 1 0 12 15,7 170 100 9 0 0 0
03.08.2021 00:07:13 1 0 12 15,7 170 100 9 0 0 0
03.08.2021 00:08:13 1 0 12 15,7 170 100 9 0 0 0
03.08.2021 00:09:13 1 0 12 15,65 170 100 9 0 0 0
03.08.2021 00:10:13 1 0 12 15,65 170 100 9 0 0 0
03.08.2021 00:11:13 1 0 12 15,65 170 100 9 0 0 0
03.08.2021 00:12:13 1 0 12 15,6 170 100 9 0 0 0

Nogmaals super bedankt hé !
groeten,
Georgyboy
 

Bijlagen

  • Alco_DataLog_3_8_2021.csv
    70,3 KB · Weergaven: 16
ik ga er van uit dat er met de draaitabel iets mis gegaan is, dus een oplossing zonder draaitabel.

PS. Wanneer de oventemperatuur onder de 80°C komt, dan betekent dat ook einde van "temp OK".
Daarom stopt het laatste programma op 17:36.
Misschien wil je zelf al vroeger stoppen ?
Verander anders de waarden in Q2:Q3
 

Bijlagen

  • Tijdregistratie vanaf verhoging Temperatuur (2).xlsm
    355 KB · Weergaven: 21
Laatst bewerkt:
Fantastisch knap gedaan !

Da´s "echt nie normaal" knap hoe dit werkt :thumb:

Je bent een Excel VBA genie!

Dankjewel voor je tijd, inspanning, kennis en info!

daar kan ik nog jaren van leren, ben er nog lang zoet mee :):thumb:

Groeten,
Georgyboy
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan