السلام عليكم
استخدم الكود التالي في حدث الورقة
وهو عند تغيير الشهر في الخلية A1 يتم تشغيل الكود
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Target.Address = Range("A1").Address Then
For Each Cel In Range("H1:BQ1")
If Weekday(Cel.Value) = 6 Then
Range(Cells(3, Cel.Column), Cells(252, Cel.Column)).Resize(, 2).Value = "ج"
End If
Next
End If
End Sub
تحياتي
قيمة بواسطة تنسيق شرطى.rar