الكود يسبب تهنيجة الملف

[إبراهيم ابوليله]

الاخوه الكرام

لدى كود استخراج بيانات

الكود فى حدث الورقه

دفترالحركه

عند الكتابه فى العمود b

او العمود e

يحدث تهنيجه للملف لفتره

ثم تنتهى

ارجو المساعده

Book1.rar

[إبراهيم ابوليله]

للرفع

[أبوعيد]

السلام عليكم

هذا السطر هو أول سطر في الكود

On Error Resume Next

حاول أن تغير مكانه

[إبراهيم ابوليله]

اخى ابوعيد

اشكرك على الاهتمام

لكنى حاولت ولم تفلح معى الطريقه

تقبل تحياتى

[إبراهيم ابوليله]

للرفع

[ياسر خليل أبو البراء]

جرب إضافة هذه الأسطر في بداية الكود

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

وهذه الأسطر في نهاية الكود

Application.EnableEvents = True
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True

[إبراهيم ابوليله]

 

جرب إضافة هذه الأسطر في بداية الكود

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

وهذه الأسطر في نهاية الكود

Application.EnableEvents = True
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True

اخى ياسر

اشكرك على الاهتمام

ولكن بالفعل جربت استخدام هذا من قبل

وكانت النتيجه تقليل التهنيجه بقدر كبير

ولكن المشكله تكمن عند الحزف

فبعد الحزف

وعند ادخال بيانات فان الكود لا يعمل

ولا يقوم باحضار البيانات

الا بعد غلق الملف واعاده فتحه

تقبل تحياتى

[إبراهيم ابوليله]

للرفع

-----------------------

اذ كان هذا الكود يسبب التهنيجه

فهل هناك كود اخر يكون خفيف

ويؤدى نفس الغرض

تقبلو تحياتى