وليد فتحي

وعليكم السلام ورحمة الله وبركاته الاستاذ الفاضل مؤمن وحيد مرحبا بك بالمنتدي اضغط الملف باحد برامج الضغط مثل برنامج ( winRAR ) حتي تستطيع رفعه على المنتدي وهذا رابط فيديو للاستاذ حماده عمر لكيفية رفع ملف على المنتدي http://www.officena....showtopic=44625

عليكم السلام ورحمة الله وبركاته أخي وحبيبي في الله محمد أبو البراء حلولك كلها أكثر من رائعة لك كل تحيه وتقدير

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

الشكر لله أخي محمد انه اتم التوصل لطلبك وجزاك الله كل خير لكلامك العطر لك كل تحيه وتقدير

عليكم السلام ورحمة الله وبركاته أخي وحبيبي في الله محمد أبو البراء تسلم ايدك دائما لك لمساتك الجمالية والنهائية جزاك الله كل خير وزادك من علمه لك كل تحيه وتقدير

الشكر لله أخي أنس واقرر لك الدعوة بتغيير اسم الي اللغة العربية لسهولة التواصل

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل محمد الخازمي على حسب ما فهمت من كلامك اتفضل الملف عند الضغط على نفذ سوف تصبح قيمة الخلية H6 بتساوي صفر مسح خلية_w.rar

بعد اذن الاستاذ محمود شريف ضيف اي ورقة جديد واعمل حفظ للملف واغلق الملف وافتحة سوف تجد اسم الورقة تم اضافته للقائمة بالصفحة الرئيسية وللعودة الي الصفحة الرئيسية انسخ المفتاح المسمى بعودة للواجهة وضيفة للصفحة الجديد

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

الشكر لله اخي الفاضل ابو الزهراء ومعاذ وجزاك الله كل خير لكلامك العطر تقبل تحياتي

عليكم السلام ورحمة الله وبركاته اتفضل استاذ ابو حبيبة الملف الذي قمت بتحميله سابقا من المنتدي به طلبك كود لحماية أكثر من نطاق بدون حماية الورقة_2.rar

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

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

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

السلام عليكم ورحمة الله وبركاته عذرا كان يوجد بعض المعادلات مش شغالة بالملف ونبهني لها الاستاذ زياد جزاه الله كل خير الملف بعد التعديل كشف تحصيل معدل1.rar

السلام عليكم ورحمة الله وبركاته اتفضل استاذ ضياء الملف المرفق على حسب ما فهمت من كلامك اتمني من الله ان يكون هذا طلبك VIP 2014_w.rar

وعليكم السلام ورحمة الله وبركاته الاستاذ الفاضل Concord مرحبا بك بالمنتدي ولك مني دعوة طيبة بتغيير اسمك الي اللغة العربية طبقا لسياسة المنتدي ثانيا اضغط الملف باحد برامج الضغط مثل برنامج ( winRAR ) حتي تستطيع رفعه على المنتدي وهذا رابط فيديو للاستاذ حماده عمر لكيفية رفع ملف على المنتدي http://www.officena....showtopic=44625

أخي الفاضل المولدي جزاك الله كل خير على دعائك الطيب وهل هذا ما كنت تريده

السلام عليكم ورحمة الله وبركاته اخي الفاضل أنس اولا لك من دعوة طيبة بتغيير اسمك الي اللغة العربية طبقا لسياسة المنتدي واتفضل الملف أتمني من الله أن يكون هذا طلبك تحياتي لك خارج محصور بين عددين_w.rar

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

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

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

عليكم السلام ورحمة الله وبركاته جرب اخي الفاضل الكود التالي لاحد الاساتذة الافاضل بالمنتدي لا اتذكر بالتحديد لمين مع ملاحظة انه يجب تسمية النطاق الذي يوجد به معادلا باسم (myrange) عن طريق تظليلها واذا كانت بعيده عن بعضها استخدم مفتاح Ctrl Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفوا ليس لديك الصلاحية للتعديل" End If End Sub

وأيضا يمكنك استخدام هذا الكود به رسالة تنبيه Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Not Intersect(Target, [a1:iv36536]) Is Nothing Then If Target.HasFormula Then MsgBox "عفوا ليس لديك الصلاحية للتعديل" End If End Sub

عليكم السلام ورحمة الله وبركاته الاخ الفاضل أو حبيبة يمكن ان تضع الكود التالي في الورقة التي بها المعادلات ولن يتم الوقوف على الخلية التي بها معادلات ستتخطاها وتقف على الخلية الفارغة اتمني ان يفيدك هذا بطلبك Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub