أبوعيد

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

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

وعليكم السلام ورحمة الله وبركاته تفضل Project1.rar

وعليكم السلام تفضل معادلة جمع نطاق بشرطين1.rar

السلام علكم أخواني هذا المرفق يحتوي على أكواد ماكرو ولكنها لا تظهر في مربع الحوار يعني عندما أعمل زر وأريد ربطه بالماكرو فإن الماكروات لا تظهر فما السبب ؟ وهل يمكن إظهارها ؟ STP(version 2.1).rar

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

تفضل sheet name.rar

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

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

السلام عليكم بعد إذنكم إخواني هذا حل بالأكواد مثال2.rar

وعليكم السلام نعم يمكن تفضل مثال1.rar

التعديلات كما يأتي Private Sub Worksheet_Activate() Dim x As Long, t As Integer Application.ScreenUpdating = False x = [CD5].Value If x = 0 Or x = 1 Then GoTo 1 Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault Range("A17:BY" & x + 15) = Range("A17:BY" & x + 15).Value Range("A" & x + 16).Resize(70000, 77) = "" GoTo 2 1: Range("A" & 17).Resize(70000, 77) = "" 2: For t = 0 To 10 Range("A45:BY47").Offset(32 * t, 0).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next Application.ScreenUpdating = True End Sub انسخ الكود كما هو وجرب النتيجة تحياتي

السلام عليكم هنا الكود يعطيك 3أسطر فارغة بين البيانات فإذا حبيت أن يكون الأسطر الفارغة هي 4بدلا من 3 فاذهب إلى السطر Range("A32:G34").Offset(32 * t, 0).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove وغير الرقم 34 إلى 35 تفضل المرفق تخفيف حجم الملف5.rar

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

الآن أصبح كل المواد التي ذكرتها لها أعمال تطبيقية ماذا بعد هذه الخطوة ؟ كشوف 1و2 علوم وآداب1.rar

جاري النظر في ملفك وإذا توصلت لحل المشكلة سارفقه هنا لا تقلق

السلام عليكم أخي ياسر شكرا لك على إثراء الموضوع الأخ أبوأحمد تم معالجة المشكلة سيتم حساب عدد الاسماء وتطبيق الكود مباشرة تفضل تخفيف حجم الملف3.rar

أهلا بيك تفضل التعديل تخفيف حجم الملف2.rar

تفضل وعفوا على الإزعاج تخفيف حجم الملف1.rar

عفوا أخي حملت مرفق آخر جاري التحميل ثواني

الملف به كود في حدث الصفحة change التعديل الذي حصل هو أننا حذفنا المعادلات وأبقينا على النتائج فقط لتقليل الحجم مع الاحتفاظ بالمعادلات في السطر رقم 3 حاول تغير الرقم في الخلية رقم a1 ولاحظ النتيجة

الآن مضبوط تفضل جرب المرفق تخفيف حجم الملف1.rar

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

نعم صحيح تم المطلوب وجزاك الله خيرا

شكرا لك أخي بن علية على هذا التوضيح ومن المعلوم أن هذه الدالة غير معتمدة من قبل الإكسل أي لا يوجد لها فورم إدخال للدالة , لكنه يتعرف عليها وقد تظهر مشاكل مثل هذه شكرا لك أخي ياسر (صاحب الهمة) وقد تعلمت منك الوصول للقمة عند بذل الهمة حلك جيد لأنه قلل المشكلة بشكل كبيير , لكنها لم تنتهي لاحظ الخليتين C33 C34 كما في المرفق datedit1.rar