أرجو المساعدة في شيت الحل

[Habib25130]

السلام عليكم وبعد أرجو المساعدة في عمل تحديث تلقائي للفلتر عند تغيير عدد الخانات في شيت المعطيات حيث أنه يجب في كل مرة الرجوع للفلتر لحذف الفراغات

إحصاء تنبؤي.xlsx

[أ / محمد صالح]

على حسب فهمي للمطلوب

أنك تريد عند تغيير عدد الخانات في شيت المعطيات

يتم تنفيذ الفلتر في شيت الحل تلقائيا

هل هذا هو المطلوب؟

[Habib25130]

أجل وهو كذلك فالخانات الفارغة لا تختفي إلا بعد الرجوع للفلتر

إحصاء تنبؤي.xlsx

[بن علية حاجي]

السلام عليكم ورحمة الله

استعمل الزر "Actualiser" للفترة...

إحصاء.xlsm

[أ / محمد صالح]

مادام المطلوب هو كما ذكرت لك في المشاركة السابقة فيمكنك وضع هذا الكود في شيت المعطيات

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$16" Then
Sheets(2).Range("$R$9:$R$35").AutoFilter Field:=1, Criteria1:="non"
End If
End Sub

ويعني أنه إذا كانت الخلية التي تم تغييرها هي h16 فيقوم بتنفيذ الفلتر في شيت الحل تلقائيا

ويلزمك حفظ الملف بصيغة تدعم الكود مثل xlsb

وهذا ملفك بعد تطبيق ما سبق

احصاء تنبؤي.xlsb

[Habib25130]

بارك الله فيكم أستاذيّ الكريمين محمد صالح و بن علية حاجي حقيقة كفيتم ووفيتم 

ودمتم لنا ذخرا وفقكم الله.

[Habib25130]

لكن لاحظت أنه لا يمكن عمل حماية للشيت بوجود الأكواد 🙂 

[أ / محمد صالح]

أثناء حماية شيت الحل

review --> protect sheet

يمكنك تحديد اختيار use auto filter للسماح باستخدام التصفية التلقائية رغم وجود الحماية