قنديل الصياد

اخى العزيز هذا تصور للورقة الاولى القى عليه نظرة ولو رايت ان اكمل لك الباقى ساكملها لو عندك اى تصور اخر يمكن ان تشرح لنا اكثر Book1.rar

اين الملف المرفق اخى العزيز

تمثيل البيانات بالرسم البياني - اكسل 2003

الرسم البيانى فى الاكسل

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

اخى العزيز تصميم لجدول حصص وجدته على النت جدول الحصص الأسبوعي.rar

اخى العزيز قم بزيارة هذا الرابط http://www.officena.net/ib/index.php?showtopic=30064

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

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

انظر اخى العزيز لعله يكون المطلوب COMPARISON.rar

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

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

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

عمود التقدير العام موجود فى كشف الرصد باسم النتيجة العامة للطالب وحضرتك واضع عليه رقم 68 وايضا التقدير لكل مادة موجود بكشف الرصد وكشف الناجحين والراسبين ومكتوب عليه النتيجة فى اخر عمود لكل مادة وموجود فى الرابط الذى قمت حضرتك بارساله كالتالى : http://www.gulfup.com/?Yd7S3C

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

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

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

نعم اخى العزيز الدور الثانى يحسب ان الطالب راسب وله دور ثانى

العمود by وليس bw by هو النتيجة العامة للطالب

اخى واستاذى الحبيب خلية الشرط فى كل صفحة لكشف الرصد لجميع الصفوف من الاول الى السادس يكون عمود ( النتجة العامة للطالب ) اليك اخى كود البترحيل لنصف العام وقد قام بعمله الاخ الاستاذ / رجب جاويش ... قبل ذلك Sub tarheel_6() 'gr6 Dim LR As Integer LR = [a10000].End(xlUp).Row Sheets("ناجحون سادس").Range("a14:bl1000").ClearContents Sheets("راسبون سادس").Range("a14:bl1000").ClearContents Application.ScreenUpdating = False X = 14: y = 15 For i = 14 To LR If Cells(i, 63).Value = "ناجح" And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 63).Copy Sheets("ناجحون سادس").Range("B" & X).PasteSpecial xlPasteValues Application.CutCopyMode = False X = X + 1 ElseIf (Cells(i, 63).Value = "راسب" Or Cells(i, 63).Value = "غ") And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 63).Copy Sheets("راسبون سادس").Range("B" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 2 End If Next i Application.ScreenUpdating = True End Sub الكود كمثال للعمل عليه ولك شكرى

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

