nog een stockbeheer vraag

[ronny_no]

Beste Excel specialisten,

Jullie hebben mij in het verleden al een paar keer goed geholpen waarvoor dank en ik hoop dat jullie deze Excel maagd nog eens kunnen helpen :

Een tijd geleden hebben jullie mij eens geholpen met het maken van een klein stockbeheer programma en dit werkt perfect

In het bedrijf waar ik werk is het zo dat vroeger de magazijnier de in en uitvoer van de materialen uit de stock ingaf maar dat een andere persoon de materiaalbonnen opmaakte

(deze bonnen gingen van die persoon naar de magazijnier waarop hij de materialen per werf kon klaarzetten en daarna boekte de magazijnier de materialen uit de stock (of in naargelang de situatie))

Nu is het zo dat de magazijnier zowel de materiaalbonnen als de stock opmaakt en bijhoud en krijg dan ook de terechte opmerking dat het maken van de bonnen, uitprinten verwerken en nogmaals ingeven in de stock teveel bewegingen zijn.

Zijn vraag is dan ook het volgende: is er een mogelijkheid om er voor te zorgen dat als hij de materiaalbon opmaakt dat de materialen die op deze bon staan automatisch uit de stock gaan van zodra hij de bon print?
Maar hij moet nog steeds de mogelijkheid houden om de stock ook manueel in + en in – te kunnen aanpassen (zoals nu)

Moeilijke vraag maar ik hoop dat jullie een beetje snappen wat we bedoelen.

omdat de file +300 Kb is vind je het bestand hier: http://www.box.net/shared/trvv2ho2zo


Ronny

 

[ronny_no]

oei een oplossing voor de gestelde vraag is blijkbaar niet eenvoudig

ik zie dat deze topic al 50x bekeken is en dat het bestand toch al een 10x is gedownload.

ik dank jullie voor de getoonde interesse en hoop dat er iemand is die kan helpen anders zit ik met een ietsiepietsie probleem :shocked:

 

[ronny_no]

Hmm, net terug uit verlof en blijkbaar geen oplossing?
ik bump hem nog 1x op hoop van zegen en anders zal het niet niet oplosbaar zijn

 

[Roncancio]

Hmm, net terug uit verlof en blijkbaar geen oplossing?
ik bump hem nog 1x op hoop van zegen en anders zal het niet niet oplosbaar zijn

Bedoel je het zo?
Onderstaande code is voor ThisWorkbook.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim lRij As Long
    lRij = 13
    While Worksheets("Mat.Bon").Range("D" & lRij) <> ""
        Set Art = Worksheets("Stockbeheer").Range("A:A").Find(Worksheets("Mat.Bon").Range("D" & lRij).Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not Art Is Nothing Then Worksheets("Stockbeheer").Range("F" & Art.Row).Value = Worksheets("Stockbeheer").Range("F" & Art.Row).Value - Worksheets("Mat.Bon").Range("E" & lRij)
        lRij = lRij + 1
    Wend

End Sub

Vlak voor het printen worden de waardes bij Uit in Stockbeheer verhoogd met de aantallen uit Mat.Bon.
Dus in je bestand code 010005 heeft -67 bij Uit (in Stockbeheer).
Na het doorlopen van de macro staat de waarde op -72 omdat er 5 eenheden in Mat.Bon staan.

Met vriendelijke groet,


Roncancio