gamalin قام بنشر مايو 21, 2008 مشاركة قام بنشر مايو 21, 2008 اخي ابو اسامة اكرمك الله هذا الكود الذي صنعته لي من قبل جزاك الله خيرا اريد اجراء تعديل عليه 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 بدلا من تنفيذه كلما حدث تغيير في الشيت كله ولك فائق التحية والاحترام رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر مايو 21, 2008 الكاتب مشاركة قام بنشر مايو 21, 2008 للرفع رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر مايو 21, 2008 الكاتب مشاركة قام بنشر مايو 21, 2008 اخي الحبيب ابو اسامة وباقي الاخوة ارجو بحث هذ الامر او الرد رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر مايو 22, 2008 الكاتب مشاركة قام بنشر مايو 22, 2008 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.