نجوم المشاركات

السلام عليكم ورحمة الله إخواني الكرام تبسيطا للكود الذي وضعه أخي الحبيب جمال أضع بين أيديكم الكود التالي (الفرز لثلاثة أعمدة):[ Private Sub Worksheet_Change(ByVal Target As Range) Range("C6:AY1000").Sort Key1:=Range("AY6"), Order1:=xlAscending, Key2:=Range("AP6"), _ Order2:=xlDescending, Key3:=Range("C6"), Order3:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:= _ xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal End Sub أخوكم بن علية

الله ينور عليك عمل رائع والرد سريع مجدى يونس