Waarde verminderen van de voorraad via zoekfunctie

[erpee]

Als ik in de bijlage bij C2 een barcode invoer (uit tabblad ProductData) en klik op zoek, dan geeft 'ie via VBA netjes de waardes bij Product, Locatie en prijs.

In C9 voer ik dan een aantal in. Als ik dan op de knop "Werk voorraad bij" klik, is het de bedoeling dat bij het product uit C2 de waarde in tabblad Productdata bij de kolom "Voorraad" verminderd wordt met het aantal uit C9.

Echter dit stuk krijg ik niet werkend ... wie weet een oplossing?

 

[AD1957]

probeer dit eens.

Sub UpdateData()

Set c = Sheets("ProductData").Range("A:A").Find(Sheets("Blad1").Range("C2").Value)
    If Not c Is Nothing Then c.Offset(, 4) = c.Offset(, 4) - Range("c9").Value
  
End Sub

 

[erpee]

Dat is 'm!

Ik was al zo dichtbij ... Superbedankt