بسم الله الرحمن الرحيم
عندي جدول في الإكسل من (C9:C39) وهذا الجدول فيه أيام الأسبوع لحساب أوقات العمل للموظف الواحد ويوم الجمعة إجازة المطلوب عند ظهور يوم الجمعة تلوين الخلية من (S9:B9)بلون معين يكمن تحديدها من الشفرة
ويفضل لون الأصفر بالشفرة التالية : #FFFF99
وجزاه الله الخير الذي أرسل الشفرة و لاكن فيه عيب واحد أن الخلية لا يمكن أن تنتقل إلى خلية أخرى
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value = 1 Then
Range("B1:F1").Select
With Selection.Interior
.ColorIndex = 5
End With
End If
End Sub
أرجو المساعدة وجزاكم الله خير ..........