اريد تنفيذ هذا الكود كلما تغيرت الخلية c3 او ؤ4 او ؤ5

[gamalin]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Dim myt As Range
Application.EnableEvents = False
For Each cell In Sheets("ÝæÇÊíÑ ").Range("b2:b65500")
For i = 1 To 13
Set myt = Range("c63").End(xlUp)
If myt.Value = cell.Value Then
myt.Offset(0, i).Value = cell.Offset(0, i + 2).Value
myt.Offset(0, -1).Value = myt.Row - 13
End If
Next
Next
Application.EnableEvents = True
End Sub

هذا الكود لاخي ابو اسامة

هذا الكود يتم تنفيذه كلما حدث تغيير في الشيت
اريد تعديله ليعمل كلما حدث تعديل في خلايا محدده في مدى معين مثلا من c3 الى c10

[ابو اسامة العينبوسي]

السلام عليكم

اخى محمد ارسلى الملف

و انا اعدله