اخفاء أعمد بكتابة العدد المراد إخفائه

[إيهاب عبد الحميد]

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

هذه أول مشاركتي أو بمعنى أدق استفساراتي ...

أنا أطلب من سيادتكم كود أو طريقة بحيث أخفي أعمدة (عن طريق كتابة عدد الأعمدة المراد إخفائها في خلية معينة)

ولتكن خلية IM كما في الشيت الذي أعمل عليه ...

بحيث لو كتبت عدد 50 يتم إخفاء أول 50 عمود وهكذا.

وإذا كانت الخليه فارغة أو بها صفر يصبح الكل ظاهر

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

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

أخي الكريم إيهاب

أهلاً بك في المنتدى ونورت بين إخوانك

يرجى تغيير اسم الظهور للغة العربية ومراجعة موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى

بالنسبة لطلبك ..

اعمل كليك يمين على اسم ورقة العمل ثم اختر الأمر View Code .. وضع الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$IM$1" Then
        Dim str As String
        
        Application.EnableEvents = False
            If IsNumeric(Target) And Target.Value <> 0 Then
                Cells.EntireColumn.Hidden = False
                str = Split(Cells(1, Target.Value).Address, "$")(1)
                Columns("A:" & str).Hidden = True
            ElseIf Target.Value = 0 Then
                Cells.EntireColumn.Hidden = False
            End If
        Application.EnableEvents = True
    End If
End Sub

تقبل تحياتي

[إيهاب عبد الحميد]

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

أستاذي ياسر ... ساعات كلمات الشكر تكون قليلة ولا تناسب قدر العمل ولكن جزاك الله خيرا 

ولن أستطيع أوفي قدرك

وأكيد هغير اسمي بالعربي الآن