Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Gewerkte uren in grafisch overzicht  (gelezen 5285 keer)

0 leden en 1 gast bekijken dit topic.

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Gewerkte uren in grafisch overzicht
« Gepost op: 05 september 2017, 14:32:19 »
Hallo Oplossers en helpers, meedenkers en invoelers ;)

Het is al weer even geleden dat ik mijn laatste case hier aan jullie heb voorgelegd, inmiddels heb ik daar flink mee gewerkt en uitgebouwd tot een voor mij werkbaar stukje excel gereedschap waar ik dagelijks heel veel profijt van bekom.

Nu ben ik dan toch gekomen tot een probleem waar ik niet goed weet hoe ik dit van de grond moet trekken. Uit mijn Boordcomputer van de auto komen na enige filtering werktijden die ik in een sheet een plek geef, alle overige uren zijn rusttijden. In bijgaand bestand heb ik een 2de sheet aangemaakt die de grafische uitbeelding van het rooster moet gaan voorstellen. Maar ik heb geen flauw benul hoe dit te realiseren.

Laat ik proberen uit te leggen hoe het rooster overzicht is opgebouwd:

In kolom F en G staat de Start(F) en Stop(G) tijd vermeld van de eerste dienst van die dag,
In kolom L en M staat de Start(L) en Stop(M) tijd vermeld van de tweede dienst van die dag,
In kolom R en S staat de Start(R) en Stop(S) tijd vermeld van de derde dienst van die dag.

Graag zou ik willen dat in het tabblad "Grafisch" bij de corresponderende datum cellen gekleurd worden onder de uren die vermeld zijn vanaf 00:00 t/m 24:00. Moeilijkheid zou kunnen zijn dat de Stoptijden soms al de 24:00 uur overschrijden maar toch op de eerdere datum vermeld worden.

Al met al voor mij reden om jullie hulp in te roepen, en mochten er vragen rijzen dan hoor ik deze graag dan probeer ik daar weer een zinnig antwoord op te geven...

In blijde afwachting,
Johan
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Gewerkte uren in grafisch overzicht
« Reactie #1 Gepost op: 05 september 2017, 15:50:45 »
Hallo Johan,

daar gaat men je hier graag mee helpen.
Bekijk alvast even dit topic van verleden week, waar ongeveer dezelfde vraag kwam, en al enkele bruikbare antwoorden.

Succes,

:) 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 Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Gewerkte uren in grafisch overzicht
« Reactie #2 Gepost op: 05 september 2017, 17:08:08 »
Hoi SoftAid,

Idd had ik al naar de door jouw aangehaalde topic gekeken, ik moet dat even laten bezinken want mijn tijdsaanduiding op dit moment in het grafische overzicht is niet een echte tijd maar wellicht moet ik dat dus even veranderen.... nullen en enen dus, dat ik daar niet op kwam ;)

Alvast dank voor je input.

Johan
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Gewerkte uren in grafisch overzicht
« Reactie #3 Gepost op: 05 september 2017, 19:47:24 »
Na de opmerking van SoftAid, waarvoor dank, geprobeerd er iets van te maken. Datgene wat er nu uit komt werkt wel maar is niet geheel de oplossing. om het overzicht te moeten laten werken dien ik nu de uren te laten doorlopen na 24:00 uur. ik zou graag willen dat in het overzicht de uren na 24:00 uur op de volgende dag worden weggeschreven..

Bijgevoegd mijn prutseltje
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 197
  • Geslacht: Man
  • Oplossing.be
Re: Gewerkte uren in grafisch overzicht
« Reactie #4 Gepost op: 06 september 2017, 08:17:03 »
Johan,

zou dit en oplossing kunnen zijn?

Je zou de kolommen CT:DN evt nog kunnen verbergen
|-|aije

ik gebruik Office 2016 Professional Plus

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Gewerkte uren in grafisch overzicht
« Reactie #5 Gepost op: 06 september 2017, 09:36:47 »
Hoi Haije,

Dat is een mogelijke oplossing, ikzelf heb inmiddels ook niet stil gelegen en heb 3 hulpkollommen gefabriceerd in het rooster zelf waarbij ik de overlap in tijd na 23:59 automatisch op de volgende dag wegschrijf. Die oplossing blijkt (lijkt) ook te werken. Ik zal later vandaag mijn werkje nogmaals plaatsen, dan kun je zien wat ik bedoel..

