الاعزاء الكرام ،،،،،،،،،،،،، صباح الخيرات
 
	احتاج الى تعديل في الكود التالي بحيث يقوم بعملية الفرز ولكن  بتعديل تنسيق الاعمدة المفروزة الى " نص " .
 
	 
 
	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
 
	 
 
	وتقبلوا خالص الود ،،،