اضافة اسم الصفحة لهذ الكود

[الحديثة]

اضافة اسم الصفحة لهذا الكود وليكون ورقة 1 واضافة نفس الكود لورقة 2 يعنى االكود بنفذ الامر على الورقة 1 والورقة 2

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

يعنى كود دة هيكون فى ورقة 1 ينفذ الامر على ورقة 1 وينفذ على ورقة 2 مع تغير المدى للورقة الثانية  وليكن من a6 الى bi300 

[حمادة عمر]

قم اخي الكريم بوضع السطر التالي في بداية كل كود مع تغيير اسم الورقة التي تريدها

او قم بارفاق ملف كمثال ليمكن التطبيق عليه

Sheets("ضع اسم الشيت الذي تريد تطبيق الكود عليه هنا").Select

تقبل خالص تحياتي

[الحديثة]

استاذى المحترم الفاضل حمادة عمر اليك ملف اريد ان ينفذ هذا الكود على111.rar شيت امتحان اخر العام وشيت النتيجة  مع العلم جربت هذا الكود ولم يظبط معى

Sub كتشنة()
Sheets("شيت النتيجة").Select
    Range("A6:bu300").Sort Key1:=Range("h6"), Order1:=xlAscending
    Sheets("امتحان اخر العام").Select
    Range("a5:m300").Sort Key1:=Range("d6"), Order1:=xlAscending
End Sub
Sub فك()
Sheets("شيت النتيجة").Select
    Range("g6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A6:bu300").Sort Key1:=Range("g6"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ActiveWindow.ScrollRow = 1
Sheets("امتحان اخر العام").Select
    Range("b5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A6:bu300").Sort Key1:=Range("b5"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ActiveWindow.ScrollRow = 1
End Sub

 

111.rar

[حمادة عمر]

شاهد الكود في الملف ضبط ام لا

111+.rar

[الحديثة]

استاذى العزيز الفاضل حمادة عمر اللهم اغفر له وارحمة وعافه واغفر له واسكنه واسع جنة اللهم امين 

لك كل الشكر والتقدير والاحترام على الرد 

فى شيت aaa لا يغير الارقام مع الاسم اذا وضع رقم امام الاسم محمد 1 فى اللغة العربية 20 عند عمل كتشنة لا يتغير الرقم فى شيت aaa مع العلم ان المدى فى الشيت aaa من a5: m300 وفى الشيت nnn من a6:bu300

تم تعديل أبريل 16, 2017 بواسطه الحديثة

[الحديثة]

عند عمل كتشنة او فك الكتشنة اجد هذا الرقم ثابت والمفروض يتغير كما يوجد فى شيت امتحان اخر العام كما يوجد بالعمود الاصفر لكن المعادلة لا تغير الارقام 

2 (2).rar

[الحديثة]

للرفع