Opgelost Recepten + Halffabricaten berekend

Dit topic is als opgelost gemarkeerd

Georgyboy

Terugkerende gebruiker
Lid geworden
6 jan 2007
Berichten
1.003
Besturingssysteem
Windows 11
Office versie
365
Goedemorgen,


Heb in het bestand goed werkende codes met dank aan Enigmasmurf voor de goede opzet "Recepten"
In tabblad "Recepten" Kolom A:F de recepten Kolom "A" RecNummer en kolom "F" ReceptuurNr (Halffabrikaat).


RecNummer Regel GrondStof NaamRek HoeveelHeid ReceptuurNr
109 3 0 54 1226
109 4 0 44 1283
109 5 154000 PZCTRCPN M-6329 1 0
109 6 85507000 PRPRQKR VLPZQBRRR 1.3 L 1 0
109 7 85515000 PRJQTTRMQX 0,55 0


Met Macro "Berekenen"
109 BZRZQAZ GYRPS ( 116.86kg)
154000 PZCTRCPN M-6329 1,000 kg 0,99%
85507000 PRPRQKR VLPZQBRRR 1.3 L 1,000 kg 0,99%
85515000 PRJQTTRMQX 0,550 kg 0,55%
14503000 VRRKZN RZZPJZS 31,034 kg 30,87%
85422000 GYRPSKRUQAZN MP 0,621 kg 0,62%
72042100 PRPRQKR GZVLRMA STRZPZN crt=4x2.5Kg 9,310 kg 9,26%
72011100 RJUQNSCPQJVZN ct=10kg(4x2.5kg) 9,310 kg 9,26%
85034000 CPQ MZRT PRPTZCTQPN TPTRL 0,310 kg 0,31%
84514000 KPPLZRRAPLQZ 3,103 kg 3,09%
85019000 PRPRQKRPPZAZR 0,310 kg 0,31%
314000 WRTZR 18,601 kg 18,50%
85318000 TPMRTZNCPNCZNTRRRT 28/30 20 KG 0,264 kg 0,26%
84516000 PRPVPB PLRNTRRRAQGZ PLQZ 0,796 kg 0,79%
85317000 TPMRTZNPULP 15,943 kg 15,86%
85173000 KRLPSPPNA 0,400 kg 0,40%
85006000 PVZNKRUQAZN AZLQCRTZSSZ 25 kg/zak 0,264 kg 0,26%
85332000 GLUTRCLZRN 0,079 kg 0,08%
154000 PZCTRCPN M-6329 1,197 kg 1,19%
85305000 KZTCPUP PZQNZ 10.2 LQTZR 3,987 kg 3,97%
85351000 KRQSTRLSUQKZR 0,264 kg 0,26%
85507000 PRPRQKR VLPZQBRRR 1.3 L 0,079 kg 0,08%
77000 UQZNPPZAZR ZGYPTZ STRNARRRA 0,132 kg 0,13%
85070000 RJUQN GZSTPPPAZ 1,993 kg 1,98%
Totaal : 100,547 kg 100,00%

In Tabblad "Prijs" Knop Kostprijs kan de kostprijs worden berekend

In Tabblad "Iart" Is er de inkoopprijs in kolom C en de verrekenprijs in kolom G;
Reden als het een "S" (Stuk) artikel is dan is de prijs =ALS(E2="S";C2/D2;C2) Prijs / portieGewicht indien Stuk artikel.

In tabblad "RecKop" hebben we in kolom "B" het ReceptNummer en in Kolom "E" het productie verlies per receptuur.

Zo om een juiste kostprijs te kunnen berekenen moeten we rekening houden met het productieverlies per receptuur.
Zowel op de halffabricaten als het eindproduct.

Waarschijnlijk een moeilijke? of net een uitdaging om dit te kunnen oplossen?
PS Via onze ERP lukt dit wel, maar nu we ze ver zijn zou het leuk zijn dat we dit hier verder kunnen uitbreiden.

Alvast bedankt!
 

Bijlagen

Waarom gebruik je geen dynamische tabellen ?
Waarom gebruik je niet het ingebouwde autofilter ?
Of desnoods autofilter in VBA ?
 
Weet niet of dit zo zou kunnen?
Omdat dit eigenlijk per receptuur dient berekend te worden.
Hier op de halffabricaten géén verlies, wel op de eindreceptuur 12% (zie tabblad RecKop, kolom B 109 = 12 in kolom Productieverlies)

