أسامة عطاالله

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

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

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

شكرا لك استاذى العزيز على مجهودك وجزالك الله خيراً

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

اذا سمحت استاذى وضع كود للطباعة لطباعة جميع الصفحات وليس صفحة واحدة وشكرا لمجهودكم المبذول فى هذا الصرح

السلام عليكم ارجو المساعدة فى تغيير كود يعمل تلقائى فى الملف اريدة يعمل بزر هذا هو الكود خاص بالترتيب التلقائى عند اضافة اى اسم ولكن اريدة ان يعمل عند الضغط على زر Sub hben() LR = [b65000].End(xlUp).Row Set MyRng = Range("B2:C" & LR) MyRng.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("B2"), _ Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal Range("B2").Select End Sub ولو امكن شرح كيفية عملة لكى اطبق على ملفات اخرى الصف الاول.rar

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

كل عام وأنتم جميعا بخير

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

شكرا لك اخى العزيز لمجهودك وتعبك معى جزاك الله خيرا

مجهود مشكور علية اخى الكريم فعلا لسانى عاجز عن الشكر وشكرا لك على الشرح لكن يوجد مشكلة في الكود وهى عند اضافة مادة في فصل 1 / 4 مثلا وتحتها في فصل 1 / 5 وعند استخراج المادة ياتى الفصل الى عددة اكبر الى الامام ويتلغى الاخر ولم يرحل الى الامام الفكرة الموجودة في الكود صحيحة اخى الكريم وهى المطلوبة ولكن عجزت عن فهم الخلل يوجد صور للذى حدث

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

للرفع

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

للرفع

للرفع

الاخوة الكرام لو سمحتوا اريد شرح لهذا الكود وطريقة عملة هذا الكود هو المستخدم فى استخراج جدول المعلم واريد اعدلة لاستخراج جدول المواد فى الملف المرفق سابقا فاذا تكرم احد الاساتذة الكرام فى شرح هذا الكود او عمل كود لاستخراج جدول المواد الكود Sub Techers_List() Application.ScreenUpdating = False Dim X As Long, X1 As Long [D8:K19] = Empty With sheet4 For K = 4 To 44 Step 8 For J = 1 To 8 For I = 5 To 105 Step 2 If [G5] = .Cells(I, J + K - 1) Then X = Application.WorksheetFunction.Match(.Cells(1, K), [C7:C19], 0) / 2 X1 = Application.WorksheetFunction.Match(.Cells(2, J + K - 1), [D7:K7], 0) Cells(X * 2 + 6, X1 + 3) = .Cells(I - 1, J + K - 1) Cells(X * 2 + 7, X1 + 3) = .Cells(I - 1, 2) End If Next I Next J Next K End With End Sub

للرفع

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

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

للرفع

السلام عليكم الف مبروك للاخ / شوقى ربيع والف مبروك للاخ / الشهابى بالتوفيق ودائما فى ترقى ان شاء الله

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

للرفع