المساعدة في اظهار أعمدة واخفاء الباقي حسب قيمة خلية والتي تمثل تاريخ معين

[ahmed040473]

السلام عليكم نرجو من الاخوة الكرام المساعدة في hظاهر أعمدة واخفاء الباقي حسب قيمة خلية والتي تمثل تاريخ معين حسب الملف المرفق

ورقة عمل Microsoft Excel جديد.xlsx

[lionheart]

In worksheet module

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    If Target.Address = "$A$1" Then
        Columns("B:AT").Hidden = False
        If Target.Value = Empty Then Target.Select: Exit Sub
        x = Application.Match(Target.Value2, Rows(3), 0)
        If Not IsError(x) Then
            Columns("B:AT").Hidden = True
            Columns(x).Hidden = False
        End If
        Target.Select
    End If
End Sub

 

[ahmed040473]

رائع ، شكرا 

 

[lionheart]

You can click on LIKE button if the code solved your problem