nash60 قام بنشر مارس 20, 2012 مشاركة قام بنشر مارس 20, 2012 بسم الله الرحمن الرحيم برجاء من الاخوة الكرام المساعدة في تعديل الكود في الملف المرفق حيث انه عند تحديث البيانات بطئ جدا في النسخ وحذف الصفوف الفارغة قي الصفحة الاصلية ASE حيث ان هناك صفوف فارغة لا يلزم نسخها في الصفحة ASE02 فقمت بحذفها من الصفحة ASE واذا كانت هناك فكرة افضل تؤدي لنفس النتيجة فمنكم نستفيد ولكم جزيل الشكر Test1.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مارس 21, 2012 مشاركة قام بنشر مارس 21, 2012 السلام عليكم بعض التعديلات للكود تفضل Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Dim R As Range If Application.WorksheetFunction.CountBlank(Range(Cells(2, 6), Cells(Cells(Rows.Count, 6).End(xlUp).Row, 6))) = 0 Then GoTo 0 Application.EnableEvents = False For Each R In Range("F2:F500") If R.Value = Empty Then R.EntireRow.Delete End If Next R Application.EnableEvents = True 0: Lrw = [A10000].End(xlUp).Row With Sheets("ASE02") .[A2:BZ10000].ClearContents For RT = 2 To Lrw For C = 2 To 12 .Cells(RT, C).Value = Cells(RT, C).Value Next Next End With Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 21, 2012 مشاركة قام بنشر مارس 21, 2012 المشكلة أن الكود في حدث التغيير أي أنه مع كل تغيير لأي من قيم أي خلية من الصفحة سيتوقف حتي عمل التالي: 1. مراجعة الصفوف إن كانت تحتوي علي 0 ثم إلغاؤها 2. نسخة المجال المطلوب للصفحة الثانية أعتقد ان يكون عمل الكود فقط عند تنشيط الصفحة (مرة واحدة) وسيظل أوتوماتيكيا رابط هذا التعليق شارك More sharing options...
nash60 قام بنشر مارس 29, 2012 الكاتب مشاركة قام بنشر مارس 29, 2012 اشكركم جميعا جزيل الشكر وجزاكم الله عنا الف خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان