اذهب الي المحتوي
أوفيسنا

مساعدة فى التعديل علي كود ارسال شيت بالايميل


الردود الموصى بها

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

هذه اول مشاركة لي علي المنتدي ولكن لم تكن اول مرة ادخل فيها علي المنتدي

انا هنا منذ فترة وتعلمت الكثير من الاكواد وشكر لكل من ساهم فى تعليمي ولو كود بسيط

استعنت بكود ارسال رسالة كمرفق علي الايميل واردت التعديل عليه بحيث عند الضغط علي زر يظهر فورم يطلب اختيار الصفحات المراد ارسالها كمرفق

فأضفت للكود كود اخر من زميل هنا فى المنتدي كان وضعه لاختيار صفحات معينة للاخفاء او الاظهار

وادخلت الكودين في بعض

واشتغل

لكن عند محاولة اختيار 2 شيت من القائمة يقوم بحفظ واحد فقط منهم فى المرفقات فبرجاء المساعدة فى جعله يحفظ الشيتات المختارة كلها فى صفحة واحدة جديدة

ولكم جزيل الشكر

Send multisheets on attachment with select menu.rar

post-54083-12694314262278_thumb.jpg

تم تعديل بواسطه DBA.Oracle
رابط هذا التعليق
شارك

الاخ الفاضل / هشام شلبي

شكرا علي الرد

الملف الذي ارفقته شامل جميع طرق الارسال بالايميل

سواء الاكتف شيت او اكثر من شيت معين او خلايا معينة

ولكن بالنسبة لكود ارسال اكثر من شيت معاً فى ملف واحد

هذا الكود يجب التعديل عليه كل مرة لارسال الشيتات المطلوبة

ولكن الفكرة التي اتحدث عنها هي ان المستخدم لن يدخل كل مرة لمحرر الاكواد لتغيير اسم الصفحات المراد ارسالها

ActiveWorkbook.Sheets(Array("Sheet4", "Sheet10")).Copy
هنا سيتم نقل الشيتات المحددة 4 ، 10 الي ملف جديد شامل الصفحتين ويرسل هذا الملف كمرفق فى رسالة لو اليوزر لا يعرف التعديل علي الاكواد و اراد ارسال صفحات اخري غير المحددة مثلا يريد ارسال 1 ، 3 فلن يستطيع الفكرة تنص علي انه فى كل مرة نضغط فيها علي تشغيل الخاصية هذه يظهر فورم يطلب تحديد الصفحات المراد ارسالها فيصبح الكود
Sourcewb.Sheets((.List(iCtr))).Copy

حيث Sourcewb = ActiveWorkbook

و

حيث ان (.List(iCtr) هي الشيتات المختارة من القائمة

ولكن المشكلة انه يقوم بنقل كل شيت منفصل عن الاخر في ملف مختلف ويقوم بعمل رفق واحد منهم فقط

فهل هناك مشكلة فى كتابة الكود ام ماذا

شكرا لمتابعتك ولردك انا فقط اردت التوضيح حتي يستطيع باقى الاخوة الافاضل ممن سيدخلون هذا الموضوع فهم استفساري ببساطة

تم تعديل بواسطه DBA.Oracle
رابط هذا التعليق
شارك

  • 4 years later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information