طلب عمل كود

[samycalls2020]

الكود بزر

Sub Test()
    Range("D2").Value = Range("A1").Value
End Sub

ممكن عمله بدون زر من فضلك

تم تعديل فبراير 4, 2023 بواسطه samycalls2020

[حسونة حسين]

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then Range("D2").Value = Range("A1").Value
End Sub

 

[samycalls2020]

شكراً على الرد أ/حسونة

لكن حاولت التطبيق على حقلين في عمودين مختلفين ليناسب الملف الذى يخصني فلم أوفق

أرفقت طلبي بهذا الملف .

وبارك الله فيكم

Test2.xlsm

[حسونة حسين]

جرب هذا التعديل

Private Sub Worksheet_Activate()

 Range("M5:M17").value = Range("G5:G17").value

End Sub

 

[samycalls2020]

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

وفى حالة الجزء الخاص بالكتابة المباشرة فى ورقة data من G5 TO G10 لا يحدث نسخ

[samycalls2020]

Private Sub Worksheet_Change(ByVal Target As Range)
Range("M5:M17").Value = Range("G5:G17").Value
End Sub

بهذا التعديل يعمل الكود وبعدها يعطى رسالة

[a.kawkab]

السلام عليكم 

تفضل الشيت بعد التعديل يعمل جيدا

Test2.xlsm

[samycalls2020]

تم استخدام الكودين معاً

فكرة لابأس بها . . شكرا يا أخي