خطأ في كود تصفية

[ابوسلماان]

الاعزاء 

 

هل ممكن التعديل على الكود التالي بحيث يقوم بعملية الفرز بناء على قيمة خلية محددة في ورقة عمل؟!

وذلك بدلا من كتابة المبلغ أو الرقم  كتابةً.

 

الكود الحالي هو :

 

ActiveSheet.Range("$A$4:$E$286").AutoFilter Field:=3, Criteria1:=">=50", _
        Operator:=xlAnd, Criteria2:="<=10000"

الكود اعلاه يعمل بشكل صحيح لكن يجب ان اقوم بتغيير الارقام كلما حبيت اسوي تصفية بارقام اخرى.

 

فاحتاج الى ربط القيم المحددة في الكود 50  و  10000    بخليتين مخصصتين بحيث يقرأ منهما.

 

 

خالص محبتي،،

[ابوسلماان]

بعد عدة تجارب  لقيت الحل

 

ActiveSheet.Range("$A$4:$E$286").AutoFilter Field:=3, Criteria1:=">=" & Range("G2").Value, _
        Operator:=xlAnd, Criteria2:="<=" & Range("F2").Value
 

 

شكرا