Johan
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Gewerkte uren in grafisch overzicht
« Reactie #6 Gepost op: 06 september 2017, 10:15:51 »
Hoi Allemaal,

Met wat hernieuwde inzichten van hier, waarvoor wederom mijn grote dank  ;D denk ik nu een aardige oplossing te hebben gevonden. Door de grootte van het bestand zal ik mij even moeten beperken tot een overzicht van 1 maand, maar dat dekt de lading wel.... Ik kan hier zeker verder mee en ik dank de helpers weer voor hun inzichten en input om mij weer op het goede spoor te krijgen.

Johan
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Gewerkte uren in grafisch overzicht
« Reactie #7 Gepost op: 06 september 2017, 19:50:57 »
Ik had mijn vraag als opgelost gezet, maar, meedenkers en oplossers ik zit toch nog wel met een probleempje. Het eerder meegestuurde testbestand is, zoals het al zegt een test bestand en niet het origineel.

De info gebruik ik om een "echte" grafisch roosteroverzicht te genereren. Nu wil het geval dat ik mijn zinnen had gezet om op 5 minuten nauwkeurig te monitoren ook gezien het feit dat ik pauzes en rusttijden terug wil zien in mijn overzicht. Dit heeft tot gevolg dat er dus 105120 cellen in gebruik zijn met formules en het bestand een astronomische grootte begint aan te nemen (6,71Mb) Het opstarten van dit bestand neemt nu al aanzienlijke tijd in beslag. en ik ben bang dat het alleen maar erger wordt als alles wat ik in het grafische overzicht wil bergen er ook daadwerkelijk in zit

Mijn vragen zijn dus: kan dit niet anders? Zou VBA een oplossing kunnen bieden? en wie kan mij daarmee op weg helpen?

Johan
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Gewerkte uren in grafisch overzicht
« Reactie #8 Gepost op: 06 september 2017, 20:00:39 »
Hallo Johan,

gezien je tijden vast staan, en dus ook de verwerking ervan, zou je kunnen opteren om de formule voor "de volgende dag(en)" te laten genereren door een Macro (On_Change of On_Click), die dan ook gelijktijdig de oude data (de vorige dag) gaat opslaan als data, zonder formules.
Dat opslaan als data zonder formules kan heel eenvoudig, door de rij(en) te kopiëren, en op dezelfde plaats terug te plakken (Plakken Speciaal, Waarden).
Op die manier behoud je enkel data en enkele lijnen met formules...

Just my 2 cents...  :)

:) 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 Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Gewerkte uren in grafisch overzicht
« Reactie #9 Gepost op: 06 september 2017, 20:19:01 »
Hoi SoftAid,

Wat je precies bedoeld met  het vast staan van mijn tijden begrijp ik niet helemaal. in het testbestand had ik inderdaad mijn werktijden gekopieerd met plakken speciaal, maar in het origineel worden deze gegevens gegenereerd uit de bestanden die ik uit de boordcomputer van de auto haal. Helaas kan ik die gegevens hier niet toevoegen vanwege privacy en te pas en te onpas benoemen van bedrijfs gegevens..

Over de rest van je betoog moet ik even nadenken, maar nu eerst nog even de avondshift werken ;)

Alvast weer dank voor je input

Johan
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Gewerkte uren in grafisch overzicht
« Reactie #10 Gepost op: 06 september 2017, 20:49:47 »
Wat je precies bedoeld met  het vast staan van mijn tijden begrijp ik niet helemaal.
Wel je stelt dat de honderd duizenden formules je bestand te zwaar maken.
Op dit ogenblik plaats je op voorhand al de formules in de betreffende cellen, en na gebruik (inbrengen van tijden, en de formules hun werk hebben gedaan, dan heb je enkel nog het resultaat van de formules nodig.
Daarom een Macro.
Je kan hiermee automatisch de formules vervangen door de waarde die de formule genereerde.

Bovendien kan je de formules ook pas aanmaken als ze nodig zijn.
Simplistisch voorgesteld:
ALS(A3 > ""; Formule: C3= B3-A3;"")
Je kan dit combineren met het wissen van de formules in een rij door deze rij te kopiëren en met PlakkenSpeciaal, Waarden, de formules uit de voorgaande rij te halen.
De rij die formules moet krijgen bepaal je met Vert.Zoeken.

:) 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 Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Gewerkte uren in grafisch overzicht
« Reactie #11 Gepost op: 07 september 2017, 09:58:13 »
Hoi SoftAid,

