السلام عليكم ورحمة الله وبركاتة
اخي الفاضل سليم حاصبيا
من الموضح في الملف إستخدام الكود والمعادلات ولكن يوجد خطأ قائم في الملف المرفق
أنه عند عمل sort يتم تكرار رؤوس الجداول مرتين
ولكن هل من الممكن التعديل على الكود التالي بحيث انه بدلا من أنه مصمم لعمل sort لإختيار واحد يتم تعديله بحيث يصبح الفرز للإختيارين الموضحين سابقاً على الملف المرفق
Sub FilterData() Dim strCriteria As String strCriteria = Sheet1.Range("C3").Value On Error Resume Next With Sheet1 .AutoFilterMode = False .Range("E2:O2").AutoFilter Field:=11, Criteria1:=strCriteria .Range(("E2:O") & .Cells(Rows.Count, 5).End(xlUp).Row).Sort Key1:=.Range("F2"), Order1:=xlAscending, Header:=xlYes End With End Sub