اخوتي في الله السلام عليكم
لدي هذا الكود الخفيف و الجميل يقوم بعمل فرز تلقائي 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
أتمنى دعمكم ولكم كل التحية و التقدير