فصل الناجح عن الراسب

[waledm]

الأخوه الأفاضل السلام عليكم ورحمة الله وبركاته 

الشيت المرفق أرجو فصل الطلبة الناجحين عن الراسبين كل فى شيت مستقل عن الآخر

جزاكم الله خيراً

Book1.rar

[ابو علي و سدرة]

اخى الكريم

جرب المرفق اتمنى يكون هو ما تريد

الصفحات ناجح / دور تانى محمية بدون كلمة مرور لمنع اللعب فى المعادلات

تم الحل بمعادلة مضافة الى الاكسيل

عند التغيير فى صفحة الادارة ( اضافة / حذف ) سيتم التعديل فى صفحة ناجح / راسب تلقائيا

Book1.rar

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

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

تفضل

 

Book1.rar

[ناصر سعيد]

المحترم زيزو العجوز

جزاك الله كل خير

وبعد

هل يمكن اضافه تسطير الخلايا لشيتات الناجحين والراسبين اوتوماتيك ؟

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

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

نعم اخى العزيز يمكن ذلك

استبدل الكود السابق بهذا الكود

Sub ResultLastY()
Dim ws As Worksheet, Nag As Worksheet, Ras As Worksheet
Dim Arr As Variant, Temp As Variant
Dim i, j, p, q As Long
Dim Sresult As String
Set ws = Sheets("إدارة")
Set Nag = Sheets("ناجحين")
Set Ras = Sheets("راسبين")
Sresult = ws.Range("W2").Value
Arr = ws.Range("B6:U" & ws.Range("B" & Rows.Count).End(xlUp).Row).Value
ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
For i = 1 To UBound(Arr, 1)
If Arr(i, 20) = Sresult Then
p = p + 1
For j = 1 To UBound(Arr, 2)
Temp(p, j) = Arr(i, j)
Next
End If
Next

If Sresult = "ناجح" Then
Nag.Range("A6:U" & Nag.Range("B" & Rows.Count).End(xlUp).Row).Clear
Nag.Range("B6").Resize(p, UBound(Temp, 2)).Value = Temp
Nag.Range("A6") = 1
Nag.Range("A6").Resize(p).DataSeries step:=1
Nag.Range("A6:U" & Nag.Range("B" & Rows.Count).End(xlUp).Row).Borders.Weight = xlThin

ElseIf Sresult = "دور ثان" Then
Ras.Range("A6:U" & Ras.Range("B" & Rows.Count).End(xlUp).Row).Clear
Ras.Range("B6").Resize(p, UBound(Temp, 2)).Value = Temp
Ras.Range("A6") = 1
Ras.Range("A6").Resize(p).DataSeries step:=1
Ras.Range("A6:U" & Ras.Range("B" & Rows.Count).End(xlUp).Row).Borders.Weight = xlThin

End If
End Sub

 

[waledm]

جزاكم الله خيراً جميعاً

[ناصر سعيد]

استاذ زيزو يحفظك الخالق ويرعاك

[ايمن منتصر]

الأخوة الأفاضل السلام عليكم ورحمة الله وبركاته

ممكن شيت للصفين الأول والثانى الفنى التجارى نظام

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

تم تعديل ديسمبر 25, 2018 بواسطه ايمن منتصر

[احمد بدره]

قم بالذهاب إلى هذا الرابط شيت الصف الثاني التجاري

وهذا الرابط للصف الأول التجاري

وكلاهما من الأستاذ القدير : إبراهيم الحداد جزاه الله خيرًا