هل يمكن تحقيق هذا الطلب البسيط؟؟؟

[أبن النيل]

فى الملف المرفق الذى تم عمله

بمساعدة عمالقة هذا المنتدى

( هل بمكن فىورقة الشهادة أن

تظهر الشهادات حتى 500 شهادة)

ولكم جزبل الشكر!!!!!!!!!!!

الكنترول للصف الأول ث تجديد2.rar

[هشام شلبى]

السلام عليكم

===========

استبدل هذا السطر بالكود

Set MyRng = æÑÞÉ1.Range("A12:DL50")

بالسطر التالى

Set MyRng = æÑÞÉ1.Range("A12:DL511")

الكنترول للصف الأول ث تجديد2.rar

[أبن النيل]

أستاذى المحترم/ هشام

عند طلب ظهور الشهادات

الصفحة تغيب ولا تفتح

[هشام شلبى]

السلام عليكم

===========

اعتقد ان هذا من الكود

انا جربته على اعداد اقل ويعمل بصورة طيبة

انتظر عليه وسيلبى طلبك

[أبن النيل]

الأستاذ الفاضل/ هشام بك

أنا فى انتظارك

وأشكرك جزيلاً وإن لم تلبى

طلبى فيكفينى ذوقك الجم0

تم تعديل أبريل 25, 2010 بواسطه أبن النيل

[أبن النيل]

الأستاذ الفاضل/ هشام بك

أنا فى انتظارك

وأشكرك جزيلاً وإن لم تلبى

طلبى فيكفينى ذوقك الجم0

أنت نسيتنى أستاذ هشام ولا إيه

[هشام شلبى]

السلام عليكم

===========

انا لا استطيع نسيانك لكن انا جاوبتك فى المشاركة رقم4

الموضوع فقط انتظار الوقت حتى يتم عمل الكود

[أبن النيل]

فى انتظارك ياغالى

[هشام شلبى]

السلام عليكم

===========

اخى ابن النيل

الكود بعد استبدال السطر

Set MyRng = ورقة1.Range("A12:DL50")

بالسطر

Set MyRng = ورقة1.Range("A12:DL511")

يعمل بصورة طيبة ولكنه بطىء " انتظرعليه سيحقق النتائج المطلوبة"

تحياتى

[أبن النيل]

أشكر فيك أخلاقك عزيزى

[يوسف عطا]

لإظهار الشهادات كلها يمكن إستخدام المعادلات وربط الخلايا وعمل خلايا مرجعية

فتظهر الشهادات كلها فى شيت واحد

مثلاً عدد م الشهادات بجوار بعضها وتتكرر فى صفوف حسب عدد الشهادات الكلية

صمم الشهادة الأولى ثم إنسخها عدة مرات فى نفس الصف

ثم إربط الخلايا بالشهادات بخلايا الدرجات المعطاه

ثم حدد الصف كله ودراج لأسفل

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