مهند الزيدي

للرفع

للرفع

شكرا للاخ أبو عبد الباري ... ممكن من الإخوة الأعضاء حل بالكود فقط

شكرا لك أخي العزيز أبو عبد الباري .. كل عام وانت بخير ... وفقك الله لكل خير .. ممكن عمل ذلك بالكود .. بدلا من دالة ال VLookup ... .مع شكري مرة ثانية لاستجابتك

للرفع

السلام عليكم ... ممكن عمل كود .. الشرح داخل المرفق .. وفقكم الله لكل خير طباعة أسماء.zip

الحمد لله على السلامة .. أخي ياسر .. أتمنى أن تكون بخير .. ورمضان كريم وكل عام وانت بخير

للرفع

شكرا لك اخي عمر الحسيني .. وفقك الله لكل خير .. عملت كل خطوات حل المشكلة التي شرحتها .. ولكن لاتظهر ال Spreadsheet عند تشغيل الفورم ولا عند VBA كما في الصورة المرفقة

شكرا على المجهود الرائع ..وفقك الله لكل خير ... جربت تشغيل على 2016 ولم يعمل بشكل صحيح.. ارجو الحل

للرفع

للرفع

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

للرفع

وفقكم الله لكل خير.. وجعله في ميزان حسناتكم

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

السلام عليكم .. ممكن عمل كود للزر Minimize ...... وفقكم الله لكل خير MinimizeUserform.zip

وفقك الله لكل أخي " ياسر " .. واحسنت على الحلول الرائعة .. بارك الله فيك

أخي العزيز ياسر ... وفقك الله لكل خير ... بعد تغير إعدادات الماكرو كما يلي ..تم حل المشكلة ...الحمد لله رب العالمين ..لقد أتعبتك معي جزاك الله خيرا ..بما تقدمه من مشورة ونصح

شكرا لك أخي العزيز .. ياسر .. لقد قمت بالإعلان على المتغير strName كما في الكود .. الصور المرفقة تبين الخطأ ...

أخي العزيز ياسر . لقد حاولت تطبيق نفس الكود ..ولكن أريد أن يتم حذف الأكواد في أي صفحة وليس فقط الصفحة ( Data) وقد عدلت الكود بهذه الطريقة ولم تنجح ..أرجو التعديل الصحيح .. وفقك الله لكل خير strName =SH.CodeName With ActiveWorkbook.VBProject.VBComponents(strName).CodeModule .DeleteLines 1, .CountOfLines End With

أخي العزيز " ياسر " .. اتمنى أن لا اكون أثقلت عليك بطلباتي الكثيرة .. عند تكون أحدى أوراق العمل تجتوي على كود اي كان في داخل حدث الورقة ..وعند تنفيذ الكود الرائع لإنشطار اوراق العمل في المصنف .. تظهر رسالة خطأ وتوقف عملية الإنشطار .. هل من الممكن إضافة بسيطة بحيث عن تقسيم الاوراق يتم حذف الكود في حدث الورقة .. مع شكري وإمتناني الكثير لك اخي العزيز .. علما اني وجدت في مدونتك الرائعة نفس الفكرة واتمنى أن يتم تطبيقها على هذا الموضوع ,هذا رابط الموضوع في المدونة https://yasserkhalilexcellover.blogspot.com/2016/04/export-specific-sheet-to-new-workbook.html

تدلل

شكرا لك اخي ياسر وفقك الله لكل خير ..تم المطلوب والحمد لله رب العالمين وآسف على عدم الرد السريع لظروف خاصة .. رزقك الله الصحة والعافية

شكرا لك أخي العزيز " ياسر " لا أعرف كيف اجازيك .. ولكن ليس لي سوى الدعاء لك ولوالديك.. أني اتكلم في نفس الموضوع ونفس الملف المرفق عن طريق حضرتك ..سوف أرفق الملف تجنبا لاي اشكال مستقبلا... أعمل أي معادلة في الصفحات في اي مكان .. ونفذ الكود بعد التعديل .وشاهد النتيجة .. أتمنى أن تجد الحل .لانه ملف راقي وفكرة ممتازة .. وفقك الله لكل خير Split Workbook Into Multiple Workbooks1.rar