تصفية بيانات بشرطين

[مصطفى محمود مصطفى]

السلام عليكم

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

وفقكم الله وحفظكم من كل شر

 

 

 

 

تصفيةبشرطين.rar

تم تعديل مارس 10, 2018 بواسطه مصطفى محمود مصطفى

[سليم حاصبيا]

جرب هذا الملف

 

تصفيةبشرطين salim.xlsm

[مصطفى محمود مصطفى]

الاستاذ الفاضل سليم حاصبيا جزاكم الله خيرا

عمل ا كثر من رائع وفقكم الله وحفظكم

تم تعديل مارس 10, 2018 بواسطه مصطفى محمود مصطفى

[مصطفى محمود مصطفى]

السلام عليكم

الاستاذ سليم حاصبيا نشكر جهودكم الكبيرة في المنتدى

اخي عند التطبيق في الملف الاصل لم يعمل بالشكل المطلوب حيث اعطيت 1 لرقم  الحساب و 4 رقم العميل 

فلم تجري التصفية وانما حدثت كما في الصورة المرفقة وجربت اكثرمن رقم موجود فعلا ولم تعمل التصفية

ارجو حل المشكلة وهل هناك عناصر يمكن نقلها مع الملف الاصل من الملف الذي عملت عليه

حتى لو كان هناك ضغط على زر للتصفية ليس شرطا ان يستدعي مباشرة عند الكتابة

تحياتي لكم وجزاكم الله خيرا

 

[سليم حاصبيا]

ارفع جزر بسيط من الملف (20 صف على الاكثر)للمعالجة ومعرفة الخطأ

[مصطفى محمود مصطفى]

شكرا لتعاونكم معي

جعلها الله سبحانه وتعالى في ميزان حسناتكم

التصفية.rar

[سليم حاصبيا]

تم معالحة الامر ( لم افهم لماذا هذا الملف كبير جداً 34 ميغا)

استبدل في الكود هذا السطر

S_sh.Range("q2").Formula = "=AND($A4=$A$1&"",$B4=$B$1&"")"

بهذا

S_sh.Range("q2").Formula = "=AND($A4=$A$1&"""",$B4=$B$1&"""")"

لان الخلايا في العامود  A    و  B  هي بتنسيق نص

بينما الخلايا  A1  و B1 يتنسيق ارقام

التصفية salim.rar

[مصطفى محمود مصطفى]

احسنتم وفقكم الله 

الان يعمل بشكل رائع وممتاز

الملف به اكثر من 50000  حساب

لذلك حجمه كبير جدا 

خالص تحياتي واحترامي لشخصكم الكريم