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

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

قام بنشر (معدل)

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

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

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

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

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

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

واشتغل

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information