طلب معادلة او كود لجمع متأخرات

[sft2005]

السلام عليكم .. الملف المرفق يحتوي على عميلين 100 و 200 .. العميل 100 عنده تأخيرات أمل العميل 200 لا يوجد لديه متأخرات .

المطلوب : معادلة او كود ان إذا اخترت العميل 100 تظهر المتأخرات التي بالعامود i19 . ( لان عنده متأخرات )

وإذا اخترت العميل 200  تختفي المتأخرات التي بالعامود i19 . ( ليس لديه متأخرات )

والملف الان عند التغيير من عميل لعميل لا يتغير شئ وتبقى المتأخرات موجوده لكل العميلين ....

امل اكون اوضحت ما اريد .. فأملي بأساتذتي بعد الله سبحانه

‫للارسال.xlsm

[lionheart]

Put the following code in worksheet module

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then
        Application.EnableEvents = False
            Range("I19").ClearContents
            On Error Resume Next
                If Range("H19").Value > 0 Then Range("I19").Value = Range("H19").Value
            On Error GoTo 0
        Application.EnableEvents = True
    End If
End Sub

 

[محمد حسن المحمد]

السلام عليكم أخي الكريم @lionheart 

أرجو الاطلاع على رابط الموضوع التالي والمتعلق بالموضوع ذاته 

إذا الخلية في A تساوي الخلية في B امسح ما في الخلية A

حيث أن طلبه لا يتوقف على خلية محددة I19 بل العمود في الجدول انطلاقاً من هذه الخلية 

وهذه الخلية المذكورة أعلاه تعتمد على تاريخ متأخر علماً أن التواريخ التي وضعها ستكتب آلياً أثناء كتابة بيانات العميل

إذ لم أجد مجالاً لهذا التاريخ إلا من خلال عمود مساعد ...يذكر فيه هل تم دفع القسط في حينه وقد كان مسجلاً عنده أن القسط

يتم دفعه آلياً مجرد مرور التاريخ المراد دفعه به وهذا خطأ ...

وفي ردي الأخير عليه وضعت له عموداً يثبت فيه أن الدفعة قد سددت أو يترك مكانها فارغاً لتوضع قيمة الدفعة في المتأخرات وتجمع من خلالها.

فإن أردت وضع كود لذلك يمكنك أخذ مداخلتي بعين الاعتبار وتعديل الكود على هذا الأساس.

تقبل تحياتي العطرة

والسلام عليكم.

[sft2005]

اخ محمد شكرا شكرا لتفاعلك ..أمل لو كان كود يحل الاشكاليه فهذا حسن بدل اضافة جدول مساند ..

(يتم دفعه آلياً مجرد مرور التاريخ المراد دفعه به وهذا خطأ ) نعم خطأ واوافقك ولكن العمل شخصي وليس تجاريا وجانب اخر للمعلومية .. هو اثراء هذا المنتدى القيم ببعض الاطروحات والاسئلة لكي تكون مرجعا لم اراد .. والتعلم من اساتذه والنيل من مشاربهم ..

ام للكود المرسل قمت بإضافته ولم يعطيني اي حل كما اريد .. لان عند تغير العميل لا تمسح التأخيرات التي 200 لان لا يوجد عنه تأخير بل الخلية I19 كما هي الا ان التأخيرات تتغير المبالغ للعميلين                مختصر الطلب .. هو .. عند ادخال اي عميل يظهر ما عنده من متأخرات ( العامود I ) .

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

[sft2005]

