احمد بهجت قام بنشر مارس 25, 2015 قام بنشر مارس 25, 2015 السلام عليكم ورحمة الله وبركاتة تحية طيبة المطلوب : - طلب المساعدة في عمل SORT بناء على إختيارين (المهنة & رقم الدورة) عمل SORT بناء على إختيارين.rar
سليم حاصبيا قام بنشر مارس 25, 2015 قام بنشر مارس 25, 2015 الحل على الصفحة الثانية عمل SORT بناء على إختيارين salim.rar
احمد بهجت قام بنشر مارس 26, 2015 الكاتب قام بنشر مارس 26, 2015 السلام عليكم ورحمة الله وبركاتة اخي الفاضل سليم حاصبيا من الموضح في الملف إستخدام الكود والمعادلات ولكن يوجد خطأ قائم في الملف المرفق أنه عند عمل sort يتم تكرار رؤوس الجداول مرتين ولكن هل من الممكن التعديل على الكود التالي بحيث انه بدلا من أنه مصمم لعمل sort لإختيار واحد يتم تعديله بحيث يصبح الفرز للإختيارين الموضحين سابقاً على الملف المرفق Sub FilterData()Dim strCriteria As StringstrCriteria = Sheet1.Range("C3").ValueOn Error Resume NextWith 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:=xlYesEnd WithEnd Sub
أفضل إجابة طارق محمود قام بنشر مارس 26, 2015 أفضل إجابة قام بنشر مارس 26, 2015 السلام عليكم بعد إذن أخي الغالي سليم تفضل الكود التالي (تعديلا علي الكود الذي أرسلته) يتم تفعيل الكود بالضغط علي الزر بعد تغيير الخليتين الحمراوين 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 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.