Vb recNummer 109

RecNummer Regel GrondStof NaamRek HoeveelHeid ReceptuurNr
109 3 0 54 1226
109 4 0 44 1283
109 5 154000 PZCTRCPN M-6329 1 0
109 6 85507000 PRPRQKR VLPZQBRRR 1.3 L 1 0
109 7 85515000 PRJQTTRMQX 0,55 0






Recnummer 1226
Artikel Omschrijving Gewicht % Prijs Kost
14503000 VRRKZN RZZPJZS 100,000 kg 57,47% € 4,42 € 2,54
85422000 GYRPSKRUQAZN MP 2,000 kg 1,15% € 13,22 € 0,15
72042100 PRPRQKR GZVLRMA STRZPZN crt=4x2.5Kg 30,000 kg 17,24% € 1,70 € 0,29
72011100 RJUQNSCPQJVZN ct=10kg(4x2.5kg) 30,000 kg 17,24% € 1,00 € 0,17
85034000 CPQ MZRT PRPTZCTQPN TPTRL 1,000 kg 0,57% € 8,77 € 0,05
84514000 KPPLZRRAPLQZ 10,000 kg 5,75% € 2,01 € 0,12
85019000 PRPRQKRPPZAZR 1,000 kg 0,57% € 7,14 € 0,04
Totaal: 174,000 kg 100,00% € 3,36

Kost 3.36 verlies 0% = 3.36€

RecNummer 1283
Artikel Omschrijving Gewicht % Prijs Kost
314000 WRTZR 42,274 kg 42,27% € 0,05 € 0,02
85318000 TPMRTZNCPNCZNTRRRT 28/30 20 KG 0,600 kg 0,60% € 1,55 € 0,01
84516000 PRPVPB PLRNTRRRAQGZ PLQZ 1,810 kg 1,81% € 3,53 € 0,06
85317000 TPMRTZNPULP 36,234 kg 36,23% € 1,00 € 0,36
85173000 KRLPSPPNA 0,910 kg 0,91% € 19,87 € 0,18
85006000 PVZNKRUQAZN AZLQCRTZSSZ 25 kg/zak 0,600 kg 0,60% € 8,06 € 0,05
85332000 GLUTRCLZRN 0,180 kg 0,18% € 6,16 € 0,01
154000 PZCTRCPN M-6329 2,720 kg 2,72% € 4,98 € 0,14
85305000 KZTCPUP PZQNZ 10.2 LQTZR 9,061 kg 9,06% € 3,62 € 0,33
85351000 KRQSTRLSUQKZR 0,600 kg 0,60% € 0,95 € 0,01
85507000 PRPRQKR VLPZQBRRR 1.3 L 0,180 kg 0,18% € 11,21 € 0,02
77000 UQZNPPZAZR ZGYPTZ STRNARRRA 0,300 kg 0,30% € 7,32 € 0,02
85070000 RJUQN GZSTPPPAZ 4,530 kg 4,53% € 1,54 € 0,07
Totaal: 99,999 kg 100,00% € 1,28
 

Bijlagen

Hallo Georges,

Ik heb sterk de indruk dat je AI-compagnon (of andere hulplijn) op blad 'Prijs' een ernstige denkfout heeft gemaakt.
Voor recept 1226 heb je van art. 14503000 exact 100 kg nodig (dat is 57,47% van het totale productiegewicht. En je code neemt vervolgens enerzijds de eenheidsprijs i.p.v. de totale prijs, en daarna nog eens 57,47% daarvan i.p.v. de volle 100%.
Ik zou me al extreem moeten vergissen (of beter gezegd: niets begrijpen van de bedoeling) als de kost hier geen 442€ zou moeten zijn (daar waar je code op 2,54€ komt). Trouwens: een totale prijs van 3,36€ voor 174 kg afgewerkt product lijkt mij in de voedingsindustrie aan de rare kant...
Waarschijnlijk een moeilijke? of net een uitdaging om dit te kunnen oplossen?
Als ik het goed heb (en anders ook;)) niet, t.t.z. niet moeilijk, en dus geen te grote uitdaging.
Je zou het zelfs meteen op het eerste blad kunnen toevoegen, dus met één knop recept samenstellen + prijs berekenen.
Voor de aardigheid heb ik al een klein beetje code toegevoegd onder de knop 'Kostprijs' waarbij ik 0% verlies heb moeten nemen als het ingrediënt niet te vinden is op RecKop. Daar ontbreken er namelijk nogal veel en dan zou het als voorbeeld niet kunnen werken. Die code lijkt nog nergens op, maar het is alleen maar om de principes te kunnen vastleggen, opkuis en optimalisatie kan later.
En wat je laatste post betreft: nadat alle verliespercentages per ingrediënt zijn verwerkt, kan er daar bovenop nog een verliespercentage zijn op het eindproduct?
 