السلام عليكم .. امل ان اجد الحل بعد الله لديكم تم اضافة مرفق به اضافة شيت ( بالمبالغ المتأخره ) اريد ترحيل من الخلية  D26  الى الخلية ( حركة تسديد عميل ) I19 . فقط ( اي ما اكتبه في الخلية D26  يظهر في الخلية I19

‫للارسال.xlsm

[محمد حسن المحمد]

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

أخي الكريم ما عليك إلا كتابة رقم ملف العميل في ورقة"حركة تسديد عميل" وبذلك ستظهر النتائج كما تريد حيث تم وضع المعادلة التالية لضبط حركة المعادلات وفق كل عميل على حده.

=IF('المبالغ المتاخره'!A27=0;"";'المبالغ المتاخره'!A27)

إن حددت المتأخرات لكل عميل في ورقة "المبالغ المتاخره"

تم تغيير الجدول الذي من الوضع العمودي إلى الأفقي ليتناسب مع التعديل المطلوب.

تم وضع عمود مساعد "A" ،في الخلية A26 تم وضع المعادلة التالية واسحب نزولاً.

=HLOOKUP($A$25;$C$25:AL66;ROW()-24;0)

أرجو أن يكون بذلك الحل المناسب لطلبك

تقبل تحياتي العطرة.

_للارسال (4).xlsm

[sft2005]

شكرا اخ محمد بك مجددا ولرد .. ولكن ما اريده هو حسب الجدول المرفق دون اي اضافات خلايا اخرى لكي يتم تطبيق العمل عليه وهو ما يهمني فهل لها من حل .. يوجد ملف مرفق به مزيد من التوضيح( ملاحظة : في الملف المرسل منكم عند التعديل رقم الملف لا يتغير شيء ما عرفة السبب )

‫للارسال.xlsm

[محمد حسن المحمد]

السلام عليكم أخي الكريم

لا شكر على واجب، أرجو أن يكون الحل مناسباً

=IF(VLOOKUP($B$2;'المبالغ المتاخره'!$B$26:$AQ$61;ROW()-16;0)=0;"";VLOOKUP($B$2;'المبالغ المتاخره'!$B$26:$AQ$61;ROW()-16;0))

تقبل تحياتي العطرة

 

_للارسال (1).xlsm

[sft2005]

اخ محمد اشكرك اشكرك .. هذا ما ارته من الاول .( التجربه اوليه ممتازه ). وسوف اجربه اكثر وإن كان هناك من تعديل سوف اخبرك .. تحياتي لك ولصبرك وبارك فيك ولك

[محمد حسن المحمد]

الحمد لله الذي بنعمته تتم الصالحات

[sft2005]

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

الاستفسار الاول : هل في الحل الاخير للملف تم بالمعادلة ام مع كود برمجي . سبب سؤالي .. لان حاولت ان اطبق المعادلة بعد تغيير شكل شيت ( المبالغ المتاخره ) .. الملف مرفق .. ولم اتمكن من تطبيقه .

الطلب : هل في الامكان تعديل المعادلة 

=IF(VLOOKUP($B$2;'المبالغ المتاخره'!$B$26:$AQ$61;ROW()-16;0)=0;"";VLOOKUP($B$2;'المبالغ المتاخره'!$B$26:$AQ$61;ROW()-16;0))

لان المعادلة تمسح ما في الخلية (H) اذا ادخل اي رقم في الخلية (I) .. طلبي هل ممكن ان لو سدد جزء من المبلغ مثلا 1000 من  2000 يمكن ان تعدل على المعادلة بأن اذا ادخل في الخلية (I)  ينخصم من ما في الخلية (H) واذا المبلغ مساوي يم‫للارسال121.xlsmسح 

[محمد حسن المحمد]

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

جواباً لاستفساركم أخي الكريم أنك بدلت شكل الجدول فلم تتوافق معه دالة VlookUp 

تم جواب طلبكم بفضل الله تعالى 

3 ساعات مضت, sft2005 said:

طلبي هل ممكن ان لو سدد جزء من المبلغ مثلا 1000 من  2000 يمكن ان تعدل على المعادلة بأن اذا ادخل في الخلية (I)  ينخصم من ما في الخلية (H) واذا المبلغ مساوي يمسح

والحمد لله رب العالمين

_للارسال121.xlsm

[sft2005]

رحم الله والديك ووالدينا ومن يقرا واسبغ عليك نعمه .. ولي طلب اخير ان شاء الله وهو تطبيق (قاعدة الباقي) على الملف الاول ( مرفق )

_للارسال هو (1).xlsm

[محمد حسن المحمد]

جزاكم الله خيرا وأحسن إليكم آمين يارب العالمين 🏵️

ولكم بمثل ما دعوتم أخي الكريم

بعد الإجازة إن شاء الله أنظر في الملف المرفق أو اطلب من الإخوة الكرام إتمام ذلك.

الحمد لله الذي بنعمته تتم الصالحات والسلام عليكم ورحمة الله وبركاته

 

 

 

 

 

[sft2005]

الى المشرفين مع التحيه امل اقفال الموضع لاكتمال الحلول من الاخ محمد .. شكرا لكم