اريد تعديل هذا الكود

[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

الكود يعمل بفاءة عالية والحمد لله ولكن التعديل المطلوب

ان يتم تنفيذ الكود فقط كلما حدث تغيير في مدى معين وهو c14 الى c63

بدلا من تنفيذه كلما حدث تغيير في الشيت كله ولك فائق التحية والاحترام

[gamalin]

للرفع

[gamalin]

اخي الحبيب ابو اسامة وباقي الاخوة ارجو بحث هذ الامر

او الرد

[gamalin]

3