محمد عدنان

السلام عليكم استاذ @حسين مامون عند تجربة البرنامج اذا كان عدد الناحجين اكثر من 30 لايقوم بتخزين في الجدول المقابل من 31 الى 60 ؟ شو الحل . و جزاك الله كل خير

السلام عليكم الاستاذ @حسين مامون جزاك الله كل خير الكود يعمل بشكل جيد

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

السلام عليكم جزاك الله كل خير اخ @حسين مامون ارسلت لك في قائمة الاكمال نا هو مطلوب معبا يدوي معلاحظة ان عدد الطلاب في قائمة الناجحين و الراسبين و قائمة الاكمال مساوي للعدد في جدول table و في قائمة الناجحين هل بالامكان اظهار المعدل في الملاحظات و تكون القائمة مرتبة من الاعلى معدل الى الادنى اذا ممكن شرح للكود و جزاك الله كل خير اكرر شكري لك FTable.xlsm

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

السلام عليكم و رحم الله و بركاته اسعد الله مسائكم بكل خير ارجو المساعدة بماكرو يقوم بفرز الطلبة في الشيت FINAL التي تحتوي على ثلاث صفحات الملف Final Table يحتوي على شيت عدد 2 المطلوب هو فرز الطلبة من شيت Table الى شيت Final كالاتي 1. الصفحة الاولى فرز جميع الطلبة التي يكون بجانبها في الخلية BI كلمة ناجح حسب النتيجة السنوية 2. الصفحة الثانية فرز جميع الطلبة التي يكون بجانبها في الخلية BI كلمة راسب او راسب بسبب الغياب او اي ملاحظة غير كلمة تاجح حسب النتيجة السنوية 2. الصفحة الثالثة فرز جميع الطلبة التي يكون بجانبها في الخلية BA , BC , BD مادة و يرحل الاسم او المواد المكمل بها مع مطابقة عدد الطلاب في الشيت table مع الثلاث صفحات و جزاكم الله خير 399701656_FinalTable.xlsx

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

