حمادة باشا

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

الأخ الكريم / السلام عليكم ورحمة الله وبركاته نعم السطر بالأصفر به خطأ : Range("$A$22:$A$65000").End(xlDown).Offset(1, 0).Select حيث جزئية .End(xlDown) تعني آخر سطر في الورقة بينما الجزئية .Offset(1, 0) تشير إلي الخلية بالسطر أسفل الحالي - وحيث الحالي هو آخر سطر بالورقة لذا ظهرت رسالة الخطأ إقترح التالي وعدل ما تريد حسب ما تري : 1- إن اردت النسخ حتي مدي (Range) محدد - إستخدم Range("$A$22").Copy Range(Range("$A$22").Offset(1, 0), "$A$65000").PasteSpecial (xlPasteValues) 2- إن أردت النسخ حتي نهاية الورقة - إستخدم Range("$A$22").Copy Range(Range("$A$22").Offset(1, 0), Range("$A$22").End(xlDown)).PasteSpecial (xlPasteValues) أرجو أن أكون قد أفدتك تقبل تحياتي

الأخت الفاضلة / السلام عليكم ورحمة الله وبركاته بالإضافة إلي الكود الذي تفضل به الأستاذ/ عباد قمت بعمل تصور عملي للترحيل من الصفحة الرئيسية إلي الغرف كما في المرفق Copy of New Microsoft Excel Worksheet (9) (6).rar

وبارك الله فيكم أستاذ/ إبراهيم أبوليلة تقبل تحياتي

تصور سريع للأمر يمكن تطويره حسب المطلوب لكل جزئية علي حده التعديل في المرفق Copy of New Microsoft Excel Worksheet (9) (6).rar

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

الأستاذ الكريم/ إبراهيم أبوليلة أشكركم علي الإطراء الجميل نحن نتعلم منكم - وجزاكم الله كل خير

الأخ الكريم السلام عليكم ورحمة الله وبركاته 1- بالنسبة للخطأ الأول فهو أحد إحتمالين : الإحتمال الأول ما أشار إليه الأستاذ/ إبراهيم ابوليله من وضع جملة IF كاملة في سطر واحد ثم في السطر التالي وضعت End IF الإحتمال الثاني أن يكون هناك جملة End IF مكررة دون وجود IF..Then مرتبطة بها 2- أما ما يتعلق بخطأ عدم تعريف المتغير فهو أيضا أحد إحتمالين إما أنه توجد جملة Option Explicit في بداية الكود ما يلزمك بتعريف المتغير قبل إستخدامه أو أن المتغير تمت الإشارة إليه خارج ال Sub المعروف داخلها . هذا والله أعلي وأعلم والسلام عليكم ورحمة الله وبركاته

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

ألف مبروك أخي أحمد وإلي الأمام بإذن الله

أستاذنا/ عبدالله باقشير الدالة التي قمتم بإضافتها ستختصر الأمر بالفعل وشكرا علي الإضافة الأستاذ/ عباد شكرا لكم مروركم الكريم

جزاك الله خيرا أخي الكريم تقبل تحياتي

السلام عليكم ورحمة الله وبركاته في البداية أقدم التحية للأستاذ/ عبدالله باقشير صاحب دالة حساب أيام الغياب الأخت الفاضلة/ أم عبدالله لم يتم التعديل علي كود الملف الأصلي - بل تمت بعض الإضافات أعتقد أنها ستلبي المطلوب بإذن الله كما قمت بترقية الملف إلي 2007 حيث أن نسخة 2003 غير متوافقة مع الإضافات برجاء قراءة الملاحظات داخل الملف والله الموفق ASA3.rar

بناء علي طلب الأخت الكريمة/ أم عبدالله أرجو أن يكون المطلوب تقبلي تحياتي جدول تلقائي-2.rar

الأخ الفاضل/ عباد ألف مبروك وأنت لها لا أراك إلا سباقا في مساعدة الأعضاء وتلبية الطلبات بالتوفيق دائما

تفضل أخي الكريم - أرجو أن يكون المطلوب الكود ضمن الملف للإطلاع .. تقبل تحياتي جدول تلقائي.rar

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

دالة ممتازة ومتعددة الإستخدامات ستريحنا من عناء التكويد في البحث عن الأسماء جزاك الله كل خير يا أستاذ/ عبدالله

تمت تعديلات بسيطة علي الكود - لم أتمكن من التجربة لوجود رابط ملف آخر للتحديث علي جهازك عموما جرب المرفق ... Trading Investments - 1.rar Trading Investments - 2.rar

الأخت الفاضلة/ أم عبدالله السلام عليكم ورحمة الله وبركاته عمل رائع وقيم فالتعامل مع التواريخ يعد من أدق المهام البرمجية أتمني دوام التوفيق والنجاح

الأستاذ/ عبدالله السلام عليكم ورحمة الله وبركاته شاكر لكم المرور أستاذي

الأخ/ عبدالسلام السلام عليكم ورحمة الله وبركاته تم إضافة سطران لإعدادات الصفحة في الطباعة داخل كود زر الطباعة (myPrint) السطر الأول يحدد ملء الصفحة في العرض (FitToPagesWide = 1) والسطر الثاني يحدد ملء الصفحة في الطول (FitToPagesTall = 1) مع إلغاء خاصية تصغير الطباعة (Zoom = False) والكود الكامل في الملف ... تقبل تحياتي

أرجو أن يكون حسب المطلوب برنامج تسيير الارشيف2.rar

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

الحمد لله الذي وفقني لذلك - وتحت أمرك جزاك الله خيرا أستاذي العزيز - أسأل الله أن يوفقنا وإياكم إلي مساعدة الأخوة وتلبية حاجاتهم ما أستطعنا بارك الله فيكم أستاذ/ عبدالله وأنتهز الفرصة لأتوجه بالشكر لإدارة الموقع علي منحي لقب " عضو محترف " وأسأل الله أن أكون عند حسن الظن بي