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

بسم الله  الرحمن الرحيم 

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

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

الكود المستخدم 

 Sub Yasser1()  
   Dim i As Integer  
   Dim lAST As Integer  
   Dim xxx As Integer  
   Dim sh As String  
   lAST = [A10000].End(xlUp).Row   
   For i = 2 To lAST  
     sh = Cells(i, 12).Value  
     Application.ScreenUpdating = False  
     xxx = Sheets(sh).Range("A10000").End(xlUp).Row + 1  
     Range("a" & i).Resize(1, 12).Copy  
     Sheets(sh).Range("a" & xxx).PasteSpecial xlPasteValues  
     Application.CutCopyMode = False  
   Next i  
   MsgBox "تم الترحيل"  
   Application.ScreenUpdating = True  
 End Sub  

تحميل الملف من هنا

اعداد / ياسر العربي

شارك المقال

شاركه على فيسبوكشاركه على جوجل+