إخفاء وإظهار أوراق

[أ/حكيم]

الاخوة أعضاء المنتدى أريد كود لإخفاء وإظهار أوراق متفرقة مثال الورقة 3 و 5 و 7 و 17 و 27 وشكراً ...

[قنديل الصياد]

اخى العزيز

انتظر المرفق

 

 

 

اخفاء واظهار الاوراق.rar

[أ/حكيم]

شكراً للأخ قنديل الصياد ...... المطلوب كما هو موضح في المرفق ...أرجو أن أكون قد وضحت المطلوب ....

أوراق.zip

[عبدالله باقشير]

السلام عليكم

 

جرب الكود التالي

Sub Macro1()
Dim i As Integer
Dim ib As Boolean

With Worksheets
    For i = 1 To .Count
        ib = WorksheetFunction.CountIf(Range("A3:A100"), i)
        If ib Then .Item(i).Visible = 0 Else .Item(i).Visible = -1
    Next
End With
End Sub

المرفق 2010

 

أوراق.rar

[أ/حكيم]

أستاذنا المتميز دائما .... شكككككككككككككككككككككككككككرا و جزاك الله خيراً .......

[محمود_الشريف]

أساتذتى الكرام

جزيتم عنا خير الخير

وبارك الله فيكم