فصل الناجح و الراسب والغائب

[أ/حكيم]

الاخوة الزملاء الاعزاء الموضوع موجود في المنتدى سابقا ...

لو تكرمتم أرجو أضافة بعض التعديلات وهي فصل الغائبين في ورقة منفصلة ثم ترحيل الناجحين ثم الراسبين ثم الغائبين في ورقة أخرى

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

فصل الراسب والناجح و الغائب.zip

تم تعديل أكتوبر 31, 2012 بواسطه دغيدى

[دغيدى]

تفضل أخى الكريم / أبو حكيم

فصل الراسب والناجح و الغائب.rar

[أ/حكيم]

شكراً استاذنا العزير أولا للكود وثانباً لسرعة الرد وكل عام وأنت و الاعضاء الكرام بخير ولو أمكن شرح بعض أجزاء من الكود ليمكن التعديل في الكود في حالة زيادة عدد المواد (زيادة أعمدة)

تم تعديل أكتوبر 31, 2012 بواسطه أبو حكيم

[يوسف عطا]

بعد إذن أخى جمال بك دغيدى

ولإثراء الموضوع

بقترح الكود التالى لنسخ النتيجة مع فرزها لشيت الكل مع الإستغناء عن ماكرو معادلة إف فى الشيت الرئيسى

يراعى تسمية الشيت الرئيسى (الشيت) قبل تنفيذ الكود

Sub فرزص()

Sheets("الشيت").Select

Range("A11:DO10000").Select

Selection.Copy

Sheets("الكل").Select

Range("A11").Select

ActiveSheet.Paste

Range("DO11").Select

ActiveCell.FormulaR1C1 = _

"=IF(RC[-1]="""","""",IF(RC[-1]=""ناجح"",1,IF(RC[-1]=""راسب"",2,IF(RC[-1]=""غائب"",3))))"

Range("DO11").Select

Selection.AutoFill Destination:=Range("DO11:DO10000")

Range("A11:DO10000").Select

Selection.Sort Key1:=Range("DO11"), Order1:=xlAscending, Header:=xlNo, _

	 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

	 DataOption1:=xlSortNormal

	 MsgBox "تم نسخ النتيجة وترتيبها فى شيت الكل"

End Sub

تم تعديل أكتوبر 31, 2012 بواسطه يوسف عطا

[يوسف عطا]

أما بخصوص كود الترحيل أخى الغالى دغيدى فهو جميل جداً وسهل جداً

ولو تتكرم بشرحه يجازيك الله عنا خيراً

[أ/حكيم]

شكراً للأخ يوسف عطا ولو تتكرم بشرح الكودلأتمكن من إضافة أعمدة أخرى (مواد)

هل يمكن ترحيل أعمدة محددة فقط وتكون الاعمدة غير متجاورة مثلا العمود 1و3و7و8و9و12و30و50:36 ...... الخ