Sub trheel()
' مع اسم ورقة العمل ونطاق (a6:i100 )
With Sheets("بيانات الطلاب").Range("a6:i100")
' تجاوز الأخطاء
On Error Resume Next
' اخفاء منع اهتزاز الشاشة
Application.ScreenUpdating = False
' تحديد وضع الفلتره
Selection.AutoFilter
'تنشيط بداية نطاق الفلترة من العمود رقم 3  مع كريتريا المفلترة وهي الصف الدراسي
ActiveSheet.Range("a5:i100").AutoFilter Field:=3, Criteria1:="الأول الابتدائي"

' النطاق الذي تريد نسخه مع نسخ محتويات اخر صف به بيانات
 Range("b6:i100" & Cells(Rows.Count, 3).End(xlUp).Row + 1).Copy
 'لصق البيانات المنسوخه في شيت الصف الاول الابتدائي بدابة في العمود بي لصق خاص
 Sheets("الأول الابتدائي").Range("b" & Sheets("الأول الابتدائي").Cells(Rows.Count, 3).End(xlUp).Row + 1).PasteSpecial (xlPasteValues)
 ' اخفاء وضع النسخ
 Application.CutCopyMode = False
 'اظهار منع اهتزاز الشاشة
 Application.ScreenUpdating = True

 
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
For i = 6 To 15
If Cells(i, "E") = "جيد" Then
Cells(i, "E").Interior.ColorIndex = 45
ElseIf Cells(i, "E") = "<span dir="RTL">ممتاز</span>" Then
Cells(i, "E").Interior.ColorIndex = 4
End If
Next i
End sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R As Long
For R = 6 To 15
If Cells(R, "I<span dir="RTL">  "ممتاز" = (" </span>Then
Cells(R, "I").Offset(<span dir="RTL">0</span>, <span dir="RTL">0</span>).Interior.ColorIndex = <span dir="RTL">4</span>
Cells(R, "I").Offset(<span dir="RTL">0</span>, -<span dir="RTL">1</span>).Interior.ColorIndex = <span dir="RTL">4</span>
Cells(R, "I").Offset(<span dir="RTL">0</span>, -<span dir="RTL">2</span>).Interior.ColorIndex = <span dir="RTL">4</span>
Cells(R, "I").Offset(<span dir="RTL">0</span>, -<span dir="RTL">3</span>).Interior.ColorIndex = <span dir="RTL">4</span>
ElseIf Cells(R, "I<span dir="RTL">  "جيد جداً" = (" </span>Then
Cells(R, "I").Offset(<span dir="RTL">0</span>, <span dir="RTL">0</span>).Interior.ColorIndex = <span dir="RTL">23</span>
Cells(R, "I").Offset(<span dir="RTL">0</span>, -<span dir="RTL">1</span>).Interior.ColorIndex = <span dir="RTL">23</span>
Cells(R, "I").Offset(<span dir="RTL">0</span>, -<span dir="RTL">2</span>).Interior.ColorIndex = <span dir="RTL">23</span>
Cells(R, "I").Offset(<span dir="RTL">0</span>, -<span dir="RTL">3</span>).Interior.ColorIndex = <span dir="RTL">23</span>
End If
Next R
End sub

Sub cuontif<span dir="RTL">()</span>
     Dim i As Long
     For i = <span dir="RTL">6 </span>To <span dir="RTL">15</span>
    Cells(i, "L") = Application.CountIf([E<span dir="RTL">6</span>:E<span dir="RTL">20</span>], Cells(i, "K<span dir="RTL">(("</span>
   Cells(i, "M") = Application.CountIf([I<span dir="RTL">6</span>:I<span dir="RTL">20</span>], Cells(i, "K<span dir="RTL">(("</span>
   Next i
   End sub

Sub sum ()<br />
&nbsp; [L<span dir="RTL">11</span>] = Application.Sum([L<span dir="RTL">6</span>:L<span dir="RTL">10</span>])<br />
[M<span dir="RTL">11</span>] = Application.Sum([M<span dir="RTL">6</span>:M<span dir="RTL">10</span>])<br />
End sub<br />