تعديل فى كود تصفية

[samycalls2020]

السلام عليكم ..

الأخوة الأعزاء .. الرجاء مشاركتى هذا الموضوع ..

تعديل لكود.rar

[ياسر خليل أبو البراء]

وعليكم السلام أخي الكريم سامي

لما لا تقوم بوضع التفاصيل في الموضوع نفسه قبل إرفاق الملف ..

جرب الكود التالي حسب ما فهمت من ملفك .. حيث يمكن أن يكون كود واحد يشمل الحالة الأولى والثانية

أما النقطة الثالثة فلم أفهمها .. أو فهمتها ولكن حسب فهمي أنت محدد خيارات محددة في القائمة المنسدلة .. ماذا تريد بالضبط في النقطة الثالثة ..؟!!

Sub Test()
    Dim o As Object
    
    With ActiveSheet
    Set o = .ListObjects("الجدول1")
        If .Range("K9") = "" Or .Range("K9") = 0 Then o.AutoFilter.ShowAllData: Exit Sub
        .ListObjects("الجدول1").Range.AutoFilter Field:=9, Criteria1:=Range("K9")
    End With
End Sub

 

[samycalls2020]

كل التقدير للأخ الكريم / ياسر .. الذى دائماً ما يكون سباق بالمشاركة والخير للأخرين ..

أولاً :  لقد قمت بوضع الكود وهو يعمل على الإيقاف فى حالة خلو k9 من اسم الحساب .. هذا تمام التمام

وهل لى أن اطلب شئ لهذا الكود يضف مزيد من الأستفادة .. وهو مع الإيقاف يعطى فى k8 جملة ..من فضلك أدخل اسم الحساب  .

ثانيا : المقصود بالنقطة الثالثة أن يكون حساب ( البنك ) مثلاً بديل افتراضى فى حالة خلو k9 من اسم حساب

كل الشكر ..

 

تعديل لكود2.rar

[ياسر خليل أبو البراء]

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

[samycalls2020]

هذه محاوله 

55 دقائق مضت, samycalls2020 said:

وهل لى أن اطلب شئ لهذا الكود يضف مزيد من الأستفادة .. وهو مع الإيقاف يعطى فى k8 جملة ..من فضلك أدخل اسم الحساب  .

 

تعديل لكود3.rar

[ياسر خليل أبو البراء]

تفضل الملف قمت بتعديل الخلية التي بها قائمة منسدلة لتسمح لك بإدخال آخر .. ولو وجد النص "من فضلك أدخل اسم الحساب" سيتم إالغاء الفلترة 

تعديل لكود3.rar

[الأستاذ / محمد الدسوقى]

رائع ومبدع كالعادة أستاذى الغالى أبو البراء

دائما السهل الممتنع

الحل بأبسط طرق

تقبل تحياتى

[ياسر خليل أبو البراء]

بارك الله فيك أخي العزيز محمد الدسوقي ومشكور على كلماتك الطيبة

[samycalls2020]

كل الشكر للأخ الكريم ياسر وكل كن شارك