تعديل كود الكتشنة

[الحديثة]

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

111.rar

[الحديثة]

او بالمعادلات مع العلم ان شيت امتحان اخر العام هو الذى يرسل درجة 50 الى شيت النتيجة 

[الحديثة]

او اى حل اخر

[الحديثة]

كيف يمكن اضافة اسم الشيت فى هذا الكود اذا كانت ورقة 1 وزيادة وزيادة الكود لورقة اخرى وليكن ورقة 2

Sub كتشنة()
    Range("c3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A3:bi310").Sort Key1:=Range("d3"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ActiveWindow.ScrollRow = 1
End Sub
Sub فك()
    Range("b3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A3:bi310").Sort Key1:=Range("b3"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ActiveWindow.ScrollRow = 1
End Sub

 

[الحديثة]

المطلوب اضافة اسم الشيت الى هذا الكود