استخراج آخر عملية دفع

[عبدالعزيز محمد]

السلام عليكم

عندي جدول به بيانات مدفوعات أولياء الأمور لرسوم أبنائهم بالمدرسة-خاصة- ويتم الدفع على عدة اقساط وكل عملية دفع لولي الأمر يعطى سند قبض  فيه رقم وتاريخه وقيمة المدفوع

ويوجد جدول لعمل تقارير لاستخراج تاريخ وقم السند لآخر عملية تسجيل مع جلب اجمالي الرسوم لولي الامر واجمال مدفوعات ويوجد بالمرفق توضيح أكثر

 

Aziz.xlsx

[Ali Mohamed Ali]

وعليكم السلام -تفضل لك ما طلبت .. وكان لابد من رفع الملف بدون ضغط , طالما حجم الملف صغير  وذلك تجنباً لإهدار الوقت وشكراً

 

Aziz1.xlsx

[عبدالعزيز محمد]

جزاك خيرا هذا هو المطلوب 

ملاحظة : هل يمكنك شرح معادلة رقم السند-تاريخ السند حتى تكتمل الاستفادة

وكذلك هل يمكنك جعل الجدول في شيت لوحده هل يكون التركيز عليه لوحده 

ومرة أخرى نشكركم وبارك الله فيك يا أخينا Ali Mohamed Ali وللجميع الشكر

[Ali Mohamed Ali]

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

=LOOKUP(2,1/(ورقة1!$A$3:$A$440=$B4),ورقة1!$D$3:$D$440)

فالجزء الأول من المعادلة ورقة1!$A$3:$A$440=$B4   يقصد به العمود A الموجود بصفحة ورقة1 والذى يخص أسماء أولياء الأمور ثم =الخلية B4 ,والتى بها اسم ولى الأمر الموجود بصفحة التقرير المراد البحث به ثم بعد ذلك النطاق ورقة1!$D$3:$D$440     وهذا هو النطاق الموجود به نتائج البحث وهو عمود رقم السند الموجود بصفحة   ورقة1 ..ومعادلة تاريخ السند مثل رقم السند بالضبط مع اختلاف عمود النتيجة بدلاً من العمود D سيكون العمود E ولكم جزيل الشكر أتمنى ان يكون الأمر سهل لك

 

Aziz2.xlsx

[عبدالعزيز محمد]

تمام 

ولكن ما تعني 

2,1/

[عبدالعزيز محمد]

هل يمكنني زايدة طلب آخر على الشيت المرفق

وهو في شيت التقارير إذا تساوت قيمة إجمالي المدفوعات مع إجمالي الرسوم-يعني أن هذا ولي الأمر ليس عليه شيء- يتم عمل زر لحدف سجل ولي الأمر الذي تساوت إجمالي المدفوعات مع إجمالي الرسوم أي أن أي خلية في عمود الديون =0 فهذا يعني أنه قد دفع ما عليه ويمكن حذف السجل المعني

Aziz2.xlsx

[Ali Mohamed Ali]

2,1/   هذا جزء أساسى بالمعادلة لإستخراج أخر عملية ولا تصلح المعادلة بدون هذه الجزئية

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

Sub RowDeleter()
On Error Resume Next
Application.ScreenUpdating = False
    Range("E1:E" & Range("E" & Rows.Count).End(3)(1).Row).AutoFilter 1, 0
        Range("E4:E" & Range("E" & Rows.Count).End(3)(1).Row).SpecialCells(12).EntireRow.Delete
    ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub

 

Aziz3.xlsb