Ik zie wat je bedoeld, dat is al heel wat ;)

Ik zie inderdaad ook als ik de onnodige formules verwijder door de waarden van de cellen terug te plakken de bestandsgrootte aanzienlijk afneemt.

Ik ga komende dagen eens stoeien met het opnemen van een macro om de waarden plakken te automatiseren. mijn werkweek is weer begonnen dus wanneer ik hier op terug komen zal, niet voor zondag avond..

Tot zo ver weer mijn hartelijke dank voor je input.

Johan.
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Gewerkte uren in grafisch overzicht
« Reactie #12 Gepost op: 07 september 2017, 21:28:38 »
Hallo Johan,

een voorbeeld om de enen en nullen op te vragen, hier voor rij 3 in blad "Grafisch" via een macro:


Sub SoftAid_Stuff()
   
   A = 3                                              'verhoog de waarde van A om volgende rij te tonen in grafisch.
   For x = 2 To 97  '= 96 kolommen
   y = x + 1  'Rij
       
                 If Range("Rooster!C" & A).Value < Cells(2, y).Value And Range("Rooster!D" & A).Value >= Cells(2, x).Value Then
                 Cells(A, x).Value = "1"
             ElseIf Range("Rooster!I" & A).Value < Cells(2, y).Value And Range("Rooster!J" & A).Value >= Cells(2, x).Value Then
             Cells(A, x).Value = "1"
             ElseIf Range("Rooster!O" & A).Value < Cells(2, y).Value And Range("Rooster!P" & A).Value >= Cells(2, x).Value Then
             Cells(A, x).Value = "1"
             ElseIf Range("Rooster!U" & A).Value < Cells(2, y).Value And Range("Rooster!V" & A).Value >= Cells(2, x).Value Then
             Cells(A, x).Value = "1"
             Else: Cells(A, x).Value = "0"
                 End If
   Next x
  End Sub

Op deze manier staat er geen code in je werkblad zelf. Je "echt" bestand zal dan ook een heel pak lichter worden.

Die code dient voor 1 dag (rij) en die hergebruik je telkens opnieuw door ze in een loop (A) te zetten voor de volgende dag.
Voor de volgende rij moet er natuurlijk weer een "regeltje" gemaakt worden, om de volgende regel te kiezen.
Nu staat er enkel  "A = 3" waardoor de 3de rij gekozen wordt.

Ik probeer er morgen aan verder te werken, maar wie zich geroepen voelt, graag die aanpassing voor "volgende dag(en)".

PS: (Ik heb in het blad "rooster" 1 lege lijn toegevoegd bovenaan, om het me wat gemakkelijker te maken  ;))

:) 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 !

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Gewerkte uren in grafisch overzicht
« Reactie #13 Gepost op: 07 september 2017, 23:16:40 »
Dag Johan,

Ik ben er even stil van geworden, van het nadenken.
Probleem is dat jou werkblad "Rooster" niet rij per rij wordt ingevuld, maar door Kopiëren en Plakken uit een ander programma.

Mogelijk zal je één "grafisch" blad per jaar maken. Dan kunnen we een loop "A" gewoon van 3 tot 368 laten lopen.
Maar dit vraagt toch heel wat tijd.

De 2 de mogelijkheid is de macro te starten via een knop in je werkblad (in je lint eventueel), en hem te laten vragen tot welke rij jij wilt dat hij in "Grafisch" bijwerkt. Dat is heel eenvoudig te realiseren.

Nu ga ik slapen  ;D

:) 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 Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Gewerkte uren in grafisch overzicht
« Reactie #14 Gepost op: 08 september 2017, 10:35:25 »
Hoi SoftAid,

Ben even met jouw  werkje aan de slag gegaan, en het werkt wel waren het niet dat hij de datumnotaie sloopt en overal in kolom A als datum za 0-1-1900 neer zet....

Die loop is inderdaad geen strak idee merk ik nu :P pc vertraagd en ik kan gaan douchen....

Is het geen idee om een hulpkolom in te zetten  die aangeeft of er in "rooster" op een datum een dienst is ingevuld?

In mijn originele rooster komen de gegevens uit hetzelfde bestand vandaan, op de dienstnummers na, die komen via een zoekfunctie ergens anders vandaan.

Johan
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

 


www.combell.com