استاذنا العزيز شكرا لك يوجد اكواد من الصف الاول الى السادس وساقوم بارفاقها المطلوب فيها هو تعديل المدى حتى يعمل الكود بشكل صحيح وليس كما اوردت حضرتك الاكواد الصف الاول Sub tarheel() 'gr1 Dim LR As Integer LR = [a10000].End(xlUp).Row Sheets("ناجحون صف اول اخر العام").Range("a14:ca1000").ClearContents Sheets("راسبون صف اول اخر العام").Range("a14:ca1000").ClearContents Application.ScreenUpdating = False X = 14: y = 15 For i = 14 To LR If Cells(i, 59).Value = "ناجح" And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 59).Copy Sheets("ناجحون صف اول اخر العام").Range("B" & X).PasteSpecial xlPasteValues Application.CutCopyMode = False X = X + 1 ElseIf (Cells(i, 59).Value = "راسب" Or Cells(i, 59).Value = "غ") And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 59).Copy Sheets("راسبون صف اول اخر العام").Range("B" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 2 End If Next i Application.ScreenUpdating = True End Sub الصف الثانى Sub tarheel_() 'gr2 Dim LR As Integer LR = [a10000].End(xlUp).Row Sheets("ناجحون صف ثانى اخر العام").Range("a14:bh1000").ClearContents Sheets("راسبون صف ثانى اخر العام").Range("a14:bh1000").ClearContents Application.ScreenUpdating = False X = 14: y = 15 For i = 14 To LR If Cells(i, 59).Value = "ناجح" And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 59).Copy Sheets("ناجحون صف ثانى اخر العام").Range("B" & X).PasteSpecial xlPasteValues Application.CutCopyMode = False X = X + 1 ElseIf (Cells(i, 59).Value = "راسب" Or Cells(i, 59).Value = "غ") And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 59).Copy Sheets("راسبون صف ثانى اخر العام").Range("B" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 2 End If Next i Application.ScreenUpdating = True End Sub الصف الثالث Sub tarheel__() ''gr3 Dim LR As Integer LR = [a10000].End(xlUp).Row Sheets("ناجحون صف ثالث اخر العام ").Range("a14:ay1000").ClearContents Sheets("راسبون صف ثالث اخر العام").Range("a14:ay1000").ClearContents Application.ScreenUpdating = False X = 14: y = 15 For i = 14 To LR If Cells(i, 50).Value = "ناجح" And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 51).Copy Sheets("ناجحون صف ثالث اخر العام").Range("B" & X).PasteSpecial xlPasteValues Application.CutCopyMode = False X = X + 1 ElseIf (Cells(i, 50).Value = "راسب" Or Cells(i, 50).Value = "غ") And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 51).Copy Sheets("راسبون صف ثالث اخر العام").Range("B" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 2 End If Next i Application.ScreenUpdating = True End Sub الصف الرابع Sub tarheel___() 'gr4 Dim LR As Integer LR = [a10000].End(xlUp).Row Sheets("ناجحون صف رابع اخر العام").Range("a14:bl1000").ClearContents Sheets("راسبون صف رابع اخر العام").Range("a14:bl1000").ClearContents Application.ScreenUpdating = False X = 14: y = 15 For i = 14 To LR If Cells(i, 63).Value = "ناجح" And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 63).Copy Sheets("ناجحون صف رابع اخر العام").Range("B" & X).PasteSpecial xlPasteValues Application.CutCopyMode = False X = X + 1 ElseIf (Cells(i, 63).Value = "راسب" Or Cells(i, 63).Value = "غ") And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 63).Copy Sheets("راسبون صف رابع اخر العام").Range("B" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 2 End If Next i Application.ScreenUpdating = True End Sub الصف الخامس Sub tarheel____() 'gr5 Dim LR As Integer LR = [a10000].End(xlUp).Row Sheets("ناجحون صف خامس اخر العام").Range("a14:bl1000").ClearContents Sheets("راسبون صف خامس اخر العام").Range("a14:bl1000").ClearContents Application.ScreenUpdating = False X = 14: y = 15 For i = 14 To LR If Cells(i, 63).Value = "ناجح" And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 63).Copy Sheets("ناجحون صف خامس اخر العام").Range("B" & X).PasteSpecial xlPasteValues Application.CutCopyMode = False X = X + 1 ElseIf (Cells(i, 63).Value = "راسب" Or Cells(i, 63).Value = "غ") And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 63).Copy Sheets("راسبون صف خامس اخر العام").Range("B" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 2 End If Next i Application.ScreenUpdating = True End Sub الصف السادس Sub tarheel_____() ''gr6 Dim LR As Integer LR = [a10000].End(xlUp).Row Sheets("ناجحون صف سادس اخر العام").Range("a14:bl1000").ClearContents Sheets("راسبون صف سادس اخر العام").Range("a14:bl1000").ClearContents Application.ScreenUpdating = False X = 14: y = 15 For i = 14 To LR If Cells(i, 63).Value = "ناجح" And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 63).Copy Sheets("ناجحون صف سادس اخر العام").Range("B" & X).PasteSpecial xlPasteValues Application.CutCopyMode = False X = X + 1 ElseIf (Cells(i, 63).Value = "راسب" Or Cells(i, 63).Value = "غ") And Cells(i, 2) <> "" Then Range("B" & i).Resize(1, 63).Copy Sheets("راسبون صف سادس اخر العام").Range("B" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 2 End If Next i Application.ScreenUpdating = True End Sub اريد فقط تعديل وتصحيح المدى فى هذه الاكواد السته كى تعمل بشكل صحيح وليس لغيرها

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

مرفق للتعديل

مرفق ملف الكنترول وبه اكواد الترحيل لاخر العام يرجى التعديل عليها فقط حتى تعمل بشكل صحيح لكبر حجم الكنترول يرجى بعد التعديل رفعه على الرابط التالى http://www.gulfup.com/