الاعزاء
هل ممكن التعديل على الكود التالي بحيث يقوم بعملية الفرز بناء على قيمة خلية محددة في ورقة عمل؟!
وذلك بدلا من كتابة المبلغ أو الرقم كتابةً.
الكود الحالي هو :
ActiveSheet.Range("$A$4:$E$286").AutoFilter Field:=3, Criteria1:=">=50", _
Operator:=xlAnd, Criteria2:="<=10000"
الكود اعلاه يعمل بشكل صحيح لكن يجب ان اقوم بتغيير الارقام كلما حبيت اسوي تصفية بارقام اخرى.
فاحتاج الى ربط القيم المحددة في الكود 50 و 10000 بخليتين مخصصتين بحيث يقرأ منهما.
خالص محبتي،،