التعديل في بيانات صفحة يعدل في بيانات الصفحة الاخري

[وليد عبدالغني]

رجاء المساعدة

بيحث التعديل في العدد في الورقة الاولي يعدل في الثانية 

ولو تم التعديل في الرقم الورقة الثانية يعدل في الاولي 

وجدت بالبحث 

عند التغيير في احدي الخليتين يغير في نفس الصفحة 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Application.EnableEvents = False
    If Target.Address = "$B$2" Then
        Range("$D$10").Value = Target.Value
    ElseIf Target.Address = "$D$10" Then
        Range("$B$2").Value = Target.Value
    End If
    
    
        If Target.Address = "$B$3" Then
        Range("$D$11").Value = Target.Value
    ElseIf Target.Address = "$D$11" Then
        Range("$B$3").Value = Target.Value
    End If
    Application.EnableEvents = True
End Sub

ولكنها تقوم بالتطبيق علي خليتين في نفس الورقة 

ولكني اريد تطبيقها بين الورقتين في عمود العدد

ولكم جزيل الشكر 

New .xlsx

[سليم حاصبيا]

try This macro

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Application.EnableEvents = False
   Dim My_Address$
   My_Address = Target.Offset(8, 2).Address
   If Not Intersect(Target, Me.Range("B2:B5")) Is Nothing _
    And Target.Cells.Count = 1 Then
    Me.Range(My_Address) = Target.Value
    Sheets("close").Range(My_Address) = Target
   End If
    Application.EnableEvents = True
End Sub

File Inclided

Walid.xlsm

[وليد عبدالغني]

الاستاذ سليم حاصبيا الف شكرا لحضرتك علي الاستجابة 

ولكن للاسف فان التعيل في العدد في الصفحة الاولي لا يعدل في العدد العدد المقابل في الصفحة الثانية 

واذا اردت العمل علي الصفحة الثانية بتعديل الاعداد لا يوم بالتعديل علي الصفحة الاولي

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

ولسيادتكم الشكر والعرفان

الف شكر

[سليم حاصبيا]

ضع نفس الماكرو في حدث الصفحة الثانية  مع تعديل في اسماء الصفحات

[وليد عبدالغني]

الاستاذ سليم حاصبيا الف شكرا لحضرتك 

هل يمكن ان تتكرم بتعديل الكود للصفحة الاولي 

بحيث ان التعديل في عمود العدد في الصفحة الاولي يعدل ارقام عمود العدد في الصفحة الثانية 

ولك جزيل الشكر