طلب تجربة زر الطبع و(حذف الورقة في الأخير دون خروج نافدة التأكيد)

[hicham2610]

السلام عليكم

الإخوة الكرام

أنجزت هذا البرنامج و زر (طبع جداول الفئات)

المرجو تجربة هذا الزر هل يعمل بكفاءة على حواسيب مختلفة؟ بحيث تخرج وثيقة الطبع باسم Test في نفس مكان تواجد الملف .وكيف أمنع الرسالة التي تظهر في الأخير للموافقة على حذف الورقة(الحذف ذون خروج تلك النافذة)؟

(إلتجأت لفكرة إضافة ورقة temp لنسخ الجداول الأربعة عليها وتحويلها دفعة واحدة لملف pdf واحد وحذفها في الأخير)

لكن لاحظت أن هذا الزر مرة يعمل وأخرى لايعمل  تخرج رسالة الخطأ وعند الضغط على debogage أجد هذه الأسطر بالأصفر:

 

وجزاكم الله خيرا

PROG V2.xlsm

تم تعديل يوليو 18, 2019 بواسطه hicham2610

[hicham2610]

السلام عليكم

حللت مشكلة خروج نافذة الموافقة على الحذف

وأتقاسم معكم الحل ليستفيد منه  في حاجة له مع إرجاع أمر خروج النافذة في نهاية كود الحذف:

Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
    
Application.DisplayAlerts = True
        

بقيت مشكلة أن يصلح الملف للاستخدام في  حواسيب أخرى  وليس حاسبي فقط

[بن علية حاجي]

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

الحمد لله أنك اهتديت لحل مشكلة عدم ظهور نافذة تأكيد حذف شيت... وقد قمت بالحل نفسه قبل أن أرى حلك وأرفق لك الملف الذي تم تعديله... بالنسبة للطباعة فالملف يعمل أيضا بجدارة في جهازي...

أخوك بن علية حاجي

PROG V2.xlsm

[hicham2610]

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

جزاك الله خيرا وأحسن إليك

شكرا لاهتمامك وردك.

 

تم تعديل يوليو 19, 2019 بواسطه hicham2610