يا ريت توضح أكتر
لو كان قصدك تعملها بالكود
يمكنك استعمال هذا الماكرو
Sub Macro1()
'
' Macro1 Macro
'
'
Range("G2").Select
ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("G1:G150"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"الاقامة منتهية,الاقامة انتهت اليوم,الاقامة قاربت على الانتهاء", DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("F1:F150"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("1").Sort
.SetRange Range("C1:G150")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("G1").Select
End Sub
ولا تنس حفظ الملف بصيغة تدعم الماكرو
xlsm
xlsb