اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information