اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

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

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

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

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

واشتغل

لكن عند محاولة اختيار 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