(تمت الإجابة) إخفاء السطر في حالة الـ Value لا يعمل

[وسيم العش]

السادة الأعزاء

بالملف المرفق جدول , الأعمدة الأولى فيه هي بيانات من ملف آخر , وبعض الصفوف يجب أن تكون مخفية بالحالة العامة .

احتاج أحيانا إلى إظهار بعضها عن طريق قيمة خلية بإحدى العمودين الأوليين, فقمت بكتابة الكود الموجود بالملف .

اكتب بالخلية ( M1 ) الرقم الذي ابحث عنه ثم اضغط الزر الموجود للبحث وإظهار الصف المطلوب .

المشكلة هي أن البحث بالكود عندما يكون عن طريق القيم (LookIn:=xlValues) لا تظهر هذه الصفوف , مع العلم بأنني لو عدّلت الكود ليخفي إحدى الصفوف فإنه يعمل ويقوم بإخفاء الصف .

بانتظار ردكم

ولكم جزيل الشكر والامتنان

test.rar

[عبدالله المجرب]

المطلوب بصراحة غير مفهوم

[وسيم العش]

اخي الكريم ابو احمد

عذرا لأن كلماتي لم تكن واضحة

سأوضح المطلوب بناءً على المثال التالي :

عندما أكتب رقم 3 في الخلية m1 ( بدلاً من كلمة ملاحظات ) وأشغل الكود يجب أن يظهر الصف الرابع ( المخفي ) , ولكن للأسف الكود لا يعمل .

مع العلم بأنني لو عكست العملية أي لو أن الصفوف كلها كانت ظاهرة , وعدّلت الكود ليخفي الصف المطلوب ( الذي يحوي رقم 3 وهو الصف الرابع ) فإن الكود يعمل ويخفي هذا الصف.

أرجو أن أجد الحل لديكم

بانتظار الرد

[عبدالله المجرب]

السلام عليكم

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

جرب هذا التعديل

Sub FindShow()

    s = Range("M1").Value

    If s = "ملاحظـــات" Then

    Exit Sub

    Else

    For Each cl In Range("A2:A" & [A1000].End(xlUp).Row + 1)

    If cl.EntireRow.Hidden = True And cl = s Then cl.EntireRow.Hidden = False

	 Next

    End If

    Range("M1").Value = "ملاحظـــات"

End Sub

[وسيم العش]

شكراً لك أخي العزيز أبو أحمد

نعم هذا هو المطلوب

زادكم الله علماً وجزاكم عنا كل خير

[عبدالله المجرب]

الحمدلله

تمت الاجابة