محمد عدنان

السلام عليكم المقصود ان لا يتم حفظ الشيت مع الشيت الاصلي و ان يسمى باسم خلية معينة تكون قيمتها اسم الصف و الشعبة و لتكن 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

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

السلام عليكم و رحمة الله و بركاته كيف يمكنني الاستغناء من الزر من خلال قائمة المنسدلة تقوم بالاختيار للصف فيقوم باحضار اسماء الطلاب ؟ مع مسح اي بيانات سابقة قبل استدعاء اسماء الطلاب و شكرا name2.xlsm

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

السلام عليكم و رحمة الله و بركاته الكود التالي يقوم بتسمية الصفحات باسم الطالب الموجود في الخلية n14 احيانا اواجه مشلكة اسم الطالب الرباعي بكون اكثر من 31 حرف المطلوب حفظ اسم الشيت باسم الطالب مكون من رقم يكون في الخلية aj1 مع الاسم الاول و الاخير للطالب الموجود في الخلية N14 ما هو التعديل على الماكرو ؟. Sub Rename_Worksheets() Dim i As Long For i = 1 To Sheets.count If Worksheets(i).Name <> "cer" And Worksheets(i).Name <> "Table" And Worksheets(i).Name <> "VS" Then If Worksheets(i).Range(Trim("N14")).Value <> "" Then Sheets(i).Name = Worksheets(i).Range(Trim("n14")).Value End If End If Next i Sheets("Value").Activate End Sub

السلام عليكم هل بالامكان تصدير الملف pdf باسم كل صف ؟

السلام عليكم اخ @Adnan2022 صدقت و اتوقع انها لغة سي شارب او فيجول بيسيك دوت نت كل الاحترام

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

السلام عليكم و رحمة الله و بركاته ارجو المساعد بماكرو يقوم بقراءة الاسم كامل في الخلية و يعمل على مد الاسم بناءا على حجم الخلية و على نفس المستوى التوضيح في الملف المرفق قبل و بعد و جزاكم الله كل خير في هذه الايام الفضيلة مد الاسماء.xlsx

السلام عليكم و رحمه الله و بركاته المساعدة بماكرو يقوم في صفحة Lists في الملف المرفق تختار طباعة فيظهر فورم تقوم باختيار الصفوف بحيث يقوم ماكرو بانشاء صفحة بعدد الاختيار ثم يعبا اسماء الطلبة كل صف في صفحة و شكرا كشوفات الطلبة.xlsm

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