مطلوب : فرز الطلبة الناجحين فى الورقة الثانية والراسبين فى الثالثة ( عنوان معدل )

[مستر محمد حامد]

ارجو من عمالقة المنتدى عمل فرز للطلبة الناجحين فى الورقة الثانية والراسبين فى الورقة الثالثة

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

سنه اولى.rar

[رجب جاويش]

السلام عليكم

تفضل أخى

سنه اولى.rar

[أبو عبد الرحمن سعيد]

أخى الاستاذ / رجب جاويش

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

[الشهابي]

أستاذنا / رجب جاويش

ما شاء الله تبارك الله

هناك أكواد كثيرة لترحيل الناجحين والراسبين بس أعجبتني فكرة الكود تبعك وخاصة هذه الطريقة

Range("a" & i).Resize(1, 104).Copy

أستاذنا / أنتم مدرسة أكواد نتعلم منها

[مستر محمد حامد]

السلام عليكم

تفضل أخى

شكرا اخى على سرعة الرد

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

[رجب جاويش]

أخى الفاضل

الملف يعمل عندى تمام

أرجو التوضيح أكثر

[مستر محمد حامد]

اخى العزيز

اولا شكرا على مجهودك ومتابعتك

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

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

[رجب جاويش]

أخى الفاضل

هذا هو الكود المستخدم فى الترحيل

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

واذا كانت قيمة الخلية اكبر من الصفر يكون راسب وترحل بياناته الى شيت الراسبين

Sub ragab()

Dim i As Integer, x As Integer

Dim lr As Integer, y As Integer

lr = [b10000].End(xlUp).Row

Sheets("äÇÌÍíä").Range("a11:cz1000").ClearContents

Sheets("ÑÇÓÈíä").Range("a11:cz1000").ClearContents

Application.ScreenUpdating = False

x = 11: y = 11

For i = 11 To lr

	If Cells(i, 106).Value = 0 And Cells(i, 3) <> "" Then

		Range("a" & i).Resize(1, 104).Copy

		Sheets("äÇÌÍíä").Range("a" & x).PasteSpecial xlPasteValues

		Application.CutCopyMode = False

		x = x + 1

	ElseIf Cells(i, 106).Value > 0 And Cells(i, 3) <> "" Then

		Range("a" & i).Resize(1, 104).Copy

		Sheets("ÑÇÓÈíä").Range("a" & y).PasteSpecial xlPasteValues

		Application.CutCopyMode = False

		y = y + 1

	End If

Next i

Application.ScreenUpdating = True

End Sub

[مستر محمد حامد]

^{ااستاذى العزيز رجب جاويش /}

^{شكرا لمتابعتك وردودك الجميلة}

^{ظهرت لدى مشكله فى الشيت السابق وهى ان المعادلة فى كل مادة والنتيجة تحتسب الطالب الغائب والذى يأخذ "غ"يحتسب ناجحا}

^{فارجوا منك تعديل المعادلة لتحتسب الطالب الغائب راسبا}

^{وشكرا مرة ثانية للمتابعة}

[رجب جاويش]

اخى الفاضل

تم عمل المطلوب

أرجو التجربة واخبارى بالنتيجة

سنه اولى.rar

[مستر محمد حامد]

شكرا اخى العزيز /

لو تكرمت هنك ملحوظتين :

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

[رجب جاويش]

تفضل أخى

سنه اولى.rar