تم تعديل الكود
ليكون الترتيب اختيارى للمستخدم
حيث تظهر رسالة تخيرك بين الترتيب حسب البنين أولا أو البنات أولا
Sub Ragab()
Dim LR As Integer
Dim KH As Range
LR = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
With ActiveSheet
Set KH = .Range("B11:Z" & LR)
result = MsgBox("للترتيب حسب البنين أولا اضغط نعم" & Chr(10) & "وللترتيب حسب البنات أولا اضغط لا", vbYesNo)
If result = vbYes Then
KH.Sort Key1:=Cells(11, 2), Order1:=xlAscending
KH.Sort Key1:=Cells(11, 5), Order1:=xlDescending
Else
KH.Sort Key1:=Cells(11, 2), Order1:=xlAscending
KH.Sort Key1:=Cells(11, 5), Order1:=xlAscending
End If
End With
Application.ScreenUpdating = True
End Sub
ترتيب الأسماء ابجديا.rar