اخي ابو اسامة اكرمك الله
هذا الكود الذي صنعته لي من قبل جزاك الله خيرا اريد اجراء تعديل عليه
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
بدلا من تنفيذه كلما حدث تغيير في الشيت كله ولك فائق التحية والاحترام