skyblue قام بنشر نوفمبر 14, 2012 قام بنشر نوفمبر 14, 2012 السلام عليكم ورحمة الله وبركاته وبعد اخواني الاساتذة المشرفين والاعضاء الافاضل المحترمين في الملف المرفق كود يقوم بنسخ الورقة الى ورقة اخرى باسم انت تختاره . وارجوا التكرم بالمساعدة في التعديل بالكود بحيث اذا قام بنسخ ورقة ان ينسخها بدون المعادلات الموجودة في الورقة الرئيسية (( اي الورقة المنسوخة بدون معادلات )) . تحياتي نسخ ورقة.rar
رجب جاويش قام بنشر نوفمبر 14, 2012 قام بنشر نوفمبر 14, 2012 السلام عليكم ورحمة الله وبركاته جرب التعديل التالى نسخ ورقة.rar
أبو أنس حاجب قام بنشر نوفمبر 14, 2012 قام بنشر نوفمبر 14, 2012 السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظكم الله جرب المرفق لعله المطلوب نسخ ورقة بدون معادلات.rar عذراً سيدي وأستاذي النبيل رجب جاويش حفظكم الله لم أكن أعلم وجودك في المشاركة للرد فما كنت لأتجرى على الرد. أبو أنس
skyblue قام بنشر نوفمبر 14, 2012 الكاتب قام بنشر نوفمبر 14, 2012 (معدل) مشكورين استاذي الفاضلين على تلك الحلول الرائعة لانني فعلا محتاج لهذا الكود لبرنامج لدي في العمل والحل وجدته لديكم . فشكرا قليلة في حقكم ولكن اسأل الله الاحد الصمد ان ترزق عبديك رجب جاويش وابو انس حاجب من واسع فضلك ورحمتك وات تسهل لهم طريق الخير اينما ساروا عاجلا يارب العالمين غير اجل . تم تعديل نوفمبر 14, 2012 بواسطه skyblue
رجب جاويش قام بنشر نوفمبر 14, 2012 قام بنشر نوفمبر 14, 2012 أخى الحبيب / أبو أنس حاجب حفظك الله من كل سوء ما حدث زيادة فى الخير من أخ حبيب ولا داعى للأسف أخى الحبيب ويكفينى شرفا أن يشارك معى فى نفس الموضوع أخى صاحب الأخلاق العالية والذوق الرفيع أخى الفاضل / أبو أنس حاجب
رجب جاويش قام بنشر نوفمبر 14, 2012 قام بنشر نوفمبر 14, 2012 أخى الفاضل /skyblue جزاك الله كل خير أخى الفاضل على هذه الكلمات الطيبة ورزقك الله بمثل دعائك هذا وأكثر تقبل أرق تحياتى
يوسف السيد قام بنشر ديسمبر 2, 2012 قام بنشر ديسمبر 2, 2012 (معدل) الاخوة الافاضل ... اكواد رائعة حقا ... وفى هذا الاطار هل يمكن حفظ شيت من الملف - بعض تطبيق الكود السابق - فى ملف جديد ويكون الملف الجديد غير مصنف لامكانية تقبل الماكرو بمعنى ان يكون شيت اكسل عادى جدا تم تعديل ديسمبر 2, 2012 بواسطه yousef_kaf
أبو حنــــين قام بنشر ديسمبر 2, 2012 قام بنشر ديسمبر 2, 2012 أخي يوسف جرب هذا الكود : Sub SaveIt() On Error Resume Next Sheets("الرئيسية").Copy With ActiveWorkbook .SaveAs Filename:="C:" & "\" & Sheets("الرئيسية").Name & Minute(Now) & ".xls" .Application.DisplayAlerts = False .Close End With End Sub
يوسف السيد قام بنشر ديسمبر 4, 2012 قام بنشر ديسمبر 4, 2012 الاخ// ابو حنين اشكرك لسرعة الرد والتجاوب ولكن مازال الملف يحفظ بنسخة تمكن الماكرو من العمل فيها مع العلم اننى عمل بنسخة 2007 حيث انه عندما افتح الملف الجديد يعطينى رسالة بانه تالف ثم يفتحه ويكون الماكرو ممكنا فيه ولى طلب اخر بسيط لو تكرمت وهو امكانية حفظ الملف الجديد فى نفس مسار الملف الاصلى .
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.