تغيير القيمة في الخلية الموجودة في شيت تتغير القيمة المرتبطة بها في شيت اخر والعكس صحيح

[ابومريم]

السلام عليكم

لدي خليتين في شيتين مختلفين

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

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

ولكم الشكر

ChangeTwoCells.rar

تم تعديل ديسمبر 4, 2013 بواسطه ابومريم

[أبو حنــــين]

السلام عليكم

تضع في شيت1 الكود

Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("Sheet2").Range("B5") = Sheets("Sheet1").Range("B5")

End Sub

و تضع في شيت2 الكود

Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("Sheet1").Range("B5") = Sheets("Sheet2").Range("B5")

End Sub

[احمد حبيبه]

استاذى الفاضل ..أبو حنين

هل يمكن عمل هذا الكود على عامود كامل  اول على نطاق  اكبر

ولك كل التحيه

[أبو حنــــين]

السلام عليكم

قمت بالكود في النطاق B1:B35 و يمكن تغييره

ضع في شيت1 هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 35
If Sheets("Sheet2").Cells(i, 2).Address = Target.Address And Target <> "" Then
Sheets("Sheet2").Cells(i, 2) = Target
Exit For
End If
Next
End Sub

و ضع في شيت2 هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 35
If Sheets("Sheet1").Cells(i, 2).Address = Target.Address And Target <> "" Then
Sheets("Sheet1").Cells(i, 2) = Target
Exit For
End If
Next
End Sub

[احمد حبيبه]

اخى واستاذى الفاضل ابو حنين ..

لك كل التحيه والاعزاز على الكود الرائع .. لكن لى طلب اخير من حضرتك ارجو تعديل الكود ليشمل نطاق اكبر .. على سبيل المثال  (b1 : o100)  فهل هذا ممكن .. ولحضرتك كل الاحترام والتقدير ..اخوك احمد

[أبو حنــــين]

السلام عليكم

استعمل هذا الكود

'ضع هذا الكود في شيت 1


Private Sub Worksheet_Change(ByVal Target As Range)
    
    On Error GoTo 1
    Dim rr As Range
For Each rr In Sheets("Sheet2").Range("B1:O100")
If rr.Address = Target.Address Then
    rr = Target
    Exit For
End If
Next
1

End Sub





'و ضع  هذا الكود في شيت 2



Private Sub Worksheet_Change(ByVal Target As Range)
    
    On Error GoTo 1
    Dim r As Range
For Each r In Sheets("Sheet1").Range("B1:O100")
If r.Address = Target.Address Then
    r = Target
    Exit For
End If
Next
1

End Sub

[ابو اياد ( الاسيوطى )]

أستاذنا ومعلمنا الكبير // ابو حنين الرائع

كود سهل ومختصر وجميل

وان شاء الله تعالى بعد هذا الكود اود ان ابدء العمل العملى للأكواد وربنا يعنا على التعلم

وان شاء الله سيكون لى عده مواضيع فيها بعض طلبات البسيطه ان شاء الله عن الترحيل ولكنى اود ان تكون الاكواد مختصره وسهله مثل هذا الكود

ايضا اريد ان اصل الى اكثر من حل حتى يتسنى لى التعلم ومعرفه اكثر من حل للمطلوب

 

انتظرك وتقبل تحياتى

[أبو حنــــين]

جزاك الله خيرا اخي محمود الأسيوطي

و انا متأكد من قدرتك على الوصول السريع الى مبتغاك  لانني اتتبع ردودك من حين الى آخر و أشم فيها رائحة الذكاء

حظ سعيد و انا في الخدمة ان شاء الله

و السلام عليكم

[احمد حبيبه]

اخى الحبيب

أبو حنين

اشكرك جدا جدا على هذا الابداع الراقى ..دائما اكوادك تستحق ان يخصص لها مكتبه خاصه .لك كل التحيه

اسف جدا لى طلب اخير ..هل يمكن ان يكون النطاق  فى sheet2 مختلف عن النطاق فى sheet2

مثال نطاق b1:g100)  sheet1 )  ------ ونطاق  d1:z100) sheet2 )  ويكون sheet 2 مجرد متلقى فقط ولا يكتب فيه شيء الادخال يكون فى sheet1 فقط .لك تحياتى

تم تعديل ديسمبر 6, 2013 بواسطه Ahmed Habiba

[احمد حبيبه]

up

[احمد حبيبه]

up

[احمد حبيبه]

للرفع