نقل مجموع المواد الداخلة والمباع لمعرفة الرصيد

[ابوعبدالواجد]

السلام عليكم

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

 

البيع بالتقسيط.rar

[حسين العصلوجى]

الاخ / ابوعبدالواحد

تم عمل ما طلبت جرب الملف المرفق لعله يفى بالغرض ولا تتردد في اي سؤال او تعديل

بانتظار اثراءات الاخوة بالمنتدي لتعم الفائدة

------------------------------------

 

 

البيع بالتقسيط.rar

[ابوعبدالواجد]

السلام عليكم : اشكرك أخي حسين وتشجعي على عدم التردد - مشكور

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

ولكن عند بيع مادة جديد مثلا" ( ثلاجة 25 ) لم ينقل كود المادة والاسم والكمية الى شيت المباع والرصيد ، وملف يوضح ذلك

جزيتم خيرا - مشكورين

البيع بالتقسيط1.rar

تم تعديل مارس 26, 2016 بواسطه ابوعبدالواجد

[حسين العصلوجى]

4 ساعات مضت, ابوعبدالواجد said:

السلام عليكم : اشكرك أخي حسين وتشجعي على عدم التردد - مشكور

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

ولكن عند بيع مادة جديد مثلا" ( ثلاجة 25 ) لم ينقل كود المادة والاسم والكمية الى شيت المباع والرصيد ، وملف يوضح ذلك

جزيتم خيرا - مشكورين

البيع بالتقسيط1.rar

ابشر اخي جاري العمل عالمطلوب

 

[ابوعبدالواجد]

جزيت خيرا

[حسين العصلوجى]

5 ساعات مضت, ابوعبدالواجد said:

السلام عليكم : اشكرك أخي حسين وتشجعي على عدم التردد - مشكور

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

ولكن عند بيع مادة جديد مثلا" ( ثلاجة 25 ) لم ينقل كود المادة والاسم والكمية الى شيت المباع والرصيد ، وملف يوضح ذلك

جزيتم خيرا - مشكورين

البيع بالتقسيط1.rar

تم عمل المطلوب راجع الملف المرفق لعله يفي بالغرض

ملحوظه : يفضل ادخال الاصناف من قائمة عن طريق خاصية التحقق من صحة البيانات لتلافي الخطأ عند ادخال اسم الصنف يديويا .

 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As String
If Target.Column = 5 And Not IsEmpty(Target) Then
On Error GoTo 1
a = Application.Match(Target.Value, Sheets("ÇáãÈÇÚ").Range("B1:B64536"), 0)
GoTo 2
1 b = Target.Row
  c = Sheets("ÇáãÈÇÚ").Range("B65536").End(xlUp).Row + 1
  d = Sheets("ÇáÑÕíÏ").Range("B65536").End(xlUp).Row + 1
Sheets("ÇáãÈÇÚ").Cells(c, "B") = Target.Value
Sheets("ÇáÑÕíÏ").Cells(d, "B") = Target.Value
Sheets("ÇáãÈÇÚ").Cells(c, "A") = Sheets("ÇáÓÌá").Cells(b, "D")
Sheets("ÇáÑÕíÏ").Cells(d, "A") = Sheets("ÇáÓÌá").Cells(b, "D")

End If

2 End Sub

تحياتي

 

H_البيع بالتقسيط.rar

[ابوعبدالواجد]

 

السلام عليكم --- احسنت - جزيت خيرا

لاتمام الموضوع بصورة اكثر دقة وسهولة

يرجى نقل اسم المادة والكمية الى شيت  المباع والرصيد بشكل تلقائي

حاليا االكمية تنقل تلقائيا

ممكن نقل اسم المادة ايضاً تلقائيا

تم تعديل مارس 26, 2016 بواسطه ابوعبدالواجد

[حسين العصلوجى]

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

تاكد من ان وحدات الماكرو مفعله حتي يعمل  الكود

او ارفق ملف بالنتيجة التي حصلت عليها حتي اتمكن من معرفة مكان الخطأ

 تحياتي

 

 

[ابوعبدالواجد]

صحيح - تمام