كيفية فصل الطالب الناجح عن الراسب

[ahmedmar]

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

[ahmedmar]

ارجو سرعة الاهتمام

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

[مصطفى كمال]

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

أهلا وسهلا ومرحبا أخا كريما بيننا

اخي الكريم هلا تكرمت بارسال ملف توضح فيه مايريد الإخوة القيام به

قم فقط بتحميل ملف إكسيل مضغوط بالرار مثلا وسيحاول باقي الإخوة العمل عليه

مرة أخرى مرحبا بك أخي الكريم بيننا

[صباح حسين]

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

Dim lastrow As Long

Application.ScreenUpdating = False

With Sheets(1)

.AutoFilterMode = False

lastrow = Range("a" & Rows.Count).End(xlUp).Row

Range("A1:D22").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$D$22").AutoFilter Field:=4, 1 Criteria1:="راسب"

.Range("a2:d" & lastrow).Copy Sheets("راسب").Range("a2")

.AutoFilterMode = False

End With

Application.ScreenUpdating = True

End Sub

تم تعديل فبراير 24, 2011 بواسطه صباح حسين