أبو إيمان

السلام عليكم المرفق هو حاسبة لنصاب زكاة الفطر وللتأكيد زكاة الفطر يتم إخراجها حبوب الملف مصمم للإخوة الذين يقومون بتجميع مبالغ وشراء حبوب لتوزيعها هناك حالتين للتعامل 1- شخص يقول عدد الأفراد ويسأل ما هو النصاب لهم في هذه الحالة نكتب في خانة عدد الأفراد العدد وعليه سوف يظهر أقل مبلغ مقرر لهم 2- شخص يدفع مبلغ ويقول عدد الافراد في هذه الحالة يتم كتابة المبلغ وعدد الأفراد وعليه سوف يتم تحدد نوع الحبوب التي يفضل اخراجها عن هذا الشخص يوجد خلية لفرق النصاب لحساب المبلغ المتبقي بعد مبلغ النصاب الفعلي وعليه يمكن شراء سلع اضافية بهذا لمبلغ حاسبة الأنصبة.xls

السلام عليكم ورحمة الله وبركاته الملف المرفق من إعدادي بفضل الله ثم بفضل ما تعلمته هنا في المنتدى الزاخر قمت بإعداده لأحد الجمعيات الخيرية العام الماضي وكنت متردد في رفعه للمنتدى نظرا لتوضع العمل مقارنة بأعمال العمالة في المنتدى لكن قررت هذا العام الرفع للاستفادة الملف للتجربة و التقيم ونأمل من الأساتذة الكبار إضافة ملاحظاتهم وإذا كان هناك تعديل أو تحويل المعادلات لأكودا نأمل ألا يبخلو علينا بالتطوير كلمة سر 11 - كلمة سر محرر الأكواد Officena نسأل الله أن يكون في ميزان حسناتنا جميعا ملف رمضان.xls

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

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

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

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

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

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

كل عام وأنتم بخير للرفع تم إزالة كلمة السر عن محرر الأكواد التوزيعات بدون حماية.xlsm

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

تفضل ملفين من أعمال ألأعضاء بالمنتدى مع العمل أن المنتدى زاخر بأفكار بملفات مثل المرفقات يمكنك استخدام البحث أو تنزيل ملف فهرس المنتدى كود إدراج صورة.rarإدراج صورة من خلال دالة معرفة من قبل.rarإدراج صورة في مربع نص بالدوال.rar

وإياكم

يمكن لكن كدا كل جزء ها يكون في خلية ها تستبدل "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