تعديل على كود نسخ مع حذف صفوف

[nash60]

بسم الله الرحمن الرحيم

برجاء من الاخوة الكرام المساعدة في تعديل الكود في الملف المرفق حيث انه عند تحديث البيانات

بطئ جدا في النسخ وحذف الصفوف الفارغة قي الصفحة الاصلية ASE حيث ان هناك صفوف

فارغة لا يلزم نسخها في الصفحة ASE02 فقمت بحذفها من الصفحة ASE

واذا كانت هناك فكرة افضل تؤدي لنفس النتيجة فمنكم نستفيد

ولكم جزيل الشكر

Test1.rar

[الـعيدروس]

السلام عليكم

بعض التعديلات للكود

تفضل

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

[طارق محمود]

المشكلة أن الكود في حدث التغيير

أي أنه مع كل تغيير لأي من قيم أي خلية من الصفحة سيتوقف حتي عمل التالي:

1. مراجعة الصفوف إن كانت تحتوي علي 0 ثم إلغاؤها

2. نسخة المجال المطلوب للصفحة الثانية

أعتقد ان يكون عمل الكود فقط عند تنشيط الصفحة (مرة واحدة) وسيظل أوتوماتيكيا

[nash60]

اشكركم جميعا جزيل الشكر وجزاكم الله عنا الف خير