احمدزمان

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

السلام عليكم اضغط STEP1 ثم اختار اسم الورقة اضغط STEP2 ثم اختار اسم الإدارة التعليمية او المكتب اضغط STEP3 تظهر لك القائمة بالمدارس يمين الورقة و امامها عدد مرات التكرار تحياتي و تقديري school.rar

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

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

السلام عليكم و رحمة الله حياك الله اخي مهند بين اخوانك و احبائك لاحظ اخي الكريم

السلام عليكم و رحمة الله وبركاته بعد اذن اخي الحبيب و الأستاذ القدير ابو البراء هذا حل آخر بتفعيل عرض ملء الشاشة Sub Macro1() Application.DisplayFullScreen = True End Sub Sub Macro2() Application.DisplayFullScreen = False End Sub

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

السلام عليكم يجب تطابق اسماء المدارس يجب تسمية النطاقات لإستخراج البيانات ملف إدخالات العام الحالي للغياب00.rar

جزاك الله خيرا اخي العيدروس

الله يعافيك

و عليكم السلام اخي جرب الملف التالي بإذن الله لن تواجه هذه المشكلة تم اضافة سطر للكود on error resum next استدعاء بيانات 111.rar

و عليكم السلام و رحمة الله وبركاته تم اضافة الكود الى Ctrl+Q مع رسالة تنفيذ آمل ان يكون هذا المطلوب استدعاء بيانات 111.rar

السلام عليكم و رحمة الله وبركاته خالص الشكر و التقدير للأستاذنا الفاضل ابو خليل و الأخ الفاضل ياسر اخي ناصر حاولت فتح الملف ولكن تواجهني رسالة (( لم يتم التعرف على تنسيق هذا الملف )) لذلك اذا لم يتم حل المشكله فضلا رفع الملف بصيغة XLS او اوفيس 2003 مع التحية

السلام عليكم و رحمة الله وبركاته اسعد الله صباحكم بكل خير بعد الشكر الجزيل لأخونا ياسر الكود التالي يقوم بنسخ التنسيقات من ورقة 2 من A الى J وينسخها الى كافة اوراق الملف Sub MACRO1() 'äÓÎ ÊäÓíÞ æÑÞÉ 2 Çáì ßá ÇæÑÇÞ ÇáãáÝ Dim RN1 As Range, SH, ER ' Sheets("ورقة2").Select Sheets("ورقة2").Range("A9:J9").Copy For SH = 2 To Sheets.Count ER = Sheets(SH).UsedRange.Rows.Count Set RN1 = Sheets(SH).Range("A8:J" & ER) RN1.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False RN1.PasteSpecial Paste:=xlPasteColumnWidths Next SH Application.CutCopyMode = False End Sub

السلام عليكم و رحمة الله وبركاته اخي ابو عمار في المرفق ادخل رقم الموظف تظهر بياناته اذا كان موجود من السابق تظهر بياناته عدل ماتريد و اضغط اضافه او تعديل اذا كان الرقم غير موجود من السابق قم باضافة البيانات الجديدة و اضغط اضافه او تعديل آمل ان يكون هذا المطلوب موظفين-ابوعمار.rar

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

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

السلام عليكم و رحمة الله وبركاته اخي الكريم الفكرة رائعة جزاك الله خيرا

انا لله و انا اليه لراجعون لاحول ولا قوة الا بالله العلي العظيم اللهم اغفر له و ارحمه واعفو عنه و اكرم نزله اللهم انا نسألك ان تحسن اليه فلقد احسن الينا كثيرا

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

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