البحث في الموقع
Showing results for tags 'عاجل مع الشكر'.
تم العثور علي 1 نتيجه
-
لسلام عليكم ورحمة الله وبركاته امل المساعدة كيف اكرر الكود هذا في جميع الاوراق لاني سوف نسخ الورقة الشيت كل فترة وصعب ادخاله يدوي كل مرة 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