ترحيل الناجح والدور الثانى والراسب

[كعبلاوى]

2 hours ago, كعبلاوى said:

رجاء من اساتذتى فى المنتدى ترحيل الطالبات

من الشيت الى صفحة الناجحة او الدور الثانى او الراسبة كلا حسب نتيجتها

ولكم منا جزيل الشكر

 

جمع مواد الرسوب واظهار نتيجة الطالبة.rar

تم تعديل مارس 22, 2018 بواسطه كعبلاوى

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استخدم هذا الكود

Sub Results()
Dim ws As Worksheet, Sh As Worksheet
Dim C As Range
Dim LR As Long, p As Long
Set ws = Sheets("Sheet1")
LR = ws.Range("B" & Rows.Count).End(xlUp).Row
For Each Sh In Worksheets
If Sh.Name <> "Sheet1" Then
Sh.Range("B11:C" & Sh.Range("B" & Rows.Count).End(xlUp).Row + 1).ClearContents
End If
For Each C In ws.Range("C11:C" & LR)
If Trim(C.Value) = Trim(Sh.Name) Then
p = p + 1
Sh.Cells(p + 10, "B") = C.Offset(0, -1).Value
Sh.Cells(p + 10, "C") = C.Value
End If
Next
p = 0
Next
End Sub

 

[كعبلاوى]

مليون شكر لاستاذنا الفاضل

زيزو العجوز

 

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

 

 

تم تعديل مارس 22, 2018 بواسطه كعبلاوى

[سليم حاصبيا]

معادلة واحدة توضع في كل الصفحات (من ""ناجحة " حتى "راسبة وليس لها حق الاعادة") في الخلية  B11  (استعمل     Ctrl+Shift+Enter  و ليس   Enter وحدها)

اسحب المعادلة يمينا عامود واحد ونزولاً قدر ما تريد

ملاجظة:كي تعمل المعادلة يجب ان يكون الملف محفوظ داخل الجهاز

المعادلة

=IFERROR(INDEX(Sheet1!B$11:B$27,SMALL(IF(Sheet1!$B$11:$B$27<>"",IF(TRIM(Sheet1!$C$11:$C$27)=(RIGHT(CELL("filename",$A$1),LEN(CELL("filename",$A$1))-SEARCH("]",CELL("filename",$A$1)))),ROW($B$11:$B$27)-ROW($B$11)+1)),ROWS(A$1:A1))),"")

بالنسبة للمعادلة في الصفحة  Sheet1 الخلية C11  نزولاً

يمكن استبدالها يهذه (دون تكرار الشرط IF)

=IF(D11="","",VLOOKUP(D11,{0,"ناجحة",0;1,"دور ثان",0;3,"راسبة ولها حق الاعادة",0;4,"راسبة وليس لها حق الاعادة",0},2))

الملف مرفق

 

 

ALL_In One Salim.xls

[ابراهيم الحداد]

السلام عليكم ورحمة الله

حل آخر بالمعادلات

اذا لم تظهر معك النتيجة اضغط على ازرار (Ctrl+Shift+Enter) ثم اسحب نزولا

 

جمع مواد الرسوب واظهار نتيجة الطالبة.rar