السلام عليكم جزاك الله كل خير @محي الدين ابو البشر هل بالامكان حفظ الشيت الاثنتان بمصنف واحد اسمه بالخلايا BA4 و خلية 4BF . و حفظ الشيت الاثنتان داخل المصنف كل واحدة على شيت ( شيت عدد 2 كل منها باسم اسم الاولى 1-46 و الثانية 46-75 .

السلام عليكم الاستاذ @محي الدين ابو البشر جزاك الله خير سؤال اذا كانت شيت Table تحتوي على معادلات عند الترحيل تعطي خطأ هل من طريقة لترحيل القيم بدون معادلات و يكون الترحيل لنفس الملف و يحتوي عل شيتاسمها 1-45 و شيت الاخر من 46 - 90 و يكون اسم الملف هو اسماء الخلية ؟ ما هو التعديل على كود اشكرك استاذ

السلام عليكم المقصود ان لا يتم حفظ الشيت مع الشيت الاصلي و ان يسمى باسم خلية معينة تكون قيمتها اسم الصف و الشعبة و لتكن BA4 و خلية BF4 و يصدر الشيت الى مكان تختاره كل الاحترام و التقدير لاهتمامك @محي الدين ابو البشر

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

السلام عليكم و رحمة الله و بركاته الملف المرفق يحتوي جدول العلامات ل 65 طالب المطلوب بماكرو او طريقة بتصدير الملف بكشف بجيث تكون الترويسة ثابتة من السطر 1 الى 10 و التذييل اخر الاسطر بحيث يكون كل 45 طالب بكشف يعني الكشف الاول : الترويسة ثم 45 طالب ثم التذييل الاسفل الكشف الثاني : الترويسة و يكمل من 46 لغاية نهاية الكشف ثم التذيل في الاسفل و جزاكم الله كل خير 1212.xlsx

السلام عليكم الاساتذة @Hicham1470 , و الاستاذ @محي الدين ابو البشر و الاستاذ @abdelfattahbadawy كل الشكر و التقدير و جزاكم الله كل خير

العمود الذي به القيم -1 هو BI و التغير في العمود BI شو اغير بالكود عشان يشتغل كل الاحترام لك @محي الدين ابو البشر

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

السلام عليكم شكرا لك استاذ @Hicham1470 كل الاحترام و التقدير انا اريد استبدال الخلية التي تقابل القيمة -1 بعبارة متسرب و ليس راسب على ان لا تتغير باقي الخلايا

السلام عليكم و رحمة الله و بركاته ما هو ماكرو يقوم بقراءة العدد -1 في العمود d يقوم بتغير القيمة التي مقابلها من ناجح الى متسرب مصنف 22.xlsx

السلام عليكم ...الاستاذ @أ / محمد صالح ...كل الاحترام و التقدير لك

السلام عليكم و رحمة الله و بركاته ارجو المساعدة بماكرو يقوم بتعبئة الخلايا الفارغة في الإكسيل في الرينج Range("H11:AT75") باشارة ( "-") و شرط ان يكون اخر خلية في العمود B تحتوي على اسم تكون بخط واضح و عريض اسم الشيت Table ؟ الكود التالي للاسناذ الكبير @سليم حاصبيا Sub test() On Error Resume Next Range("H11:AT75", Range("H11:AT75"). _ End(4)).Offset(, 1). _ SpecialCells(4).Value = "Abscent" End Sub هل بالامكان التعديل عليه ليكون الانتهاء عند اخر قيمة موجودة في العمود b المصنف1.xlsx

السلام عليكم الاستاذ الكبير @حسين مامون جزاك الله كل خير و الله يعطيك العافية البرنامج يعمل بشكل جيد 100% كل الاحترام و التقدير لك ملاحظة هل يمكن بعد عملية البحث وضع زر لحذف السطر المظلل و يقوم بحذفها من الشيت اكرر شكري لك في ميزان حسناتك

هل عن طريق الكومبو بكس بمكن اظهار اسماء الشعبة الواحدة في الليست بوكس ؟ الجزء الثالث اظهار اسماء طلاب الشعبة و عددها

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

السلام عليكم اخ @حسين مامون الله يعطيك العافية لكن الكود لا يعمل يظهر الخطأ

السلام عليكم و رحمة الله و بركاته ...كل عام و انتم بخير ارجو المساعدة بماكرو جزء اضافة الطالب يقوم باختيار الصف و الشعب يتم اضافة الاسم عنده و جزء البحث الاسم يظهر جميع الاسماء حسب الاسم ليظهر باي صف موجود و الجزء الثالث تختار صف و شعبة ليظهر محتوياتها ..و الملف مرفق ...و جزاكم الله كل خير ... في محاولة لعمل كود البحث التالي شو التعديل او الخطأ لماذا لاتظهر نتائج Private Sub CommandButton2_Click() On Error GoTo Error If Txtname1 = "" Then MsgBox ("أدخل نص في حقل البحث") Else Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Font.Color = vbRed Application.Wait (Now + TimeValue("0:00:02")) ActiveCell.Font.Color = vbBlack End If Exit Sub Error: MsgBox ("لا تتوفر نتائج للبحث") End Sub Private Sub ListBox4_Click() Txtname1.Value = ListBox4.Value End Sub Private Sub Txtname1_Change() Dim X As Long, Cell As Range ListBox4.clear For Each Cell In Range("A6:Aw77" & Cells(Rows.Count, 1).End(xlUp).Row) X = InStr(1, Cell.Value, Txtname1.Text) If X > 0 Then ListBox4.AddItem Cell MsgBox Cell End If Next Cell End Sub كشوفات الطلبة الرسمي 2022 - 1.xlsm

السلام عليكم الاستاذ @أ / محمد صالح جزاك الله الجنة ما شاء الله عليك كل الاحترام و التقدير لشخصكم الكريم