خصم الكمية

[mahmoud nasr alhasany]

Private Sub MajInventaire()
Dim v As Integer

With Worksheets("Inventaire")

    lgD = .Cells(Rows.Count, 1).End(xlUp).Row + 1

    For v = 0 To ListBox1.ListCount - 1
        With .Cells(lgD, 3)
            If flgAdd = 0 Then
                .Offset(, -2) = ListBox1.List(v, 1) 'Code article
                .Offset(, -1) = ListBox1.List(v, 4) 'Catégorie
                .Offset(, 2) = ListBox1.List(v, 5) 'Seuil d'alerte
                .Offset(, 3) = ListBox1.List(v, 6) 'Descriptif
                .Offset(, 4) = ListBox1.List(v, 7) 'Référence
                .Offset(, 5) = ListBox1.List(v, 8) 'Unité de mesure
                .Offset(, 6) = "Transfert"         'Observations
                .Offset(, 9) = ComboBox2           'Magasin
                QD = Val(.Value) + QT: .Value = QD  'Stock actuel
             Else
                .Offset(, 7) = .Offset(, 7) + ListBox1.List(v, 9)
             End If
             lgT = lgT + 1
        End With
        .Protect
    Next v
End With
End Sub

صباح الخير

هل يمكنكم مساعدتى الكود الذى ادرجتة لايعمل معى

الكمية لاتخصم من شيت Inventaire

ما الأخطاء فى هذا الكود

copy-of-copy-of-quantite-transferee-4.xlsm

تم تعديل April 17 بواسطه mahmoud nasr alhasany

[mahmoud nasr alhasany]

رجاء مساعدتى ضرورى إذا امنكنكم ما الخلل فى  الكود المدرج

[mahmoud nasr alhasany]

صباح الخير

[mahmoud nasr alhasany]

رجاء مساعدتى اريد خصم الكمية من المخزن الزى تم صرف الكميه من الليست بوكس إلى شيت المخزون 

وانفترض أن الكميه المننصرفة فى الليست بوكس هى ٥ كرتونه

و الكميه الموجوده فى شيت المخزون هى ٢٠

المفروض يكون الكميه فى المخزون بدل ٢٠ تكون الكميه ١٥ كرتونة كما موضح فى الصورة

رجاء مساعدتى

تم تعديل April 19 بواسطه mahmoud nasr alhasany

[mahmoud nasr alhasany]

هل يوجد شئ غير مفهوم فى هذه المسألة تودون أن اوضحها لكم