Ürün kaydet stoktan düş

[eataer]

Merhaba yapmak istediğim bir satış geliyor ben onu kayıt bölümüne yazıp kaydediyorum satıldı bölümüne kaydediliyor buraya kadar bir şekilde yaptım macro kullanarak ancak tam olarak yapmak istediğim ürün koduyla kaydettiğim satışı stok bölümündeki stoklarımdan düşsün örneğin bir adet LT2530 ürün koduyla satış kaydettiysem stok bölümünden LT2530 ürün kodlu stok 1 azalsın

Örnek tablo ekte mevcuttur

 

[askm]

Örnek dosyanız ile kodlar uyuşmuyor. Gönderildi Sayfası yok.
Ama kayıt butonundaki kodların başına aşağı kodları ekleyin.

Dim SonSat As Long
SonSat = Sheets("STOK").Range("B" & Rows.Count).End(xlUp).Row
    Aranan = Sheets("KAYIT").Range("B5").Value
    Set Bulunan = Sheets("STOK").Range("B2:B" & SonSat).Find(Aranan, , xlValues, xlWhole)
    If Not Bulunan Is Nothing Then
        adres = Bulunan.Row
    End If
    Sheets("STOK").Cells(adres, "B") = Sheets("STOK").Cells(adres, "B") - 1