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

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

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

  تعديل هدا الكود انه لي واستاذنا / إبراهيم أبو ليله يحفظك الله

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

وتعديل في حقول في نهاية الفاتورة الإجمالي والمدفوع والمتبقي

 

 

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [f16:f37]) Is Nothing Then
If Target.Value <> "" Then
Target.Offset(0, 2) = Target.Offset(0, 0) * Target.Offset(0, 1)

Range("i39") = Application.Sum(Range("h16:h37"))

Exit Sub
End If
If Target.Value = "" Then
Target.Offset(0, 2) = Target.Offset(0, 0) * Target.Offset(0, 1)

Range("i39") = Application.Sum(Range("h16:h37"))

Exit Sub
End If
End If
If Not Intersect(Target, [g16:g37]) Is Nothing Then
If Target.Value <> "" Then
Target.Offset(0, 1) = Target.Offset(0, 0) * Target.Offset(0, -1)

Range("i39") = Application.Sum(Range("h16:h37"))

Exit Sub
End If
If Target.Value = "" Then
Target.Offset(0, 1) = Target.Offset(0, 0) * Target.Offset(0, -1)

Range("i39") = Application.Sum(Range("h16:h37"))

Exit Sub
End If
End If
'.........................................................................

End Sub

 

hps.zip

[KHMB]

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

اخي عبدالواحد تفضل الملف تم التعديل علي الكود بحيث يكون عند إدخال الكمية والسعر يعطيك إجمالي قيمة الصنف وفي نفس اللحظة يكون الميلغ في إجمالي الفاتورة وهكذا عند إضافة صنف آخر تضاف قيمة الصنف في إجمالي الفاتورة .

ولكن بالنسبة للمتبقي هذا يتم تلقائيا بعد إدخالك قيمة المدفوع .

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

هذا مافهمتــــــــــــــــــــــــــــــــــــــــة نرجوا التوضيح إذا خلاف ذلك.

                                                                                                                                     اخيك / أبو الحسن والحسين

تعديل في كود الفاتورة KHMB.rar

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

بارك الله فيك اخي أبو الحسن والحسين ونفع بك الاسلام والمسلمين ربي يحفظه ويوفقه لما يُحبه ويرضاه

ممكن لوسمحت ان يتم اضافت في الكود الإجمالي والمدفوع والمتبقي

[KHMB]

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

يا اخي انا سويت ماذكرت وشرحت لك في المشاركة 2 ارجع لها ثم ارجع للمرفق

	إجمالي الفاتورة		1600
	المدفوع		0
	المتبقي		1600

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

بارك الله فيك اخي أبو الحسن والحسين الم الحيض دلك جزاك الله ونفع بك الاسلام والمسلمين

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

ارجو المساعدة  لدي مشكلة لما اضعط على زر المسح  تضهرلي هاده الاصفار التي تملؤبها الصفحة

تعديل في كود الفاتورة KHMB.zip

تعديل في كود الفاتورة KHMB.zip

[KHMB]

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

تفضل إن شاء الله يكون المطلوب

تعديل في كود الفاتورة المسح KHMB.rar

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

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

بارك الله فيك اخي الكريم أبو الحسن والحسين ونفعنا بما علمك الله وبارك لك في علمك وزادك فضلا وعلما اللهم امين