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