بارك الله فيكم جميعا كلها حلول ممتازة
افضل ما فى هذا المنتدى الكريم هو التنافس الشريف من اجل دائما للوصول للأفضل ادامكم الله لنا عونا فى حل حوائجنا بارك الله فيكم جميعا وجعل هذ العمل فى ميزان حسناتكم
طالما انك لم تقم برفع ملف وتوضيح طلبك
تفضل هذا الكود فى حدث الورقة
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Range("C2").Interior.Color = Me.Range("A2").Interior.Color
End Sub
ولإثراء الموضوع
هذا كود لتفعيل الماكرو
Sub enableEvents()
Application.EnableEvents = True
End Sub
وهذا كود اخر لتعطيل الماكرو
Sub disableEvents()
Application.EnableEvents = False
End Sub