Op en afboeken voorraad

[Norman Scheuter]

Hallo Excel experts,

Ik ben bezig met het opzetten van een voorraadlijstje, welke ik deels heb gedownload via sjablonen van Excel zelf.

Daarin heb ik op het eerste blad mijn voorraad artikelen en op het 2e blad mijn reserveringen welke ik in de order heb zitten.

Nu zou ik graag willen kunnen boeken, op en af.

Dus een macro ( of vba ) in het 2e blad om de artikelen te kunnen afboeken ( per regel ) wanneer de opdracht gereed is
En opboeken van artikelen zodra er een bestelling binnen komt.

En bij de boekingen kom ik er niet uit....wil me niet lukken.

Heeft iemand een idee hoe ik dit kan oplossen.

Ik heb een bestandje meegestuurd.
Hoop dat ik het een beetje duidelijk ehb omschreven.

Gr. Norman

 

[Norman Scheuter]

Het is me gelukt.
Mocht iemand interesse hebben hoe...

Sub opboeken()
    [J5] = Bereken(a:=[J5], b:=[K5])
End Sub
Function Bereken(a As Double, b As Double) As Double
    Bereken = (Round(a + b))
    Range("K5").Value = ""
End Function

Sub Afboeken()
    [J5] = Bereken(a:=[J5], b:=[M5])
End Sub
Function Bereken(a As Double, b As Double) As Double
    Bereken = (Round(a - b))
    shtPickList.Range("B5:E5").Value = ""
End Function