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

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


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

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

السلام عليكم

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

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

 

Aziz.xlsx

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

  • أفضل إجابة

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

 

Aziz1.xlsx

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

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

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

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

ومرة أخرى نشكركم وبارك الله فيك يا أخينا 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

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

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

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

Aziz2.xlsx

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information