ناصر سعيد

عندما اردت معاينه تظهر رساله هل تود الطباعه ام لا ومع هذا قبل ان اضغط موافق تتم الطباعه اريد ربط المعاينه بالطباعه Sub معاينه_جلوس() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود طباعة الشهادة التي عاينتها؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate End Sub معذره تم التفعيل جزاكم الله خيرا

للرفع

هل لايمكن عمل معادله او كود يعمل في وجود المعادله الموجوده في العموديمنع تكرار الاسماء

للرفع

شكرا لمن ساهم وعشمي في الله كبير ان نجد الحل كل عمود اريد.. لايوجد به تكرارات للاسماء

شكرا لكم ولكن اين الحل كل عمود اريد.. لايوجد به تكرارات للاسماء

السلام عليكم ورحمة الله اخواني في الله ارجو عدم تكرار الاسماء في الاعمده D250 E250 - الى BG250 مع ملحوظة وجود معادلة في نفس الاعمدة تكرار الاسماء.rar

جزاك الله خيرا أخي الكريم وجزى الله استاذنا الكبير عبد الله وأدامه ذخرا لنا

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

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

تمام الله يحرسك الف شكر

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

اريد تحويل عملها عن طريق كود

استدراك في العمود 113 قبل عمود النتيجة ... الخاله يعني ناجح أم دور تاني وعمود النتيجه معنناه مواد الدور الثاني ربنا يجزيك استاذنا الغلامة عنا كل خير

قي هذا المرفق ازلت جميع الخلايا المدمجة اختبارالفصل الدراسى الثانى لأي طالب في أي ماده يجب أن يساوي أو أكبر من 30 % من الدرجة النهائيه للماده ولاتكون غ الدرجة الأصلية لأي طالب في أي ماده يجب أن تساوي أو أكبر من 50% من الدرجة النهائيه للماده ولاتكون غ في الحالتين السابقتين يكون الطالب في هذه الماده ناجح أما إذا كان الطالب غايب في اختبار الفصل الدراسي الثاني أو أقل من 30 % أو (أقل من 50 % أو غايب في الدرجة الأصليه) يكون الطالب عتده دور ثاني في هذه الماذة حالة الطاالب.rar

الحمد والشكر لله الذي رزقنا بالعلامة الكبير عبد الله يعني الواحد لازم يعرف آلية عمل كل معادلة ... اقتباس من حقك اخي العلامة

يارب

يارب ارزقني باحد الأفاضل يأتي بالحل

هذا مرفق به عمود الحاله وعمود مواد الدور الثاني اريد ان تظهر بيان الحاله ومواد الدور الثاني عن طريق كود جزاكم الله خيرا الحالة ومواد الدور الثاني.rar

مشكور اخي ولكن الرابط سيء لو سمحت ضع رابط لموقع اخر

جزاك الله خيرا وبارك فيك وحفظك الله من كل مكروه

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

عندي امل في الحل

ادعو الله ان اكون وفقت في هذه الاضافة Private Sub Worksheet_Activate() Application.ScreenUpdating = False Range("A11:O1000").Select Selection.ClearContents Range("A11").Select Set MySh = Sheets("ÈíÇäÇÊ ÇÓÇÓíÉ") j = 11 For i = 7 To MySh.[B1000].End(xlUp).Row Cells(j, 1) = MySh.Cells(i, 2) Cells(j, 2) = MySh.Cells(i, 12) Cells(j, 3) = MySh.Cells(i, 3) For r = 4 To 11 Cells(j, r + 4) = MySh.Cells(i, r) Next j = j + 1 Next Set MySh = Nothing Application.ScreenUpdating = True End Sub لاادري المنتدى مع الاكواد والكلمات العربي اصبح يكتبها طلاسم

للرفع رفع الله مقداركم