كود اخفاء عمود يوم الجمعة فقط

[مصطفى محمود مصطفى]

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

هذا كود اعمل عليه لاخفاء يومي الجمعة والسبت الان اصبح تعديل على ان يكون الاخفاء فقط يوم الجمعة هل يمكن التعديل على الكود

وفقكم الله جميعا

Sub hide_for_abbas()
'اخفاء الجمعة والسبت
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With
If ActiveSheet.Name <> "تسجيل غيابات" Then GoTo exit_sub
Dim Last_Col%, i%
Last_Col = ActiveSheet.Cells(4, Columns.Count).End(1).Column
Range("b3").Resize(1, Last_Col - 1).Columns.Hidden = False
For i = 5 To Last_Col - 1
If Weekday(Cells(4, i)) > 5 Then Cells(3, i).EntireColumn.Hidden = True
Next
exit_sub:
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With
End Sub

 

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

غير الجزء التالي

If Weekday(Cells(4, i)) > 5

ليصبح

If Weekday(Cells(4, i)) = 6 

 

[مصطفى محمود مصطفى]

احسنتم استاذ ابو البراء

وفقكم الله وزادكم من فضله