ابوسلماان قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 الاعزاء هل ممكن التعديل على الكود التالي بحيث يقوم بعملية الفرز بناء على قيمة خلية محددة في ورقة عمل؟! وذلك بدلا من كتابة المبلغ أو الرقم كتابةً. الكود الحالي هو : ActiveSheet.Range("$A$4:$E$286").AutoFilter Field:=3, Criteria1:=">=50", _ Operator:=xlAnd, Criteria2:="<=10000" الكود اعلاه يعمل بشكل صحيح لكن يجب ان اقوم بتغيير الارقام كلما حبيت اسوي تصفية بارقام اخرى. فاحتاج الى ربط القيم المحددة في الكود 50 و 10000 بخليتين مخصصتين بحيث يقرأ منهما. خالص محبتي،، رابط هذا التعليق شارك More sharing options...
ابوسلماان قام بنشر يناير 31, 2017 الكاتب مشاركة قام بنشر يناير 31, 2017 بعد عدة تجارب لقيت الحل ActiveSheet.Range("$A$4:$E$286").AutoFilter Field:=3, Criteria1:=">=" & Range("G2").Value, _ Operator:=xlAnd, Criteria2:="<=" & Range("F2").Value شكرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.