تحويل معادلات اختبار استحقاق بناء على شرط إلى كود

[أبو إيمان]

السلام عليكم

عساكم طيبين

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

الشرح داخل الملف

 ** ونسأل الله أن يكون العمل في ميزان حسناتنا جميعا حيث ان تنفيذه من بعض مما تعلمته هنا

 

 

التوزيعات.xlsm

[أبو إيمان]

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

 

للرفع

 

تم إزالة كلمة السر عن محرر الأكواد 

 

التوزيعات بدون حماية.xlsm

تم تعديل مارس 13 بواسطه أبو إيمان

[abouelhassan]

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

مشكور 

[حسونة حسين]

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

تفضل اخي لعله طلبك ان شاء الله

 

التوزيعات بدون حماية.xlsm

[أبو إيمان]

5 ساعات مضت, abouelhassan said:

الملف لم يفتح اكتب المعادلة

تم ارسال نسخة مضغوطة خاص حيث أن المثال المرفق في الملف سوف يوضح المطلوب  إن شاء الله

[أبو إيمان]

2 ساعات مضت, حسونة حسين said:

تفضل اخي لعله طلبك ان شاء الله

بسم الله ماشاء الله 

مبدئيا هو المطلوب  إن شاء الله وجاري التجربة على نطاق أكبر من البيانات 

جزاكم الله خيرأ داعين الله بالتوفيق لجميع الأعضاء ونشكر الاستاذ abouelhassan على اهتمامه ونأمل منه إذا كان أعد كود للتنفيذ أن يتم رفعه إثراءاً للموضوع 

 

الاستاذ حسونة حسين لو في إمكانية تعديل الكود بحيث

1- إذا تم نسخ أرقام قومي من ملف خارجي ولصقهم أن  وضع تاريخ للتسجيل و يتم  الحساب لهم جميعا بنفس الشروط حيث في الوضع الحالي بعد الللصق أقوم بالضغط على الخلية لتحرير النص فيها والضغط على مفتاح الادخال حتى يتم الساب

2- ( غير ضرورية ) إذا تم تعديل تاريخ التسجيل أن يتم تعديل الاستحقاق تلقائيأ وإذا لم يكن هناك إمكانية فما تم إضافته هو إنجاز ماشاء الله

تم تعديل مارس 14 بواسطه أبو إيمان

[حسونة حسين]

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

عدل البيانات كما تريد ثم شغل الكود الموجود في module1 المسمى

search_sum

[أبو إيمان]

10 دقائق مضت, حسونة حسين said:

عدل البيانات كما تريد ثم شغل الكود الموجود في module1 المسمى

search_sum

 

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

 

باقي جزئية النسخ لو أمكن

تم تعديل مارس 14 بواسطه أبو إيمان

[حسونة حسين]

تفضل

احذف الكود الخاص بك الموجود في حدث الشيت

ثم ضع هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X As Range
    Application.EnableEvents = False
    For Each X In Target
        If X.Column = 2 Then
            If X.Value = "" Then
                X.Resize(, 6).ClearContents
            Else
                X.Offset(0, 2) = Date
                X.Offset(0, 2).NumberFormat = "dddd yyyy/mm/dd"
            End If
        End If
    Next
     Application.EnableEvents = True
     Search_SUM
End Sub

 

[أبو إيمان]

شكرا جزيلا

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

[حسونة حسين]

آمين يارب العالمين

[علي بطيخ سالم]

جزاكم الله خيراً استاذنا الاستاذ حسونة وبارك الله لك وجعله الله في ميزان حسناتكم اللهم آمين

[حسونة حسين]

وجزاكم مثله اخى ابو عبدالرحمن @علي بطيخ سالم

على دعاؤكم الطيب