أبوعيد

التعديلات كما يأتي 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

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

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

أسعدكما الله أخواي العزيزان طلعت محمد حسن محمد حسن المحمد أسال الله أن يوفقكما لكل خير شكرا على مروركما وتكرمكما بالتهنئة

ألا ليت الشرور بلا نقاط *** وأن الحرب كانت دون راء أسعد الله أوقاتكم جميعا بالسرور والمحبة شكرا لكم إخواني على هذه المشاعر الجياشة منكم شكرا لك أخي ياسر خليل شكرا لك أخي عادل حنفي شكرا لك أخي الصقر شكرا لك أخي أبوعيدالرحمن البغدادي شكرا لك أخي ياسر العربي شكرا لك أخي عبدالعزيز البسكري شكرا لك أخي زيزو العجوز شكرا لك أخي العيدروس شكرا لك أخي أيمن بهجت شكرا لك أخي خالد الرشيدي شكرا لك أخي سعد الفقير فنحن نقترب من القمة التي قد سبقني إليها إخواني ولكن مع الهمة نصل للقمة فنجد فيها إخوانا ذوو همة همّهم الوحيد مساعدة غيرهم للوصول للقمة فلا يمكن الوصول للقمة إلا بعد بذل الهمة لا تحسبن المجد تمرا أنت آكله *** لن تبلغ المجد حتى تلعق الصبرا

أمين شكرا على كلماتك الطيبة يا أخ عمرو طبعا أنا فهمت شغلك تمام باقي نقطة مهمة جدا في برنامجك وهي أن كمية البضاعة المطلوبة غير موجودة فإذا كان مثلا تاريخ الطلب هو قبل شهر من الآن ولم يتم توريد أي بضاعة حتى الآن لو سألتك الشركة يا عمرو : كم الكمية المطلوبة ؟ لن تستطيع الجواب من خلال البرنامج لأنه لا يوجد خانة تبين ذلك عموما تم حل هذه المشكلة في المرفق الآتي لاحظ الأعمدة الأربعة الجديدة D و F و AD و ِِ AE تفضل تحليل المشتريات للموردين3.rar

السلام عليكم المرفق عبارة عن مجلد يحوي ملف وورد وملف الإكسل افتح ملف الوورد شرحت لك فيه فكرتي تفصيل الحافز.rar

مبارك عليكما الترقية وأتمنى أن تكون هذه الترقية حافزا لكما لتقديم المزيد مزيدا من التقدم مريدا من العطاء مزيدا من الهمة حتى تصلا إلى القمة التي لن يصلها إلا صاحب الهمة تحياتي