Bijlagen

Goedemorgen,
Wederom bedankt Enigmasmurf,

Heb in tabblad "Voorbeeld" een voorbeeld gegeven van Receptuur 109 die 2 halffabricaten bevat.
Bij wijze van test en Productieverlies in Tabblad RecKop ingegeven.
Productieverlies is niet op artikel wel op receptuurniveau waarbij dit van niets naar ..... kan gaan.

Mogelijks is het té complex om dit zo te berekenen en ben ik al zéér tevreden met voorgaande.
Het zou natuurlijk zéér mooi zijn mocht dit ook lukken.
 

Bijlagen

Dag Georges,
Ik heb minstens al tijd gevonden om je laatste bestand te downloaden en even te bekijken. Je voelt mij al komen: 't zal niet meer voor vandaag zijn, en achter morgen en overmorgen staat ook nog een dik vraagteken.
Wordt dus in elk geval vervolgd, maar of ik het nu echt op de manier ga doen zoals op je blad 'Voorbeeld', dat is wél een beetje twijfelachtig...
 
Dag Enigmasmurf,
Ben al heel tevreden met wat ik tot nu toe heb :)
Hoop dat deze vraag ook leuk is om op te lossen en dat het plezier aan je (jullie) kant is.
Blij deel te mogen zijn van Helpmij.
Leuk om antwoorden en oplossingen te krijgen en geholpen te worden al is de vraag soms minder interessant.
De oplossing steekt niet op 1 week of langer, het is tenslotte uit vrije wil tijd om kennis door te geven.
Moet zovelen hier bedanken voor de tijd en kennis te delen en de steeds aangeboden oplossingen.

Dank bij voorbaat!
Hou het vooral leuk om doen.

Groeten Georges
 
Hoi Georges,

Verrassing = toch vandaag een gaatje gevonden.
Zoals bij de eerste aanblik verwacht heb ik het op een totaal andere manier gedaan en wonder boven wonder (of net niet 😂) kom ik tot hetzelfde resultaat als in jouw voorbeeld.
Ik zet ook geen formules op je werkblad, alles wordt vanuit VBA gedaan. Er staat wél een formule in L1, die verwijst naar het receptnummer op Blad1. Het blijft dus wel nog zo dat je daar eerst het recept moet samenstellen, en pas daarna de prijsberekening kan doen. Maar zoals ik eerder al had gezegd zouden we natuurlijk beide codes kunnen samenvoegen. Dat hangt natuurlijk van jou af, maar bekijk alvast al eens wat we momenteel hebben.
 

Bijlagen

Hoi Enigmasurf,
Respect en bewondering, hartelijk dank voor je tijd en oplossing.

Dit had ik echt niet voor mogelijk gehouden en je aanpak is beter dan ik had kunnen verwachten.
(dacht bij mezelf dit zal toch iets teveel gevraagd zijn :confused:)

Ja mocht dit kunnen in 1 code is het helemaal af.
Voel je vooral niet verplicht en heb er vooral fun aan dit uit te werken.
Zie dit lukken op een groot bestand, bij de allereerste lukte het al :)
 
Hallo Georges,

Voor je laatste vraag was de grootste moeilijkheid om nog eens in de buurt van een pc te raken;)
Mocht je dat beter vinden dan kan de knop natuurlijk ook op 'Prijs' worden gezet, maar omdat je zo begonnen was heb ik hem nog op blad 'Recepten' laten staan. Op 'Prijs' zijn daarom de eerste 2 rijen beveiligd (zonder wachtwoord).
Als extra amusement heb ik de gebruikte variabelen nog een duidelijkere benaming gegeven.
Veel plezier ermee !
 

Bijlagen

Hartelijk dank Enigmasmurf voor de 3 werkende codes.
Had dit niet voor mogelijk gedacht.

Knap hoe dit in een flits (sneller dan een knipoog) werkt op een groot bestand.

Hoop velen er ook wat aan hebben.

Groeten,
Georges
 
Terug
Bovenaan Onderaan