Voorraad automatisch berekenen

[Erc]

Beste,

Ik wil mijn factuur die ik met Excel heb gemaakt uitbreiden.

Mijn factuur bestaat uit 3 werkbladen: De factuur zelf, een blad met klantengegevens en een werkblad met stock.

Als ik mijn voorraad wil berekenen kan ik telkens mijn ("aankoop" - "aantal") doen (zoals jullie het kunnen zien in bijlage). Het probleem is dat telkens mijn voorraad moet verminderen als ik telkens een nieuwe factuur maak aan een nieuwe klant, en dat lukt mij jammer genoeg niet.

Wat gebeurt er nu: als ik 300 stuks heb aangekocht en ik verkoop 10 stuks aan een klant, dan verschijnt er bij voorraad 290.

MAAR, als ik 5 stuks van datzelfde product verkoop aan een andere klant, dan verschijnt er bij voorraad 295 i.p.v. 285.

Mijn voorraad moet telkens verminderen, maar welke functie of formule ik moet gebruiken heb ik niet gevonden. Wie kan mij helpen a.u.b.?

Hopelijk was mij vraag duidelijk en alvast bedankt voor jullie hulp. Bekijk bijlage Factuur test.xlsx

 

[Cobbe]

Via de 'zoeken'-functie op dit forum was je zeker op dit gestoten:
http://www.helpmij.nl/forum/showthread.php/831409-Voorraad-beheer?highlight=voorraad
Lees post #6

We moeten niet steeds het wiel uitvinden, hé.

 

[mvw64]

Met een macro kan het wel
Druk op de knop Afdrukken
Het verkochte aantal wordt van de voorraad afgeschreven.

 

[Erc]

Dank u wel, werkt super! :thumb:

 

[Erc]

Dank u wel, werkt super! :thumb:

 

[Erc]

Beste,

Een tijdje geleden had ik problemen met mijn factuur en het probleem werd opgelost m.b.v. een macro. Nu dat ik mijn factuur verder heb uitgewerkt, werkt de macro niet meer, de instructies worden niet uitgevoerd als ik op de knop afdrukken klik. Kan iemand mij helpen om mijn bestand te optimaliseren.
Zoals ik eerder hierboven heb vermeld moet mijn voorraad telkens afgeschreven worden op het blad!producten bij kolom D.
Alvast bedankt voor de moeite!
Bekijk bijlage Factuur met Macro.xlsm

 

[Elsendoorn2134]

Erc,

Wijzig in de macro de regel

    Sheets("producten").Cells(c.Row, "e") = Sheets("producten").Cells(c.Row, "e") - ActiveCell.Offset(0, 0).Value

in

    Sheets("producten").Cells(c.Row, "D") = Sheets("producten").Cells(c.Row, "D") - ActiveCell.Offset(0, 0).Value

Dan worden de verkochte aantallen keurig afgeboekt.

Veel Succes.