voorraad aanpassen

[Norbert1964]

Hallo
Na gisteren goed te zijn geholpen heb ik nog een vraag.
Hoe kan ik het aantal verkochte artikelen aftrekken van de voorraad?
Ik heb een aantal voorbeelden gezien, maar het wordt me niet duidelijk helaas.
In tabblad INVENTORY staat het huidige aantal. In tabblad DATA staan de verkochte aantallen vd items.
Hoe zouden die aantallen afgetrokken kunnen worden bij INVENTORY?

 

[SjonR]

zo?

 

[Norbert1964]

hi Sjon
Ik zie zo niks gebeuren, ben ik wat vergeten?
Norbert

 

[VenA]

Volgens mij gebeurt er ook niets.

Alles in 1 keer. Wegschrijven data en bijwerken voorraad.

Sub VenA()
  ar = Sheets("entry").Cells(12, 1).Resize(, 5)
  Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5) = ar
  Sheets("entry").Cells(12, 1).Resize(, 2).ClearContents
  With Sheets("INVENTORY")
    x = Application.Match(ar(1, 1), .Columns(1), 0)
    If IsNumeric(x) Then .Cells(x, 2) = .Cells(x, 2) - ar(1, 2)
  End With
End Sub

 

[SjonR]

excuus, had het bestand uit de map downloads toegevoegd.

 

[Norbert1964]

Beide hartelijk dank, het werkt perfect!

Groetjes Norbert