[حل شده] سورت کردن و شماره گذاری ردیف با کمک ماکرو

[ozviat83]

با عرض سلام و خسته نباشید خدمت تمامی دوستان
چندی پیش سوالی مطرح کردم مبنی بر "شماره گذاری ردیف با کمک ماکرو"
که این سوال با کمک جناب آقای میر حل شد
بعد از آن خودم هرچه تلاش کردم که بتوانم دستوراتی را به آن اضافه کرنم ک در هنگام اجرای ماکرو
ابتدا عمل سورت را روی ستون مورد نظر انجام دهد
سپس عمل شماره گذاری را
نتوانستم

لطفا کمکم کنید
درخواست(لطفاَ):ماکرویی باشد که ابتدا عمل سورت کردن را بر روی ستون " i " انحام دهد سپس عمل شماره گذاری را اعمال کند

[iranweld]

با سلام

مشکل در نام فارسی سرستون " تاریخ اعزام " میباشد. میتوانید بکمک ماکرو قبل از سورت نام "تاریخ اعزام" را به یک نام انگلیسی تغییر داده و در انتهای ماکرو دوباره نام را به "تاریخ اعزام " تغییر دهید.

Sub sort()

Application.ScreenUpdating = False

Range("i5") = "tarikh"
  
    ActiveWindow.SmallScroll ToRight:=6
    ActiveWorkbook.Worksheets("data").ListObjects("Data").sort.SortFields.Clear
    ActiveWorkbook.Worksheets("data").ListObjects("Data").sort.SortFields.Add Key _
        :=Range("Data[[#All],[tarikh]]"), SortOn:=xlSortOnValues, Order:= _
        xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("data").ListObjects("Data").sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("i5") = "تاريخ اعزام"
    
    Range("B6").Select
    
    numbering
    
    Application.ScreenUpdating = True
    
End Sub