طباعة الاوراق المفهرسة في الشيت الحالية

[رشراش]

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

المطلوب في الملف المرفق

شكرا

بحث وفهرسة وترحيل مع الطباعة1.rar

[رشراش]

1. ربما لم يمر على موضوعي من يساعدني فيه وساظل مرتقبا الحل
2. شكرا لمن مر وينتظر معي تفرغ وتكرم احد اساتذتنا الكرام. وفقهم الله.

[رشراش]

اساتذتي الكرام على الاقل تلميح انكم اخذتم مضوعي الى مخبر المعالجة فاني أطل عليه في الساعة مرات كثيرة باهفة. . 

اين انتم اساتذتي. . . واني لست لحوحا بقدر شغفي ان ارى الابداع

يعجبني الابداع

شكرا

[بن علية حاجي]

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

أخي الكريم، تم عمل المطلوب حسب ما تريد وذلك باستعمال كودين أحدهما يقوم بإدراج قائمة كل الأوراق (الشيتات) في العمود AA والكود الثاني يقوم بالمطلوب... وتم الاستعانة ببعض المعادلات في النطاق Q7:Q25 وفي الخلية W1 لعمل الأكواد (لم أجد بدا لذلك بسبب عدم خبرتي الكبيرة بالأكواد)... أرجو أن يفي هذا بالمطلوب...

بن علية

بحث وفهرسة وترحيل مع الطباعة1.rar

[رشراش]

أستاذي

 

بن علية حاجي

ما فهمته انه عليا ان لا احذف أو اغير في النطاق Q7:Q25 وفي الخلية W1

 

تقبل فائق الشكر وصادق الدعاء، فما قدمته لي  يفي بالغرض إنما لن انهي الموضوع بالقول تم، حيث إني على ثقة ان عباقرتنا في الاكواد سيدلون بدلوهم مما يفيد غيري وينفع آخرين

أستاذي سبق وساعدتني منذ سنوات والى اليوم ما قدمته جاري اجره اليك ان شاء الله، وانه في ميزان حسناتك أكيد

ومن هنا ايضا أثني على كل اساتذتنا دون استثناء ساضل ممتنا للجميع. محبا لكم بصادق العواطف .

[بن علية حاجي]

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

أخي الكريم، تم الاستغناء عن المعادلات في النطاق Q7:Q25 وفي الخلية W1 وعن الكود hben مع التعديل على الكود...

بن علية

بحث وفهرسة وترحيل مع الطباعة2.rar

[رشراش]

أستاذي

أستاذي شكرا جزيل الشكر وكنتُ استحيتُ ان اطلب "ان لا تكون المعادلة تلك في الصفحة"،

وكأنك قرات ما فكرت فيه وما تمنيته، فالهمك الله تحقيق ذلك "انك رائع"

أما ما فهمته الان انه يمكنني اذا غيرت معادلاتي في عمود آخر أغير هنا

If IsError(Application.Match(Cells(J, "P"), Arr, 0)) Then GoTo 1
   Sh = Worksheets(Cells(J, "P").Value).Index

-------------------------

وإذا اردت تغيير المدى (بداية الى نهاية العمود) أغير هنا

 J = 7 To 25

رعاك الله أستاذي وجازاك عني بما هو اهلٌ له من كرم.

 

 

 

تم تعديل فبراير 11, 2017 بواسطه رشراش

[بن علية حاجي]

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

أخي الكريم، ما فهمتَه صحيح جدا... بارك الله فيك وفي علمك وجزاك الله عني خيرا....

بن علية

[رشراش]

شكرا أستاذي ومن هنا لا يفوتني أبدا ان أحيي كل اساتذتنا واعضاء منتدى الاكسيل واوفيسنا عموما.

[رشراش]

أستاذي

الكود الذي أريده الآن يُرحل المعلومة من  T1
الى الخلية مثلا   C2 في كل الصفحات المفهرسة
-1- إن أمكن كود ترحيل منفصل
-2- كود ترحيل مدمج مع كود الطباعة.

وفقك الله وجازاك عني خيرا

 

ترحيل من خلية الى صفحات مفهرسة + طباعتها.rar

[بن علية حاجي]

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

أخي الكريم، تم عمل المطلوب باستعمال الكود السابق (مع بعض التعديل) وإضافة أمر "الترحيل" (سطر واحد)... وتم نسخ الكود نفسه باسم آخر (بعد التعديل) لأجل الترحيل دون الطباعة مع حذف أمر "الطباعة" (سطر واحد)... أرجو أن يفي الغرض المطلوب...

بن علية

ترحيل من خلية الى صفحات مفهرسة + طباعتها.rar

تم تعديل فبراير 12, 2017 بواسطه بن علية حاجي

[رشراش]

أستاذي

بن علية حاجي

بدءا قد وفّيت وانه المطلوب،

ثُمّ إنه لمن المحرج أن لا اجد ما يعبر عن شكري وامتناني، غير اني آمل من الله أن يكرمك ويجزيك خيرا بقدر ما هو أهلً له من كرم وسخاء،

شكرا استاذي

كما لا يفوتني ابدا أن ادعو لكل أساتذتنا في اوفيسنا من الاستاذ ياسر ابو البراء الى خبور الى الاستاذ جاويش اليهم جميعا فردا فردا.... فإننا نقدر مجهوداتهم ولا نخفي جميلهم جميعا.

شكرا