تلوين خلايا بلون معين من خلية معينه

[سراب الليل]

بسم الله الرحمن الرحيم

عندي جدول في الإكسل من (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

أرجو المساعدة وجزاكم الله خير ..........

[علي السحيب]

السلام عليكم،

المرفق التالي يحتوي على كود قام الأستاذ محمد طاهر بإرفاقة في مشاركة سابقة موجودة على الرابط التالي .. وقد قمت بالتعديل عليه بعض الشيء لكي يتوافق مع ما تحتاج إليه:

http://www.officena.net/ib/index.php?showtopic=9727

والآن إليك المرفق

___________________________________.zip