الكود صحيح ما دام يعمل على بعض الأجهزة
ولا علاقة له بنسخة 64 أو 32
ولكن به بعض من عدم الترتيب
جرب هذا التعديل في ترتيب الأكواد
Sub ترتيبي()
Prompt = "إذا أردت الإستمرار فانتظر لأن الترتيب يأخذ بعض الوقت "
Command_buttons = vbYesNo + VbMsgBoxRt1Reading
Title = "هل تريد ترتيب البيانات بعد التغيرات الجديدة ؟؟ "
project = MsgBox(Prompt, Command_buttons, Title)
If project = vbYes Then
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With ActiveWorkbook.Worksheets("master").Sort
.SortFields.Clear
.SortFields.Add2 Key:=Range("BV8:BV6053"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= xlSortNormal
.SortFields.Add2 Key:=Range("BT8:BT6053"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= xlSortNormal
.SortFields.Add2 Key:=Range("C8:C6053"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= xlSortNormal
.SetRange Range("B8:BW6053")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Call MsgBox(" تم الترتيب بنجاح ", mBox, "الحمد لله ")
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End If
End Sub
بالتوفيق