Sub Sort_Male()
Dim LR As Long
LR = Range("D" & Rows.Count).End(xlUp).Row
Range("C18:N" & LR).Sort Key1:=Range("J18:J" & LR), Order1:=xlDescending, Header:=xlNo
End Sub
xlDescending
ارجو من الساده المحترمين وضع الرقم 1 مره ومره اخرى الرقم 2
الرقم يؤدي نفس الكلمه
تساوي الرقم 1