رجب جاويش

السلام عليكم تفضل أخى الجزء الخاص بعدم التعديل إلا من خلال الفورم أما الجزء الخاص بالمظهر الجميل فهى وجهات نظر وأذواق مختلفة يمكنك عمل التنسيقات والألوان التى تفضلها Book11.rar

أخى الفاضل /hafez81 جزاك الله كل خير

أخى الحبيب / محمود الشريف شكرا جزيلا أخى الحبيب على هذه الكلمات الرقيقة وجزاك الله كل خير

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

السلام عليكم أخى الفاضل جرب الكود التالى لتنفيذ ما تريد Sub ragab() For i = 1 To Sheets.Count Sheets(i).Cells.EntireRow.Hidden = False x = Sheet1.Range("A4") + 1 Sheets(i).Range("a" & x & ":a" & Rows.Count).EntireRow.Hidden = True Next End Sub اخفاء صفوف حسب عدد الطلاب.rar

ألف مليون مبروك الترقية وإلى الأمام دائما :fff:

أخى الفاضل /krimo145 لا يقوم المشرف بحذف أى مشاركات إلا اذا كان فيها اساءة أو كلمات بها تجاوز برجاء عند استعجال الرد على موضوعك أن يكون ذلك ذلك عن طريق كلمة ( للرفع ) أخى الفاضل قمت بعمل زر حذف وزر آخر للتعديل برجاء فحص الملف المرفق واخبارى بالنتيجة Book11.rar

الأخ الفاضل / ghaithx10 بعد أفضل تحية رحم الله والدك وأدخله فسيح جناته وتقبل الله عملك هذا صدقة جارية على روح والدك المغفور له بإذن الله تعالى أخى الحبيب جزاك الله كل خير ولا تشغل بالك بعدد الردود إنما الأجر والثواب عند الله تعالى أخوك / رجب جاويش

وكل عام وأنتم بخير .. والأمه الإسلاميه بخير نسأل الله عز وجل أن يتقبل منكم ومنا صالح الأعمال

أخى الفاضل تم تعديل العنوان ليناسب محتوى الطلب برجاء الإهتمام بهذه النقطة فى المرات القادمة ويرجى ارفاق ملف للعمل عليه لسهولة التنفيذ

أخى الفاضل / روان احمد تم تعديل عنوان الموضوع ليناسب محتوى الطلب برجاء الإهتمام بهذه النقطة فى المرات القادمة

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

السلام عليكم كل عام وانتم بخير تقبل الله منا ومنكم صالح الأعمال

أخى الفاضل / خالد استبدل السطر التالى If Target.Value < 15 Then Target.Interior.ColorIndex = 3 بهذا السطر If Target.Value < Cells(13, Target.Column).Value Then Target.Interior.ColorIndex = 3

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

السلام عليكم بعد اذن الأخت الفاضلة أم عبد الله ولاثراء الموضوع حل آخر تجربة.rar

أخى الفاضل أولا : مرحبا بك بين إخوانك فى منتدى أوفيسنا العريق ثانيا : برجاء تغيير إسم الظهور إلى اللغة العربية ليسهل التواصل بيننا ( طبقا لسياسة المنتدى ) ثالثا: يرجى ارفاق ملف توضح به المطلوب حتى يمكن العمل عليه رابعا: يجب كتابه عنوان واضح للموضوع يدل على محتوى الطلب قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

أخى الفاضل / سليم تسلم ايديك

أخى الحبيب / قنديل الصياد فعلا أخى الحبيب هذا الملف رائع وممتاز ويحنوى على عدد كبير جدا من المواد يفى بالغرض للأزهر وللثانوى العام سلمت يداك وجزاك الله كل خير

أخى الفاضل أولا : مرحبا بك بين إخوانك فى منتدى أوفيسنا العريق ثانيا : برجاء تغيير إسم الظهور إلى اللغة العربية ليسهل التواصل بيننا ( طبقا لسياسة المنتدى ) ثالثا: سوف يتم تغيير العنوان ليناسب محتوى الطلب ولكن برجاء الإهتمام بذلك فى المرات القادمة رابعا: لا زال الموضوع غامض خاصة فيما يخص موضوع القرار أرجو مزيد من التوضيح قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

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

أخى الفاضل /maxstreets جزاك الله كل خير

السلام عليكم أخى الفاضل جرب المرفق مثال إستبدال اسماء الفروع.rar

بعد إذن أخى الفاضل / سليم مر أخى على هذا الرابط ربما تجد فيه ما تريد http://www.officena.net/ib/index.php?showtopic=51811&hl=

السلام عليكم تفضل أخى هذا الكود يقوم بعمل اللازم Sub ragab() Dim LR As Integer, R As Integer Dim Rng As Range, cl As Range '============================================== Set ws = Sheets("ورقة2") Set WF = Application.WorksheetFunction '============================================== LR = ws.Cells(Rows.Count, 2).End(xlUp).Row Set Rng = ws.Range("B2:B" & LR) Application.ScreenUpdating = False '============================================== Range("B2:M2").Copy If WF.CountIf(Rng, [B2]) > 0 Then ansr = MsgBox("هذا المشروع موجود بالفعل" & Chr(10) & " " & "اذا كنت تريد إستبدالة اضغط نعم" _ & Chr(10) & " " & "وان لم ترد استبداله اضغط لا", vbYesNo, "مشروع مكرر") If ansr = vbYes Then R = WF.Match([B2], Rng, 0) + 1 ws.Range("B" & R).PasteSpecial xlPasteValues GoTo 1 Else GoTo 2 End If End If 2: ws.Range("b" & LR + 1).PasteSpecial xlPasteValues LR = ws.Cells(Rows.Count, 2).End(xlUp).Row For Each cl In ws.Range("A2:A" & LR) cl = cl.Row - 1 Next 1: Application.CutCopyMode = False Application.ScreenUpdating = True End Sub