فاتورة مبيعات وشيت الديون

[محمد ثامر الجبوري]

فاتورة مبيعات والترحيل الى شيت الديون بشكل اوتماتكلي .........بحيث عندما اكتب اسم العميل في الفاتورة تضهر في احدى الصفوف دينه من خلال استيراد من شيت الديون ......وعندما ابيع او اعطي امر بالطباعة ترحة الباقي الى شيت الديون او اقائمة الديون بشكل تلقائي .........المشكلة عند الترحيل يكرر اسم العميل ولا يعدل على اسم العميل .....المطلوب كود ترحيل من شيت الى اخر بدون ان تتكرر اسماء العملاء بل يعدل قيمة الدين للعميل  في حال وجودة بشيت الديون واذا لم يجدة يضيفه ويضيف قيمة الدين الى الشيت الديون ...... مثلا مهند اشترى ما قيمتة 2000...... في فاتورة وتضهر الواصل 1500 والباقي 500 بشكل تلقائي تذهب الاسم والمبلغ الى صفحة الديون .... وهذا يعمل بشكل طبيعي عندي ......ولكن المشكلة عندما ياتي مهند ويشتري مرة اخرى ويسدد القديم لا تذهب القيمة الباقية الى مهند في صفحة الديون بل يكرر اسم مهند .....المطلوب عدم تكراره بل تعديل قيمة دينه ...... 

[ابو علي و سدرة]

رجاء ارفاق الملف ليتم العمل عليه

[محمد ثامر الجبوري]

هذا هو الملف الاكسل sssss.rar

[محمد ثامر الجبوري]

شكرا للجميع ....... بالخصوص .... اسلام .... ساجدة..... ياسر ..... رجب

تم التوصل الى هذا الكود من قبل رجب

Sub ragab()
Set Sh = ورقة3
x = [g13]
T = Application.Match(x, Sh.Columns("G:G"), 0)
If Not IsNumeric(T) Then T = Sh.[G1000].End(xlUp).Row + 1
Sh.Range("B" & T).Resize(1, 10).Value = Range("B13").Resize(1, 10).Value
End Sub

تم تعديل يناير 14, 2017 بواسطه محمد ثامر الجبوري