محسن أبومحمد

استاذنا الفاضل / أحمد يوسف التالي هو جزء من الكود الأصلي حسب شرح استاذنا ياسر أبو الخليل ويتضمن نسخ جميع أوراق العمل من داخل الملف Do While Filename <> "" 'فتح المصنف Workbooks.Open Filename:=Path & Filename, ReadOnly:=True 'حلقة تكرارية لكل أوراق العمل داخل المصنف النشط For Each SH In ActiveWorkbook.Sheets 'نسخ ورقة العمل ولصقها بنهاية فهرس أوراق العمل SH.Copy After:=ThisWorkbook.Sheets(X) 'زيادة قيمة المتغير بمقدار 1 X = X + 1 'الانتقال لورقة العمل التالية Next SH 'إغلاق المصنف Workbooks(Filename).Close ما احتاج اليه هو نسخ sheet1 فقط وليس جميع الأوراق وجزاكم الله خير على علمكم وصبركم وعطاؤكم

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

الاخ الفاضل عبدالله الصاري مشكور على وقتك ومجهودك لقد قمت بالمطلوب جزاك الله كل خير

الاساتذة الكرام بالمنتدى ارغب في تطبيق كود التصفية على مجموعة كبيرة من الشيتات مرقمة من 1إلى 4 بحيث تظهر نتائج التصفية في شيت filter لما بان الملف المرفق يتضمن كود تصفية من اعداد الاستاذ الرائع ياسر حليل ابو البراءAdvanced Filter VBA.xlsm مع خالص التحية والتقدير

تحية طيبة الي جميع الأساتذة الكرام ارغب في إضافة كود يتعرف على الأعمدة التي بها تواريخ في قاعدة البيانات على ان يقوم المستخدم بإضافة التاريخ (YYYY/MM/DD) مع خالص التحية والاحترام لجميع الأساتذة

استاذنا العزيز جزاك الله خير

الاستاذ الكبير : عبدالله باقشير ... أعمالك كلها بها لمسة فنية جميلة بارك الله فيك وبارك ولك .. وننتظر منكم المزيد .... استاذنا هل يمكن اظهار البيانات داخل ال frame علي شكل 4اعمدة ولكم جزيل الشكر والاحترام

استاذنا الفاضل جزاك الله كل خير حقيقة الأمر اني تعلمت منك الكثير جعله الله في ميزان حسناتك

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

السلام عليكم خبراء المنتدى ممكن فورم حفظ الملفات الورد أو pdf في قاعدة البيانات أكسس أو أكسيل .. كذلك لو امكن كيف أستعرض ملف الورد أو الpdf داخل الفورم حيث يمكن قراءة محتواه وطباعته .. ياريت مساعدة الله يخليكم ..

من كل قلبي اتمنى لكم مزيد من العلم والتوفيق