أبو إيمان

السلام عليكم

المرفق هو حاسبة لنصاب زكاة الفطر 

وللتأكيد زكاة الفطر يتم إخراجها حبوب 

الملف مصمم للإخوة الذين يقومون بتجميع مبالغ وشراء حبوب لتوزيعها 

هناك حالتين للتعامل 

1- شخص يقول عدد الأفراد ويسأل ما هو النصاب لهم  في هذه الحالة نكتب في خانة عدد الأفراد العدد وعليه سوف يظهر أقل مبلغ مقرر لهم

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

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

حاسبة الأنصبة.xls

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

الملف المرفق من إعدادي بفضل الله ثم بفضل ما تعلمته هنا في المنتدى الزاخر 

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

الملف للتجربة و التقيم 

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

كلمة سر 11   -  كلمة سر محرر الأكواد Officena  

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

ملف رمضان.xls

التنسيق  اليدوي عن طريق تعديل ارتفاع الصفوف أو سحب فواصل الصفحات 

شكرا جزيلا

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

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

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

search_sum

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

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

حاول التعديل من خلال تبويب Data 

حيث أنني لم أتمكن حيث أنه لم يتعرف على مصدر البيانات 

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

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

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

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

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

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

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

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

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

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

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

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

للرفع

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

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

وعليكم السلام

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

وتفضل تنفيذ بسيط لما طلبت 

ويمكن عمل 3 أو 4 شهادات في الورقة كما يمكن اضافة بعض التحسينات للعمل 

قومت بوضع الدالة الأساسية فقط في الملف

نموذج للشهادة.xlsx

تفضل ملفين من أعمال ألأعضاء بالمنتدى مع العمل أن المنتدى زاخر بأفكار بملفات مثل المرفقات 

يمكنك استخدام البحث أو تنزيل ملف فهرس المنتدى 

كود إدراج صورة.rarإدراج صورة من خلال دالة معرفة من قبل.rarإدراج صورة في مربع نص بالدوال.rar

وإياكم

18 ساعات مضت, طارق محمد ٨١ said:

ممكن الناتج يظهر العمر مفصل

شهر / يوم / سنه

يمكن لكن كدا كل جزء ها يكون في خلية

ها تستبدل "Y"  ب "YM"  علشان تظهر الشهر و "MD" علشان الأيام

السلام عليكم

يمكنك الاطلاع على المرفق في هذه لمشاركة وإن شاء الله المعادلة تفيدك 

نفس طلبك

أو يمكنك البحث داخل المنتدى عن ترحيل البيانات أو عن شيت كنترول

أو يمك

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

تفضل حل متواضع بالمعادلات

ويمكن التنفيذ للحل بالأكواد يمكن البحث داخل المنتدى عن استدعاء وترحيل البيانات

نموذج أوفيسنا 002.xlsm

استخدم المعادلة التالية باعتبار أن الرقم القومي في الخلية B3

=DATEDIF(DATE(IF(LEFT(B3;1)*1=3;20;19)&MID(B3;2;2);MID(B3;4;2);MID(B3;6;2));TODAY();"y")

حيث يتم تقسيم الرقم القومي إلى شهر وسنة وأيام وبعدها يتم طرحه من اليوم الحالي today  واظهار الناتج بالسنة y

وعليكم السلام 

الأخ السائل / ربما الاخوة مشغلون في اشياء اخرى أو منهم من يعمل على طلب 

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

المنتدى زاخر بأكواد مثلما طلبت 

والاخ احمد عبدالحليم

السلام عليكم

عساكم طيبين

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

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

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

التوزيعات.xlsm

لقد حاولت 

وبفضل الله نجح الامر معي 

والشكر لجميع أعضاء المنتدى الشكر موصول للأخ Lionhear

Option Explicit

Sub Get_Data_From_Closed_Workbooks()
    Dim a, wb As Workbook, ws As Worksheet, sFile As String, sPath As String, lr As Long, m, x, y, z As Long
    Application.ScreenUpdating = False
        sPath = ThisWorkbook.Path & "\" & "تقارير" & "\"
        sFile = Dir(sPath & [k6] & "*" & ".xlsx")
        m = 9
        With Sheet12.Range("b8").CurrentRegion.Offset(1)
            .ClearContents: .Borders.Value = 0
        End With
        Do While sFile <> ""
            Set wb = Workbooks.Open(sPath & sFile, ReadOnly:=True)
            Set ws = wb.Sheets(1)
            With ws
                lr = .Cells(Rows.Count, "b").End(xlUp).Row
                a = .Range("b9:o" & lr).Value
                x = [c6]
                y = [e6]
                z = [h6]
                
                .Parent.Close False
            End With
            Sheet12.Range("b" & m).Resize(UBound(a, 1), UBound(a, 2)).Value = a
            m = m + UBound(a, 1)
            sFile = Dir()
        Loop
        With Sheet12.Range("b9:o" & m - 1)
            .Borders.Value = 1
        End With
        
        [c6] = x
        [e6] = y
        [h6] = z
        
End Sub

السلام عليكم

حاولت توظيف الكود في الرابط التالي لكن لم ينجح الأمر معي 

المطلوب : عند الضغط على الزر يقوم بجلب البيانات من الملف المسمى بالرقم الموجود في الخلية K6 تقرير رصيد مع تاريخ شرط الاستدعاء الرقم مع كلمة تقرير رصيد بغض النظر عن التاريخ او ان يكون جزء من الاسم الرقم الموجود في الخلية K6

 البيانات التي يتم استدعاؤها تكون في الخلايا C6 E6 H6  

والخلايا من C9:O38

ملاحظة : الملفات التي يتم الاستدعاء منها محمية كاملا

مع ملاحظة ان الملفات المطلوب الاستدعاء منها في مجلد فرعي داخل نفس المجلد الذي به الملف الأساسي

الاستدعاء.rar

وفقكم الله جميعا

الاستاذ الفاضل محي الدين ابو البشر

ممتن لك ولمجهودك وشكرا لصبرك معي 

وفقكم الله لما يحب ويرضى 

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

بعد إذن الأخ عماد

إليك حل بطريقة بدائية يمكن يفيدك

ورقة عمل Microsoft Excel جديد (1).xlsx

وإذا كان لديك منتجات غير الكراتين يمكن استخدام الدالة Sumifs

الاخ عماد عذرا لم أرى مشاركتك إلا بعد وضع المشاركة اعلاه

الاستاذ الفاضل /محي الدين ابو البشر

شكرا على اهتمامك  وبالفعل هناك حالات غير مذكور وحاولت التعديل على الكود حتى لا أطيل عليكم ونفع مع في بعض الامور والبعض الاخر لم انجح فيه

حالات التعامل مع الملف 

1- اسم موجود في القائمة ومقابل له رقم عند كتابة الاسم يظهر الرقم وعند كتابة الرقم يظهر الاسم 

2- اسم غير موجود في القائمة وهنا يكتب الرقم 5 تلقائي

3- رقم غير موجود في القائمة وهنا يجعل خلية الاسم فارغة 

4- خلية فارغة وتم كتابة امامها 5 مفترض يكتب في خلية الاسم الكلمة المقابلة للرقم 5 أو لا يكتب شيء 

5- خلية بها اسم  مكتوب بالفعل وتم كتابة الرقم 5 أمام الاسم هنا المطلوب لا يحدث أي تغيير في الاسم 

يفضل ان تقوم بعمل عمود اضافي وليكن العمود A  ويتم استدعاء البيانات عن طريق الارقام المسلسبة 

وإليك هذا الملف يمكن يفيدك إن شاء الله

أرقام الجلوس والمناداة.xls