تعديل على الكود

[ابو ذكري]

الاخوة الافاضل والاساتذة المحترمين

اشكركم على مجهوداتكم الرائعة في مساعدة المحتاج للمساعدة

في ملف كنترول هناك كود فرز تلقائي في ورقة العمل الثانية يتغير تلقائي بتغير المدخلات في الورقة الأولى

تم نسخ الكود والتعديل علية في ملف باسم المصنف ولكن الكود لم يعمل

برجاء التعديل على الكود مع توضيح كيفية التعديل لاستخدام الكود في ملفات أخرى

هذا وتفضلوا بقبول التحية الاحترام

وجعله الله في ميزان حسناتكم

Desktop.rar

[ياسر خليل أبو البراء]

أخي الكريم أبو ذكري

ضع الكود التالي في موديول

Sub SortData()
    Dim Ws As Worksheet, LR As Long
    Set Ws = Sheets("ورقة2")
    LR = Range("B" & Rows.Count).End(xlUp).Row
    Range("B8:T" & LR).Sort Key1:=Range("P8:P" & LR), Order1:=xlDescending, Header:=xlNo
End Sub

ثم في حدث ورقة العمل الثانية ضع الكود التالي

Private Sub Worksheet_Activate()
    Call SortData
End Sub

تقبل تحياتي

 

[ابو ذكري]

بساطة وسهولة وروعة

جزاك الله كل الخير ووفقك دائما وسدد خطاك

تقبل تحياتي

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير أخي الكريم أبو ذكري

وجزيت خيراً بمثل ما دعوت لي وزيادة

تقبل تحياتي