تحديد نطاق الترتيب مرفق ملف

[خالد المصـــــــــــرى]

Sub ترتيب_سري()

    Rows("7:7").Select
    ActiveWindow.ScrollRow = 627
    ActiveWindow.SmallScroll Down:=366
    Rows("7:445").Select
    Selection.Sort Key1:=Range("d7"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    ActiveWindow.ScrollRow = 7
    Range("d7").Select
End Sub

تحديد نطاق الترتيب ليبدأ من B7 الى K7

ترتيب.xlsb

[بن علية حاجي]

لم أفهم جيدا المطلوب... أنظر الملف المرفق فيه تعديل حسب ما فهمت...

 

ترتيب.xlsb

[خالد المصـــــــــــرى]

شكرا يا اخي هو المطلوب