ادارج تاريخ سداد العميل القسط

[ابو غريب]

اخوانى الخبراء بعد التحية

ارجو من حضراتكم معادلة او كود لادراج تاريخ يوم سداد العميل للقسط مثلاالقسط الاول فى شهر 8 مثلا يظهر تاريح سداد القسط امام العميل وهكذا الى القسط الرابع

ولكم جزيل الشكر

مرسل ملف للتوضيح

عميل.rar

[ابو غريب]

افيدونى يا خبراء المنتدى

[الشهابي]

الأخ العزيز / أبو غريب 

العفو طلبك غير واضح 

على أي أساس تريد أن يظهر التاريخ 

فالملف الذي أرسلته التاريخ فيه ظاهر 

ما هي المعطيات التي من خلالها يتم ذلك

العفو مرة أخرى واعذرتي على سؤ فهمي

ربما أحد من الأخوة فهم مطلوبك فانتظر مساعدته إن شاء الله

أو فضلا مزيدا من التوضيح

تقبل تحياتي وتقدير وكل عام وأنتم بخير

[محمد صبره]

أستاذي العزيز أبو غريب

 

السلام عليكم

 

الرجاء الاطلاع على الملف المرفق والذي فيه محاولة مني بتحديد تواريخ الاستحقاق وعلى اساس أن (الاقساط شهرية ، عدد الأقساط = 4 ، تاريخ القسط الأول هو الأساس في تحديد بقية التواريخ)

أتمنى أن الملف المرفق قد يساعدك في الوصول إلى مبتغاك

 

مع خالص تحياتي

 

Customers.zip

[ابو اياد ( الاسيوطى )]

الاستاذ / محمد صبره

 

حل مميز !!!!!! والى الامام من تقدم الى تقدم ؟؟؟؟؟

 

تقبل تحياتى

 

أخيك / الاسيوطى

[ابو غريب]

اخوانى الاعزاء خبراء المندى العظيم

اولا:  شكرا اخوانى على الاهتمام والمرور

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

والقسط الثانى يكتب المبلغ المسدد فى العمود (   H )  يظهر التاريخ فى العمود  ( I    ) وهكذا القسط الثالث والرابع

ولكم جزيل الشكر

مرسل لسيدتكم ملف لتوضيح المطلوب

عميل.rar

تم تعديل نوفمبر 4, 2013 بواسطه ابو غريب

[ابو غريب]

هل طلبى مستحيل ولا هايف الى درجة ليس له رد

[أبو محمد عباس]

السلام عليكم

اخي العزيز الطلب فيه غموض والا ستجد الحلول من الاساتذة والاخوة الاعضاء وبعدة طرق

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

هذا حسب علمي والله اعلم ويمكن استطيع ان اوصل الفكرة بعملي هذا وملاحظاتك عليه حتى يستطيع الاساتذة عمل المطلوب

تقبل فائق الاحترام والتقدير ونيابة عن جميع الاخوة الاعضاء

اقساط عميل.rar

[ابو غريب]

 اخى عباس

شكرا على مرورك الكريم

 المطلوب هو كما نفذت فى القسط الاول والثانى والثالث بس بالكود لكى يثبت التاريخ

وشكرا جزبلا

تم تعديل نوفمبر 5, 2013 بواسطه ابو غريب

[أبو محمد عباس]

السلام عليكم

الحمد لله اخي العزيز ابو غريب توصلنا للفكرة وانا متاكد بان هناك كود موجود في المنتدى لعمل ذلك ولكن خبرتي قليله لتجهيز الاكواد

فارجو من احد اساتذتنا الافاضل وحسب مايتوفر له الوقت لعمل ذلك  فانت اخ عزيز وغالي كبقية الاخوة الاعضاء

تقبلوا فائق احترامي وتقديري

[ابو غريب]

افيدونى ياخبراء عن هذا الموضوع

[عبدالله باقشير]

السلام عليكم

 

ضع الكود التالي في موديل الورقة التي تعمل عليها

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F5:F100,H5:H100,J5:J100,L5:L100")) Is Nothing Then
    If Target = "" Then
        Target.Offset(0, 1).Value = ""
    Else
        Target.Offset(0, 1).Value = Date
    End If
End If
End Sub

المرفق 2003

اقساط عميل.rar

[ابو غريب]

شكرا اخى عبد الله اكرمك الله وبارك فيك وانفعنا الله بعلمك العظيم والملف هو المطلوب  ولكم جزيل الشكر على تعبكم معى

وجعله الله لك فى ميزان حسناتك

تم تعديل نوفمبر 6, 2013 بواسطه ابو غريب

[أبو محمد عباس]

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

الاستاذ والعالم العلامة عبد الله باقشير اعمالك في قمة الروعة

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

وينعم عليك بالعلم والمعرفة ويزيدك من فضله علما وشرفا

تقبل فائق احترامي وتقديري

 

اخي العزيز ابو غريب الحمد لله تم عمل الكود من قبل  العلامة الكبير حفظه الله

اخي في معادلة تقييد الادخال للقسط الرابع وجدت خطا في المعادلة التي وضعتها ارجو تبديلها بهذه المعادلة {IF(N12+L12=O12;TRUE=)}

لك مني كل الاحترام والتقدير

[ابو غريب]

شكرا اخى ابومحمد عباس على مرورك الكريم افادكم الله ولكم جزيل الشكر

[عبدالله باقشير]

السلام عليكم

جزاكم الله خيرا واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة

تقبلوا تحياتي وشكري

[۩◊۩ أبو حنين ۩◊۩]

الاخ العزيز أبو محمد عباس الاخ العزيز عبدالله باقشير

جزاكم الله خير

الا انى لم افهم

اخي في معادلة تقييد الادخال للقسط الرابع وجدت خطا في المعادلة التي وضعتها ارجو تبديلها بهذه المعادلة {IF(N12+L12=O12;TRUE=)}

ما الخطاء

حزاكم الله خيرا

[أبو محمد عباس]

السلام عليكم

اخي ابو حنين جزاك الله خيرا

الخطا عندي في معادلة عملتها في المشاركة رقم (8) لشرط ان يكون القسط الاخير مستوفي لكامل مبلغ ثمن ايجار الارض الزراعية لافيه زيادة ولافيه نقص

هكذا معادلة عملتها لوحدي دون طلب الاخ ابو غريب واردت ان انفذها لكن بعد عمل الاستاذ والعلامة الكبير عبد الله باقشير دام عزه وزاده الله علما وشرفا

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

ارجو ان اكون وصلت الفكرة وتقبل وافر احترامي وتقديري