ايمن ابو علام

شكرا على هذا العمل الاكثر من رائع

مااروع هذه الاعمال .الشكر كل الشكر لرجال هذا المنتدى العظيم

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

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

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

شكرا وتم التحميل

وهذه صورة بالملف المرفق للرسالة التى تظهرالصورة التى تظهر.rar

Dim lr As Integer, y As Integer lr = [b10000].End(xlUp).Row Sheets("ناجحون").Range("a9:ho1000").ClearContents Sheets("راسبون").Range("a9:ho1000").ClearContents Application.ScreenUpdating = False x = 9: y = 9 For i = 9 To lr If Cells(i, 3).Value = "ناجح" And Cells(i, 4) <> " " Then Range("a" & i).Resize(1, 223).Copy Sheets("ناجحون").Range("a" & x).PasteSpecial xlPasteValues Application.CutCopyMode = False x = x + 1 ElseIf Cells(i, 3).Value = "له دور ثان" And Cells(i, 4) <> " " Then Range("a" & i).Resize(1, 223).Copy Sheets("راسبون").Range("a" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 1 End If Next i MsgBox "تم بحمد الله فصل الناجحين والراسبين فى كشوف منفصلة", vbOKOnly, "ترحيل الناجحون والراسبون" Application.ScreenUpdating = True End Sub ============== الاخ / الفاضل رجب جاويش لقد تم تحميل ملف الشرح والحمد لله وقمت بتفحص وملاحظة هذا الكود واشكرك كثيرا وحاولت ان اتعلم واتدرب على تنفيذ الامر بنفسى فقمت باخذ نسخة من الشيت وحذفت الماكرو الخاص وكان اسمة ( ragab ) وقمت بمسح بيانات صفحة الناجحين وصفحة الراسبين . وبعد ذلك نسخت الماكرو من اختيار ماكرو رجب ثم تحرير ثم نسخ( وكان ذلك طبعا قبل حذف الماكرو ) فاصبح بذلك الشيت ينقصة الامر الخاص بالترحيل .ثم قمت بعمل ماكرو والصقت به الكود طبق الاصل وبمنتهى الدقة وعند التنفيذ تظهر الرسالة التالية فما معنى الكلمة المكتوبة باللون الاحمر . وما الخطأ رغم اننى اتحرى الدقة وارغب فى التعلم. وهل الماكرو (ragab ) تم كتابتة على هيئة كود كامل أم بطريقة تسجيل ماكرو وتقوم بعمل خطوات محدده ويتم تسجيلها على هيئه كود .فلو كانت عن طريق التسجيل لكان الامر سهل عن كتابتى الاكواد. المشكلة تبدو فى السطرlr = [b10000].End(xlUp).Row فما مدلول الجزء الملون بالاحمر ولك كل شكر واحترام اخوك / ايمن ابو علام

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

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

شكرا لمجهود الاخ ابو احمد وجزاه الله خيرا

شكرا للاستاذ عبد الله للتنبيه والمتابعة وطلبك مجاب ان شاء الله فى المشاركات القادمة

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

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

السلام عليكم جميعا ورحمة الله وبركاته لقد بذلت جهدا كبيار فى البحث بالمواقع والمنتديات عن طريقة لفصل الراسب عن الناجح فى الشيت ولم اتمكن واخيرا توصلت الى رابط المنتدى فقمت بالتسجيل به وتصفحت بعض المنتديات ووجدت ان المنتدى اكثر من رائع وبه استاتذه عباقرة ووجدت تجاوب لا مثيل له ما بين اعضاء المنتدى وهذا ما جعلنى اطمع فى طلبى هذا حيث اريد من اساتذه المنتدى معاونتى فى تعديل الشيت المرفق بحيث يضاف به صفحة للراسبين واخرى للناجح درجة نجاح العربى من 40 بشرط الحصول على 15 درجة فى التقويم الثانى اللغة الإجنبية 30 الدراسات 20 الرياضيات 30 العلوم 20 الفنية 10 الحاسب 10 نشاط 1 10 نشاط 2 10 الدين 20 ولكم كل الشكر والتقديروخاصة الاستاذ رجب جاويش وكل عباقرة المنتدى شيت اعدادى نهائى.rar