طلب تعديل كود باستخراج القيمه الخاصه بكل صنف

[محمد عبدالسلام]

السلام عليكم ورحمة الله وبركاته
عيدكم مبارك وكل عام وانتم بخير
في الملف المرافق كود خاص بالاستاذ الافاضل ياسر العربي
الرجاء التعديل  'الكودحتى يقوم باستخراج القيمه الخاصه بكل صنف
ثانيا-استخراج الإجمالى

 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$H$57" Or Target.Address = "$H$58" Then [H59] = [H56] + [H57] - [H58]
    If Target.Column = 8 Then
        If Target.Row > 9 And Target.Row < 56 Then
            Target.Offset(, 1).Value = Target.Offset(, -2).Value * Target.Value: GoTo 86
        End If
    End If
    If Target.Column = 6 Then
        If Target.Row > 9 And Target.Row < 56 Then
            Target.Offset(, 3).Value = Target.Offset(, 2).Value * Target.Value
86          [H56] = Application.WorksheetFunction.Sum(Range("I10:I56"))
            [H59] = [H56] + [H57] - [H58]
        End If
    End If

   
End Sub

 

كود يقوم باستخراج القيمه الخاصه بكل صنف1.zip

تم تعديل أغسطس 24, 2018 بواسطه محمد عبدالسلام

[احمد بدره]

السلام عليكم ورحمة الله وبركاته

جرب هذا التعديل لعله يكون المطلوب

كل عام أنت بخير

كود يقوم باستخراج القيمه الخاصه بكل صنف1.zip

[محمد عبدالسلام]

وعليكم السلام  ورحمة الله وبركاته

 اخي الحبيب جزاك الله خيراً

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

 واذا تما تعديل على السعر يقوم باستخراج القيمه الخاصه