تلوين خلية بمعرفة خلية اخرى

[Abo Sufiyan]

اخوانى واحبائى

 

ارجوا المساعدة فى الملف المرفق حيث يوجد جدولين متساوين فى عدد الصفوف والعمدان ارجوا عند تلوين خلية فى الجدول الثانى يتلون نفس الخلية فى الجدول الاول

 

 

 Book1.xlsx

تم تعديل مايو 21 بواسطه Abo Sufiyan

[محمد هشام.]

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

جرب هل هدا ما تقصده 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim A As Range
    For Each A In Range("M3:P28")
        If Not IsError(A) Then
        
    Application.ScreenUpdating = False
    Application.EnableEvents = False
      
If A.Interior.ColorIndex <> xlNone Then
     A.Offset(0, -9).Interior _
              .ColorIndex = A.Interior.ColorIndex
            Else
             A.Offset(0, -9).Interior.ColorIndex = xlNone
            End If
        End If
    Next A
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
End Sub

 

Book1 V2.xlsb