مشكلة في ماكرو جميل جداً للاستاذ ياسر خليل

[محي الدين ابو البشر]

<Sub SplitSpecificSheet()  
   Dim xPath As String  
   Dim SH As Worksheet  
   xPath = Application.ActiveWorkbook.Path  
   Set SH = Sheets("Data")  
   Application.ScreenUpdating = False  
   Application.DisplayAlerts = False  
     With SH  
       .Copy  
       Application.ActiveWorkbook.SaveAs Filename:=xPath & "\Export\" & .Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled  
       ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value  
       Application.ActiveWorkbook.Close True  
     End With  
   Application.DisplayAlerts = True  
   Application.ScreenUpdating = True  
   MsgBox "Done...", 64  
 End Sub  >

السلام عليكم ورحمة من لدنه وبركات

هذا كود رائع وجميل للاستاذ ياسر خليل

مشكلتي معه أن الشيت الذي اسمه DATA  عندي (اسمه غير هذا بالطبع) يوجد فيه (Private Sub Worksheet_Activate())

فعندما يقوم هذا الماكرو بالتصدير يصدره مع الماكرو الموجود في حدث الصفحة بمعنى مشكلة

ممكن اقتراح حل 

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

وعليكم السلام ورحمة الله وبركاته

أخي الحبيب محي الدين

إليك حل مشكلتك في الرابط التالي لنفس الموضوع ، تمت إضافة كود في نهاية الموضوع يلبي طلبك إن شاء الله

الرابط من هنا

[محي الدين ابو البشر]

السلام عليكم

بارك الله بك استاذ ياسر 

اكثر من ساعة وانا احاول أن انزل الملف من الرابط المذكور "عبث"

مع العلم أني نسخت الكود غلى الملف الذي أعمل عليه لم يعمل إلا إذا ألغيت الكود من حدث الصفحة

احاول تنزيل الملف لااحدد أين أخطأت أنا

ادو لي ان انجح في الاتنزيل

دمت ذخراً وأثابك الله

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

وعليكم السلام ورحمة الله وبركاته

أخي الحبيب محي الدين

الملف في الموضوع يحتوي على الكود الأول فقط .. ليس به الإضافة الأخيرة التي تخص حذف الأكواد في موديول ورقة العمل

فقط قم بنسخ الكود الجديد ونفذ الأمر وشوف النتائج .. ولو حدث خطأ يرجى الإشارة إليه بالنقر على كلمة Debug ثم حدد السطر الأصفر أو ضع لنا صورة للتوضيح

تقبل تحياتي

[محي الدين ابو البشر]

استاذ ياسر

المشكلة أنه يقوم بتنفيذ الكود في حدث الشيت المنسوخة بمعنى أن الكود لا يمسح قبل النسخ

مع أني غيرت اسم التاب عندي إلى DATD 

؟؟؟؟

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

ممكن ترفق ملفك أخي الكريم محي الدين للإطلاع عليه ...

تتم عملية النسخ ثم يتم حذف الكود من حدث ورقة العمل في الورقة المنسوخة في المصنف الجديد الذي تم تصديره ..أليس هذا طلبك؟

[محي الدين ابو البشر]

عفوأ استاذ ياسر

الكود في الحدث هو Private Sub Worksheet_Activate()

لذلك تحدث المشكلة

لا أريد حذف الكود من الصفحة المصدرة بل من حدث النسخة

واسف على تعبك معي

جزاك الله كل خير وبركة

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

أخي الكريم محي الدين

هذا ما يحدث يتم حذف الكود في حدث ورقة العمل الجديدة وليس ورقة العمل الأصلية ...

أكرر ارفق ملفك للإطلاع عليه وتجربة الكود عليه

تقبل تحياتي

[محي الدين ابو البشر]

نظرياً كلامك صحيح لكن دعني اقول ذلك بلغة المحكية:

ما عم "يلحق "يحذف الكود لانه عند تفعيل الشيت يبدأ تنفيذ الكود في حدث الصفحة ويتوقف لان التعريفات غير موجودة في WORKBOOK الجديد

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

طيب كفكرة قم باستخدام السطر

Application.EnableEvents=false قبل بداية الكود .. وبعدين فعله في النهاية ..

أعتقد كدا نظرياً ممكن تتحل المشكلة ..

[محي الدين ابو البشر]

انا اسف 

عم احاول ارفع الملف لكن في عندنا مشكلة بالنت

مع ذلك المحاولات جارية

 

السلام عليكم

استاذ ياسر

هي هيه

فعلاً  Application.EnableEvents=false  حلت المشكلة

لا ادري بماذا ادعو لك

جزالك اله كل خير وانالك مبتغاك وادخلك جناته من اوسع ابوابها

 

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

وجزيت خيراً بمثل ما دعوت لي أخي وحبيبي محي الدين ..

الحمد لله الذي بنعمته تتم الصالحات

تقبل وافر تقديري واحترامي