اذهب الي المحتوي
أوفيسنا

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


sft2005
إذهب إلى أفضل إجابة Solved by sft2005,

الردود الموصى بها

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

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

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

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

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

‫للارسال.xlsm

رابط هذا التعليق
شارك

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

‫للارسال.xlsm

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

‫للارسال.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

  • Thanks 1
رابط هذا التعليق
شارك

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

=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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

 

 

 

 

 

  • Thanks 1
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information