المساعدة في برمجة شاشة للسداد

[gamalin]

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

ارجوا التكرم بمساعدتي في برمجة الشاشة كما يلي 

في frame 8

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

و في frame 9

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

دفعات في اعمده مختلفة.xlsm

[gamalin]

الاخوة الافاضل تم التحايل وانجاز جزء كبير من المهام 

تبقى فقط  اريد ان تأتي خانة tb14  تاريخ اخر دفعة  ...الدفعات في اعمده متتالية اريد ان تأتي خانة تاريخه باخر تاريخ لاخر دفعة 

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

دفعات في اعمده مختلفة.xlsm

[محي الدين ابو البشر]

ربما

دفعات في اعمده مختلفة.xlsm

[gamalin]

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

لو ممكن تشرح لي معنى السطر ده اكون شاكر لك 

                Tb14.Value = ws.Cells(r, ws.Rows("2:2").Find(Tb13.Value, , , 1).Column).Value
 

[محي الدين ابو البشر]

 

ws.Rows("2:2").Find(Tb13.Value, , , 1)

بحث في السطر الثاني عن القيمة  المطابقة للقيمة الموجودة في Tb13

وتحديد رقم العمود لهذا التطابقة .Column

وباعتبار رقم السطر محدد بـ r فالقيمة المفروض أن تكون في Tb13 عي القيمة الموجود في السطر R و العمود الذي حصلنا عليه

أتمنى أن تكون الفكرة قد وصلت

[gamalin]

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