عاجل مع الشكر امل المساعدة كيف اكرر الكود هذا في جميع الاوراق

[ابوعلي الحبيب]

لسلام عليكم ورحمة الله وبركاته 

امل المساعدة كيف اكرر الكود هذا في جميع الاوراق 

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

 

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False

 ActiveWorkbook.Worksheets("ورقة1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ورقة1").Sort.SortFields.Add Key:=Range("k6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ورقة1").Sort
       .SetRange Range("b6:m23")
        .Header = xlNo
        .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
        .Apply
   End With

End Sub

عمل الكود  يرتب التاريخ حسب الاقدم

مع العلم ان ThisWorkbook ملي بالاكواد مثل كود النسخ الاحتياطي ورسالة ترحيب

وغيرها 

 

ولكم الشكر

تكرار الكود في جميع الاوراق.rar

[عبدالسلام ابوالعوافي]

لعله يفيد

تكرار الكود في جميع الاوراق1.rar

[ابوعلي الحبيب]

استاذ عبدالسلام

اشكرك من كل اعماق قلبي على تفاعلك 

ولكن للاسف لم يعمل الكود في الاوراق الباقية

[عبدالسلام ابوالعوافي]

جرب الان

تكرار الكود في جميع الاوراق1.rar

[ابوعلي الحبيب]

السلام عليك 
استاذ عبدالسلام ابوالعوافي

الكود يعمل الان بشكل ممتاز
جزاك الله خير كثر من امثالك   ... 
ويبارك لك في علمك ومالك وولدك ...  
ويوسع لك في رزقك  ...  

الله يجزاك الجنة ووالديك وجميع المسلمين ...