دغيدى

أخى الفاضل سلام الله عليكم الموضوع واسع ولكنه سهل .. فضع ملفا حتى يمكن تحديد المطلوب بدقة .. الكل فى خدمتكم

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If [a1] = "" Then MsgBox " فارغة a1 الخلية " Exit Sub End If ActiveSheet.Name = [a1] End Sub يمكن ان تضع نفس الكود فى ThisWorkbook ليتغير تلقائيا دون زر أمر

أخى الفاضل اا عبدالله المجرب اا شكرا لكم على ماتقدمه من درر ثمينة

الأستاذ / الفاضل / خبور سلام الله عليكم وعلى أهلى باليمن جمعة مباركة عمل طالما انتظرته كثيرا فتح الله عليكم من علمه واثابكم عليه

أخى الفاضل *** أحمد فضيلة ** سلام الله عليكم أشكركم على الاهتمام بالرد .. فشكرا لكم

أخى الفاضل / الشهابى مبارك عليكم .. إلى الأمام دوما

أخى الفاضل *** أحمد فضيلة ** سلام الله عليكم اخترتم دالة SUBTOTAL وهى جميلة ومتعددة واخترتم ترقيم الظاهر فقط دون المخفى بالمعامل 103 بدلا من المعامل 3 ولكن لم أفهم علامة (+ ) الموجودة فى بداية الدالة

اخى الفاضل دوما / جمال اسماعيل الفار شكرا لكم على حشرى وسط العمالقة

أخى الفاضل / نادر وفقكم الله على الطريق المنير تقبل تحياتى

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

تفضل أخى على نفس الملف حساب السن.rar

Private Sub Workbook_Open() Sheets("الصفحة المطلوبة").Select End Sub أو Sub auto_open() Sheets("الصفحة المطلوبة").Select End Sub ضع هذا الكود فى ThisWorkbook وغير اسم الصفحة المراد الفتح عليها فى الكود

الأخت الفاضلة / صفاء سلام الله عليكم تم عمل ربط بين أرقام الجلوس والبيانات والصفحة بها 8 أرقام جلوس متغيرة البيانات عند الطباعة هل ترغبين فى عمل شهادة واحدة متغيرة على غرار ارقام الجلوس ارجو ايضاح طلبكم واشهادة للنصف الأول أم لآخر العام

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

عفوا الملف الحالى يعمل بكل كفاءة كود رقم الجلوس 3.rar

أخى أبو عبد الله بارك الله فيكم

تفضلى مرة ثانية حسب طلبكم الأخير كود رقم الجلوس.rar

تفضلى ومنتظر الرد تم عمل المطلوب وعمل زر طباعة لصفحة واحدة وآخر لجميع الصفحات 2 كود رقم الجلوس.rar

الأخت الفاضلة / صفاء برجاء استكمال البيانات مثل : اللجنة ومكان اللجنة ونحن معا

أخى الفاضل /الشهابي أشكركم من كل قلبى

أثابكم الله

أخى الفاضل دوما أكرمكم الله بفضله

أخى الفاضل سلام الله عليكم برجاء النظر على المشاركة رقم 4 للأخ الفاضل / عماد الحسامى

أخى الفاضل العيدروس سلام الله عليكم أثابكم الله على ماتقدموه من خير .. شكرا لكم

Sub Rnd_N_REP() Dim myrange As Range, rr, cc, pp As Integer rr = [B2]: cc = [B1] pp = rr * cc + 1 Range("d3").SpecialCells (xlCellTypeLastCell) Set myrange = Range("d3", [d1000]) myrange.ClearContents ' myrange.Interior.ColorIndex = xlNone Set myrange = Range("d3", [d3].Offset(rr - 1, cc - 1)) 'myrange.Interior.ColorIndex = 6 Randomize For i = 0 To pp - 2 rw = i Mod rr + 3 If rr = cc Then cl = Int(i / cc) + 3 Else cl = i Mod cc + 4 10 x = Int(Rnd * pp) For Each ce In myrange If ce = x Or x = 0 Then GoTo 10 Next ce Cells(rw, cl).Value = x Next i [d3].Select End Sub الأخوة الأفاضل / أشكركم لقد توصلت إلى الحل