اذهب الي المحتوي
أوفيسنا

عمل SORT بناء على إختيارين


إذهب إلى أفضل إجابة Solved by طارق محمود,

الردود الموصى بها

السلام عليكم ورحمة الله وبركاتة 

اخي الفاضل سليم حاصبيا

من الموضح في الملف إستخدام الكود والمعادلات ولكن يوجد خطأ قائم في الملف المرفق 

أنه عند عمل 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

رابط هذا التعليق
شارك

  • أفضل إجابة

السلام عليكم

بعد إذن أخي الغالي سليم

تفضل الكود التالي (تعديلا علي الكود الذي أرسلته)

يتم تفعيل الكود

 بالضغط علي الزر بعد تغيير الخليتين الحمراوين

Sub FilterData()
Dim jobs As String, cycl As String
jobs = [B1].Value: cycl = [I1].Value
On Error Resume Next
ActiveSheet.AutoFilterMode = False

With [B3:O999]
    .AutoFilter Field:=13, Criteria1:=cycl
    .AutoFilter Field:=14, Criteria1:=jobs
End With

End Sub

تفضل الملف أيضا

عمل SORT بناء على إختيارين.rar

  • Like 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information