المساعدة بكود ناجح وراسب ودور ثان ارجو شرح بسيط

[حسين شاكر]

السادة الافاضل اغضاء منتدى اوفيستا

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

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

اخر  اكرمكم الله

 

كنترول الصف الأول.rar

[حسين شاكر]

للرفع

[محمد ابو البـراء]

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

استاذي الفاضل //حسين شاكر

تفضل هاتين الطريقتين لعلهما يفيا الغرض بإذن الله تعالى

دالة بطريقة جديدة وسهلة لمعرفة حالة الطالب (راسب او ناجح )

[طريقة 2] لمعرفة حالة الطالب [راسب وناجح][اقل من نصف سطر الدالة]

[حسين شاكر]

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

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

[محمد ابو البـراء]

تفضل هذا الكود ولا اسهل ولا اروع من كده للعلامة عبد الله باقشير

وهو مشروح

واي مشكلة انا في خدمتك

Sub KH_START()
		  '''  متغيرات بعدد الصفحات المطلوب الترحيل اليها
Dim R As Integer, M As Integer, N As Integer, O As Integer
		  '''  أسماء الصفحات المطلوب الترحيل اليها والمدى المطلوب مسح البيانات الثديمة منه
	Sheets("ناجح").Range("A11:DZ1000").ClearContents
	Sheets("دور ثان في").Range("A11:DZ1000").ClearContents
	Sheets("رسوب").Range("A11:DZ1000").ClearContents
  
		'''  عدد الصفوف العليا في الصفحات المنقول اليها البيانات
	M = 11: N = 11: O = 12
	Application.ScreenUpdating = False
  
		  '''  بداية ونهاية صفوف الورقة المصدر
	For R = 11 To 1000
  
   '''''''''''''''''''''''''''''''''''''''''''''''''''''
  
				''' رقم عمود المعيار وكلمة المعيار
		If Cells(R, 113) = "ناجح" Then
			Range("A" & R).Resize(1, 115).Copy
		  
				  '''  سيتم اللصق في هذا الشيت
			Sheets("ناجح").Range("A" & M).PasteSpecial xlPasteValues
			Application.CutCopyMode = False
			M = M + 1
			
		  
	''''''''''''''''''''''''''''''''''''''''''''''''''''
  
					''' رقم عمود المعيار وكلمة المعيار
			ElseIf Cells(R, 113) = "دور ثان في" Then
			Range("A" & R).Resize(1, 115).Copy
		  
					  '''  سيتم اللصق في هذا الشيت
			Sheets("دور ثان في").Range("A" & N).PasteSpecial xlPasteValues
			Application.CutCopyMode = False
		  
					'''  اجعل الرقم 1  الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل
			N = N + 1
	'''''''''''''''''''''''''''''''''''''''''''''''''''''
	  
			ElseIf Cells(R, 113) = "رسوب" Then
			Range("A" & R).Resize(1, 115).Copy
			Sheets("رسوب").Range("A" & O).PasteSpecial xlPasteValues
			Application.CutCopyMode = False
		  
				  '''  لترك صف فارغ اعلا كل صف
			O = O + 2
		End If
	  
   '''''''''''''''''''''''''''''''''''''''''''''''''''''
  
	Next

	MsgBox ("الحمد لله تـــم ترحيل الناجحين و الراسبين إلى أوراق عمل جديدة ")
	Application.ScreenUpdating = True
End Sub
   '''''''''''''''''''''''''''''''''''''''''''''''''''''

[حسين شاكر]

اخى محمد الف شكر لتعبك

الكود السابق حاولت تطبيقة ولم يفلح معى ارجو ارشادى الى ما يتم تغيرة وشكرا

[محمد ابو البـراء]

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

113 معناه رقم العمود الذي به شروط الترحيل في الورقة التى تريد ترحيلها ( ناجح - راسب _ له دور ثان) او ما يسمي عمود حالة الطالب

فقم بتغييره على حسب عمود حالة الطالب عندك

115 أخر عمود يتم نسخه وترحيله فقم بتغييره على حسب أخر عمود به بيانات عندك في الورقة التى تريد ترحيلها

واي مشاكل اخرى انا في خدمتك..