محمد عدنان

السلام عليكم شكرا اخ @lionheart جزاك الله كل خير كيف ممكن يظهر اسم caption ل chekbook في خلية h5 ?

السلام عليكم اخ @lionheart كيف ممكن اخلي النتجية تظهر في نفس الشيت خليةh5?

السلام عليكم هل يوجد طريقة لمعرفة عدد chekbox المحدد بصح ؟ عدد اذا كانت true و عدد false

السلام عليكم ارجو المساعدة في عمل الكود او المساعدة في فكرة لعمل البرنامج ؟؟ و جزاكم الله خير

السلام عليكم شكرا @lionheart و جزاك الله كل خير في ميزان حسناتك

السلام عليكم الماكرو التالي يقوم بتغيير اسم الشيت بناء على اسم الخلية لجميع اوراق العمل المطلوب عتد تغيير الاسم استثتاء بعص اوراق العمل Sub rename() Dim i For i = 1 To Sheets.Count If Worksheets(i).Range("n14").Value <> "" Then Sheets(i).Name = Worksheets(i).Range("n14").Value End If Next i End Sub

السلام عليكم ارجو المساعدة بماكرو للملف الملف حيث عند الضغط على زر طباعة تظهر form يتم من خلاله اختيار الشعب التي يراد طباعتها بعد ان يتم جلب الاسماء منه على شيت ثانية للطباعة مباشرة ارجو ان اكون قد اوجزت بالشرح و شكرا للكل كشوفات الطلبة للعام 2021-2022 frm2.xlsm

السلام عليكم ممكن مساعدة

السلام عليكم ارجو المساعدة بماكرو يقوم بنسخ البيانات المطلوبة من شيت table و شيت value الى شيت cer ثم بماكرو يقوم بتوليد صفحات شيت باسماء الطلبة على عدد الطلبة بنموذج الشهادة معبأ و شكرا لكم shehada.zip

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

يتم وضع اسم المادة في عمود بحانب اسم الصف

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

السلام عليكم جزاك الله كل خير و اشكر تعاونك و انك استحملتني في ميزان حسناتك

السلام عليكم شكرا لك لكن لا يمسح الصف و الشعبة

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

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

السلام عليكم الاخ @محي الدين ابو البشر جزاك الله خير الجزاء تم وضع الكود و قام بترحيل الاسماء و سيتم التأكد من الترحيل عند وضع اسماء طلبة حقيقية ملاحظة 1. في اعلى الجدول هل بالامكان ترحيل اسم الصف و الشعبة بناءاً على الاختيار من صفحة data 2. ماكرو لمسح الاسماء من الجدول لاعداد خيارات صفوف اخرى 3. ظهر الرقم صفر و 45 عند ترحيل اخر الصف الثاني الادبي ز و لم يرحل الاسماء كاملة تاقصة اسم واحد اكرر جزاك الله كل خير الجزاء لك و لجميع من تعاون معي لحل البرنامج في ميزان حسناتكم اسأل الله العظيم ان يمتعكم بالصحة و العافية

السلام عليكم اشكرك اخي @محي الدين ابو البشر على اهتمامك بالموضوع ارفق ملف معبأ يدوي حسب الاختيار من شيت data يعد ان يتم اختيار الصفوف و الشعب ( يمكن يكون الاختيار اكثر من 5 صفوف ) يتم الضغط على زر ترحيل الى شيت book مع الانتباه لترقيم الصفحات الترحيل يتم الى اسفل للصفحات الزوجية و عند الوصل الى صفحة 30 يصبح الترحيل زوجي لكن صعودا في صفحة book الغاية من ذلك الطباعة على شكل كتيب و شكرا لك و للجميع و اتمى اني قد اوجزت في الشرح و المساعدة اخ @محي الدين ابو البشر مع ملاحظة ان اعداد الطلبة متغيرة كتيب العلامات 2022-2معدل مثال.xlsm

السلام عليكم ارجو اعتماد هذا النموذج كتيب العلامات 2022-2معدل.xlsm تم التعديل على ارقام الصفحات

