أبوعيد

تفضل 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

السلام عليكم في المرفق ظهرت لي مشكلة في خانة اليوم لا يمكن أن يكون اليوم أكبر من القيمة 30 أو 31 المشكلة في الأسطر من رقم 34 إلى 44 الرجاء التعديل datedit.rar

وعليكم السلام لا بد من معرفية قيمتين : تاريخ التعيين و أكبر قيمة للدرجة الوظيفية لاحظ المرفق تم إدراج تاريخ التعيين لكل موظف مع فرض أن أكبر قيمة للدرجة الوظيفة هي 5 ملاحظة / العمود E عمود مساعد جرب المرفق السلم الوظيفي1.rar

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

جرب المرفق ssss1.rar

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

أخي العزيز طلبك فيه إشكال وهو إذا كان عندنا مثلا أربعة موظفين كلهم تم كتابة عبارة (لم يباشر) أمام كل منهم فكيف العمل ؟ ماذا هو العمل الذي تريد الكود أن يقوم به ؟ أو ما هي آلية العمل ؟ تحياتي