كود فرز - VBA Sort

[عبد الرحمن الحمصي]

اخوتي في الله السلام عليكم

 

لدي هذا الكود الخفيف و الجميل يقوم بعمل فرز تلقائي  sort  لكل البيانات الموجودة في ورقة عمل معينة

 

ولكن للأسف لا يدعم وجود الجداول في الورقة  اي عند اضافة جدول ديناميكي لا يستطيع عمل sort لهذا الجدول ويظهر اشارة خطأ

 

هل يمكن التعديل عليه ليشمل هذه الجداول

 

تفضلوا الكود 

Private Sub Worksheet_Change(ByVal Target As Range)
    Columns(Target.Column).Sort _
        Key1:=Cells(1, Target.Column), _
        Order1:=xlAscending, _
        Header:=xlNo, _
        OrderCustom:=1, _
        MatchCase:=False, _
        Orientation:=xlTopToBottom
End Sub

أتمنى دعمكم ولكم كل التحية و التقدير

[عبد الرحمن الحمصي]

اخوتي حصلت على هذا الكود

 

ولكن هل من احد من الأخوه يشرح لنا ما هي القيم التي يجب التعديل عليها في هذا الكود

 

Private Sub Worksheet_Change(ByVal Target As Range)

    ActiveWorkbook.Worksheets("Project 2013").ListObjects("Table3").sort.SortFields _
        .Clear
    ActiveWorkbook.Worksheets("Project 2013").ListObjects("Table3").sort.SortFields _
        .Add Key:=Range("Table3[Description3]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Project 2013").ListObjects("Table3").sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

بانتظار الخبراء

[عبد الرحمن الحمصي]

تفضلوا أخوتي الملف جاهز

أتمنى ان ينال اعجابكم و تستفيدو منه كما تفيدونا دائما

 

لكم كل الشكر و التقدير

sort tables vba.rar