الاعزاء الكرام ،،،،،،،،،،،،، صباح الخيرات
احتاج الى تعديل في الكود التالي بحيث يقوم بعملية الفرز ولكن بتعديل تنسيق الاعمدة المفروزة الى " نص " .
Range("F5:G1000").Select
ActiveWorkbook.Worksheets("Groups").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Groups").Sort.SortFields.Add Key:=Range("G5:G1000") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Groups").Sort
.SetRange Range("F5:G1000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
وتقبلوا خالص الود ،،،