رجب جاويش

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

أخى الفاضل / مصطفى جزاك الله كل خير

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

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

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

أخى الحبيب / جمال جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة

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

أخى الفاضل لا يوجد أى خلايا محددة داخل الملف الملف المرفق هو الملف القديم ولا يوجد به أى تعديلات جديدة

أخى الفاضل بالنسبة للطلب الثانى عمل نسخة من الملف باسم جديد هذا هو الكود المستخدم Const N_File As String = "b2013c" Sub save_copy() Application.ScreenUpdating = False Application.DisplayAlerts = False '============================================================= Old_File = ActiveWorkbook.Name F_path = ActiveWorkbook.Path ActiveWorkbook.SaveAs Filename:=F_path & "\" & N_File & ".xls" Workbooks.Open F_path & "\" & Old_File Workbooks(N_File).Save Workbooks(N_File).Close '============================================================= Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub b2013.rar

أخى الفاضل الأفضل ارفاق ملف به مثال موضح عليه ما تريد

أخى الفاضل يرجى ارفاق ملف توضح به ما تريد حتى يتم العمل عليه

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

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

شكرا جزيلا أخى الفاضل وجزاك الله كل خير

هل تقصد هكذا مريض السكر.rar

أخى الفاضل جرب الملف المرفق شاشة ادخال4تعديل.rar

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

أخى الفاضل حسام مصطفى شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة العطرة وجزاك الله كل خير

أخى الفاضل بالنسبة للمعادلة الموجودة فى عمود المسلسل فى صفحة ناجح =IFERROR(INDEX(الشيت!$A$9:$A$38;SMALL(IF(الشيت!$DQ$9:$DQ$38="ناجح ومنقول للصف الثانى";ROW(الشيت!$A$9:$A$38)-8);ROWS($A$9:A9)));"") هى معادلة بحث عن أرقام المسلسل المقابلة للطالب الناجح حيث تم استخدام دالة INDEX للبحث فى عمود المسلسل فى صفحة الشيت عن الأرقام المقابلة للطالب الذى فى خانة الحالة بالنسبة له ( ناجح ومنقول للصف الثانى ) ثم المعادلات الموجودة فى بقية الخانات هى دالة بحث بسيطة بدلالة المسلسل الذى تم الحصول عليه فى المعادلة السابقة =IFERROR(INDEX(الشيت!B$9:B$38;MATCH($A9;الشيت!$A$9:$A$38;0));"") حيث يتم البحث عن البيانات المقابلة لرقم المسلسل للطلاب الناجحين

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

أخى الحبيب / حمادة عمر الدينامو المثابر النشيط جزاك الله كل خير

بعد اذن أستاذى الحبيب / عبد الله باقشير أخى جودة السطر التالى If Val(Col) < 21 Then هو المسئول عن تحديد الحد الأدنى ويمكن تغيره الى السطر التالى If Val(Col) < Val(Range("C2")) Then حيث يتم تغيير الحد الأدنى من الخلية C2 كما تشاء جوده.rar

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

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

أخى الفاضل ولا يهمك أنا معك لن أمل حتى تصل الى ما تريد نفذ الكود التالى Sub ragab() Range("A1") = ActiveCell.Top End Sub قم بالوقوف على أى خليه تريدها بالماوس ( المراد معرفة الـ TOP لها ) ونفذ الكود السابق سوف تجد مكتوب فى الخليه A1 قيمة الـ TOP الخاصة بالخلية المحددة