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

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


رشراش

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

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

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

شكرا

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

رابط هذا التعليق
شارك

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

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

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

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

شكرا

رابط هذا التعليق
شارك

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

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

بن علية

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

  • Like 1
رابط هذا التعليق
شارك

أستاذي

 

بن علية حاجي

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

 

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

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

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

رابط هذا التعليق
شارك

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

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

بن علية

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

  • Like 1
رابط هذا التعليق
شارك

أستاذي

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

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

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

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

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

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

 J = 7 To 25

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

 

 

 

الكود من الاستاذ ين علية.PNG

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

أستاذي

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

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

 

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

رابط هذا التعليق
شارك

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

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

بن علية

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

تم تعديل بواسطه بن علية حاجي
  • Like 1
رابط هذا التعليق
شارك

أستاذي

بن علية حاجي

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

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

شكرا استاذي

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

شكرا

  • Like 1
رابط هذا التعليق
شارك

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

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



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

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

Important Information