ما هو الخطأ في كود مسح محتويات الخلايا في الاعمدة المتفرقة

[أبو محمد عباس]

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

الاخوة الاعزاء والاساتذة الافاضل جزاكم الله خيرا

هذ كود تصفير رصد الدرجات في بداية العام الدراسي يقوم بمسح رصد الدرجات حسب الاختيار في الاعمدة المحددة في الكود

لما اضفت له بقية الفصول يظهر خطأ ولايقوم بمسح محتويات الخلايا

ارجو ابداء المساعدة لتلافي الخطأ  بتصحيحه او كود اخر 

بارك الله بكم  وزادكم من فضله خيرا وعلما 

تقبلوا فائق احترامي وتقديري

 

+رصد الدرجات.rar

تم تعديل نوفمبر 22, 2014 بواسطه أبو محمد عباس

[ياسر خليل أبو البراء]

قبل الإطلاع على الملف هل هناك حماية لأوراق العمل ؟

أو خلايا مدمجة في النطاقات المراد العمل عليها؟

تم تعديل نوفمبر 22, 2014 بواسطه YasserKhalil

[أبو محمد عباس]

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

اخي الحبيب ابو البراء بارك الله بك وجزاك الله خيرا

لايوجد دمج في نطاق الخلايا المطلوبة

كذلك لانوجد حماية للخلايا او اوراق العمل

لاحظ استاذي الفاضل ارفقت ملف وفيه بيانات وجربت الكود يقوم بمسح الدرجات في نطاق الفصل الاول (A) ويظهر الخطا عند التكملة لبقية الفصول

ارجو تجربة الكود وستلاحظ الخطا

تقبل فائق الاحترام والتقدير

 

مثال رصد الدرجات.rar

تم تعديل نوفمبر 22, 2014 بواسطه أبو محمد عباس

[ياسر خليل أبو البراء]

أخي الحبيب وأستاذي أبو محمد

جرب الكود بالشكل التالي

يرجى مراجعة النطاقات عشان أنا تهت

المهم الفكرة

Sub تصفير_الرصد()
    Dim UnionRange As Range
    Application.ScreenUpdating = False
    Set UnionRange = Union(Range("F6:H55,J6:L55,O6:O55,R6:T55,V6:X55,AA6:AA55,AD6:AF55,AH6:AJ55,AM6:AM55,AP6:AR55"), _
                           Range("AT6:AV55,AY6:AY55,BB6:BD55,BF6:BH55,BK6:BK55,BN6:BP55,BR6:BT55,BW6:BW55,BZ6:CB55,CD6:CF55"), _
                           Range("CU6:CU55,CP6:CR55,CL6:CN55,CI6:CI55,F206:H255,J206:L255,O206:O255,R206:T255,V206:X255,AA206:AA255"), _
                           Range("AD206:AF255,AH206:AJ255,AM206:AM255,AP206:AR255,AT206:AV255,AY206:AY255,BB206:BD255,BF206:BH255,BK206:BK255,BN206:BP255"), _
                           Range("BR206:BT255,BW206:BW255,BZ206:CB255,CD206:CF255,CU206:CU255,CP206:CR255,CL206:CN255,CI206:CI255,F406:H455,J406:L455"), _
                           Range("O406:O455,R406:T455,V406:X455,AA406:AA455,AD406:AF455,AH406:AJ455,AM406:AM455,AP406:AR455,AT406:AV455,AY406:AY455"), _
                           Range("BB406:BD455,BF406:BH455,BK406:BK455,BN406:BP455,BR406:BT455,BW406:BW455,BZ406:CB455,CD406:CF455,CU406:CU455,CP406:CR455"), _
                           Range("CL406:CN455,CI406:CI455,F606:H655,J606:L655,O606:O655,R606:T655,V606:X655,AA606:AA655,AD606:AF655,AH606:AJ655"), _
                           Range("AM606:AM655,AP606:AR655,AT606:AV655,AY606:AY655,BB606:BD655,BF606:BH655,BK606:BK655,BN606:BP655"), _
                           Range("BR606:BT655,BW606:BW655,BZ606:CB655,CD606:CF655,CU606:CU655,CP606:CR655,CL606:CN655,CI606:CI655"))
    UnionRange.ClearContents
    Application.ScreenUpdating = True
    Range("F1").Select
End Sub

[أبو محمد عباس]

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

الاستاذ الفاضل والاخ الحبيب ياسر خليل ابو البراء  المحترم

جزاك الله خيرا وبارك الله فيك ما شاء الله  كود رائع

زادك الله من فضله علما ومعرفة ونفع بعلمك

تقبل فائق احترامي وتقديري

[ياسر خليل أبو البراء]

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

الاستاذ الفاضل والاخ الحبيب ياسر خليل ابو البراء  المحترم

جزاك الله خيرا وبارك الله فيك ما شاء الله  كود رائع

زادك الله من فضله علما ومعرفة ونفع بعلمك

تقبل فائق احترامي وتقديري

الحمد لله الذي بنعمته تتم الصالحات

هي المشكلة في أن النطاق ٌRange له حد أقصى .. عشان كدا في حالة النطاقات المتعددة يتم استخدام Union لربط النطاقات بهذا الشكل

أرجو أن أكون قد أفدتك ولو بالقليل فمنكم تعلمنا الكثير أستاذي أبو محمد