احمدزمان

السلام عليكم اذا كنت اضفت الملف Option اعمل اعادة تشغيل وجرب في ملف اكسل جديد وفاضي = = = = = = =

آسف و أتمنى ان لايزعلك هذا الكلام

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

اخي ياسر شكرا على الإطراء وفقك الله الى كل ما يحب ويرضى

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

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

السلام عليكم كما ذكر اخونا ياسر باستخدام التحقق من صحة اكتب في الخلايا الملونة وجرب العشري5اوصفر.rar

السلام عليكم بعد الشكر للأستاذ ابو احمد حل آخر لعله يفيد كما عمل الأخ عيدالله مع فرق بسيط هو اضاف التاريخ الى قيمة الساعات انا استخرجت قيمة الساعات بدون اي يوم بالدالة Time وعدلت دالتك للرموز بحيث تحسب من العمود E بدل العمود A =TIME(HOUR(A2);MINUTE(A2);0) المرفق time.rar

جزاك الله كل خير استاذنا الكبير في مكانته / محمد طاهر

أخي الكريم سعد جزاك الله كل خير واحبك الله الذي احببتنا فية عملية النسخ و اللصق تعتمد على هذين السطرين fs.Range("C7:D81").Copy ts.Range("C7").PasteSpecial Paste:=xlPasteValues كررهم وضيف عليهم وعدل ف المدى زي مانته عاوز مافي اي مشكلة سواء المدى له اسم محدد او تشير اليه بالخلية من الى كما عملنا سابقا مافي مشكلة ابدا

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

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

طبعا الحل قريب من فكرة الأخ العزيز عبدالله جرب المرفق Sub trheeeeel() Set fs = Sheets("الرئيسية") Application.ScreenUpdating = False For r = 1 To 9 sh = fs.Cells(r, 21) shc = Worksheets.Count For shn = 1 To shc If Sheets(shn).Name = sh Then Set ts = Sheets(sh) fs.Range("C7:D81").Copy ts.Range("C7").PasteSpecial Paste:=xlPasteValues fs.Range("L7:L81").Copy ts.Range("G7").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False GoTo 9 End If Next shn 9 Next r End Sub الشرح الكود يكرر نفسة 9 مرات - يعني ممكن تضيف اسماء اوراق الى 9 اسماء في القائمة السوداء من الصفحة الرئيسية ياخذ اسم الورقة من الخلية يمر على كل اوراق الملف ويشوف اسم الورقة اذا وجدة يطابق الإسم الي اخذة يوقف عنده ينسخ الأعمدة المطلوبة يلصق المطلوب في مكانه يغلق امر النسخ و اللصق يروح للخليه الي بعدها ويأخذ الإسم التاني ويبدأ من جديد آمل ان يكون واضح وآمل ان يكون هذا المطلوب مع التحية و التقدير للجميع ياسر و سعد وعبدالله ترحيلToYaser.rar

* نحن بنتظار حلك يا بني انا جاهز يابابا بس اعطيني ثوااااني

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

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

الله يعافيك الشيت الثاني jory.rar

الملف jory.rar

السلام عليكم و رحمة الله وبركاته الله يحفظلك جوري وزياد اخي الفاضل الملف لالثاني ممتاز ومظبط ولكن الملف الأول آخر شعترة استحيت ارجع اقولك ظبط الملف الأول - واشتغلت عليه قد ما اقدر المهم في المرفق تم استخدام الدالة SUMPRODUCT للحساب و الجمع و العدد كان المفروض نضيف عمود نحدد فيه سعودي او غير سعودي و عمود نحدد فيه شاغر وغير شاغر والحمد لله عدلنا في الدوال قد مانقدر ايضا معلومة اكيد تعرفها ولكن من باب التذكير في فرق بين شاغر و شاغرة و الشاغرة طبعا وهذا ينطبق على كل الأسماء الموجودة في الملف

السلام عليكم و رحمة الله وبركاته اخي نارت جزاك الله خير على التنبيه اخي السائل الملف ليس بطيء ولاحاجة لأنه عند ادخال اي قيمة في اي خلية استجابة الملف فورية ولكن البطأ جاء من اكواد Vb يحتاج الى شوية تعديلات في الأكوادvb المستخدمة وعمل اختصارات لها - او استبدال بعض الأكواد التي لاحظت انها تجلب بيانات او تجمع بيانات من اوراق اخرى وهذا يجعلها تدخل في حلقات دائرية مطولة بسبب استخدام الأمر For و Next وفي حالة هذا الملف (من وجهة نظري الشخصية) يجب علينا الإستعانة بـ الدوال قليلا التي تعطينا نتائج فورية بدون كبر حجم الملف كثرة تسميات النطاقات في الملف مع امكانية اختصار هذه التسميات و استخدام الدالة Index للإشارة الى اي نطاق محدد المهم و الأهم كيف تبغانا نعرف السبب فين و اكواد vb في الملف محمية ولا نستطيع الوصول اليها والله اعلم

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

الأخت جوري او الأخ زياد ممكن خطوة خطوة نمشي مع بعض [code/] في الشيت الأول: يحسب لكل قسم كم عدد الوظائف حسب المسمى وتكاليفها والجنسية والجنس: فمثلا الإدارة كم بها وظيفة مشغولة وكم شاغرة: تكاليف الشاغر وتكاليف المشغول: سعودي غير سعودي وفقا للبيانات في الصفحة الأساسية. كتقرير مختصر عن الوظائف وتكاليفها. اعطيني شكل هذه الصفحة كيف يكون

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

مع التحية اخي عماد

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