السلام عليكم ارجو المساعدة في ترحيل متعدد و اختيار الصفوف من صف واحد و لغاية 24 من خلال شيت data من الخلايا b4, b5,b6...........b27 ثم الضغط على زر ترحيل الى شيت book حسب الترقيم اسفل الجدول الكود التالي كنب بمساعدة الاخ @hassona229 , و له جزيل الشكر و يقوم بترحيل صف واحد Sub Test() Const nRows As Long = 25 Const sCells As String = "b39,b103,b167,b231,b295,b359,b423,b487,b551,b615,b679,b6,b71,b135,b199,b263,b327,b391,b455,b519,b583,b647" Dim x, a, t, ws As Worksheet, sh As Worksheet, wsdata As Worksheet, rng As Range, r As Range, lr As Long, n As Long, i As Long, m As Long, ii As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets("Name") Set sh = ThisWorkbook.Worksheets("book") Set wsdata = ThisWorkbook.Worksheets("data") sh.Range("a6:b30,a39:b63,a71:b95,a103:b127,a135:b159,a167:b191,a199:b223,a231:b255,a263:b287,a295:b319,a327:b351,a359:b383,a391:b415,a423:b447,a455:b479,a487:b511,a519:b543,a551:b575,a583:b607,a615:b639,a647:b671,a679:b703").ClearContents x = Application.Match(wsdata.Range("b4").Value, ws.Rows(2), 0) If Not IsError(x) Then lr = ws.Cells(Rows.Count, x).End(xlUp).Row If lr < 4 Then MsgBox "No Data", vbExclamation: Exit Sub Set rng = ws.Range(ws.Cells(5, x - 1), ws.Cells(lr, x)) a = rng.Value n = UBound(Split(sCells, ",")) + 1 For i = 1 To n Set r = sh.Range(Split(sCells, ",")(i - 1)) t = Application.Index(a, Evaluate("(Row(" & m + 1 & ":" & m + nRows - 1 + 1 & "))"), Array(1, 2)) m = m + nRows For ii = UBound(t) To LBound(t) Step -1 If IsError(t(ii, 1)) Then t(ii, 1) = Empty t(ii, 2) = Empty Else Exit For End If Next ii r.Offset(0, -1).Resize(UBound(t), 2).Value = t Set r = Nothing Next i End If Application.ScreenUpdating = True End Sub الملف في المرفق كتيب العلامات 2022.xlsm

السلام عليكم شكرا لك اخ @hassona229 جزاك الله خير الجزاء في ميزان حساناتك

السلام عليكم جزاك الله كل خير اخ @hassona229 هل بالامكان ترحيل اكثر من صف غير الخلية b4 من شيت data علما بان عدد الصفوف 24 و شكرا لك في ميزان عملك و بارك الله لك بمالك و عيالك و صحتك

السلام عليكم اخ @hassona229 اشكر اهتمامك بالموضع بعد نسخ الكود طلع مشاكل انا مش فاهم شو اعدل في الكود عشان يشتغل انا لااعرف برمجة انا بعرف معادلات اكسل فقط ارجو المساعد في تشغيل الملف و يرحل الاسماء بشكل جيد و اشكر الجميع للاهتمام

السلام عليكم اخ @hassona229 نعم لكن للاكسل بعد تصدير الاسماء من شيت name الى book حسب الاختيار من شيت data اخ @hassona229 فكرة ملف العمل هو عملية ترحيل الاسماء الى ورقة book ثم يقوم بطباعتها على شكل كتاب الطباعة تكون بعد تسخ الاسماء للطلبة ملاحظة ليس نسخ جميع الاسماء للصفوف التسخ يكون شرط اختيار الصفوف من صفحة data الاختيار ممكن يكون صف واحد او خمسة او عشرة او اعلى اختيار 24 صف اتمنى ان يكون الشرح واضح و جزاك الله خير الجزاء السلام عليكم هل هنالك من طريقة لعمل الماكرو او اي فكرة لترحيل الاسماء،؟ و شكرا للجميع

السلام عليكم اخ @علي بطيخ سالم الاختيار راح يكون من قائمة منسدلة من شيت DATA من الخلية B4 يقوم بترحيل اسماء الطلاب من شيت NAME