احمد بهجت قام بنشر مارس 25, 2015 مشاركة قام بنشر مارس 25, 2015 السلام عليكم ورحمة الله وبركاتة تحية طيبة المطلوب : - طلب المساعدة في عمل SORT بناء على إختيارين (المهنة & رقم الدورة) عمل SORT بناء على إختيارين.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 25, 2015 مشاركة قام بنشر مارس 25, 2015 الحل على الصفحة الثانية عمل SORT بناء على إختيارين salim.rar رابط هذا التعليق شارك More sharing options...
احمد بهجت قام بنشر مارس 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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة طارق محمود قام بنشر مارس 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 رابط هذا التعليق شارك More sharing options...
احمد بهجت قام بنشر مارس 26, 2015 الكاتب مشاركة قام بنشر مارس 26, 2015 سلمت يداك أستاذي الفاضل طارق محمود رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان