ماكرو لنسخ خلية حين تغيير قيمة خلية

[عبدالرحمن بدوى]

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

لو سمحت محتاج كود ماكرو يكون دوره ان اي

تغيير في في الخلية الموجودة في العمود10

(وهو العمود j)

يقوم بنسخ قيمة الخلية الموجودة في العمود 2

(وهو العمود b)

ولصقها في الخلية الموجودة في العمود 15

(وهو العمود o)

وذلك في نفس الصف

مثال
حين تغيير قيمة الخلية j5 

يقوم بنسخ قيمة الخلية الموجودة في b5

ولصقها في الخلية 05

وهكذا في اي صف

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

ربما يكون المطلوب

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 10 And Target.Cells.Count = 1 Then
Target.Offset(, 5) = Target.Offset(, -8)
End If
Application.EnableEvents = True
End Sub

 

[aspiran]

مشكور