ظهور رسالة خطأ في كود ميكروا هام جداً

[خليل القيسي]

السلام عليكم استاذ علي محمد 

من فضلك حدث مشكلة في الملفات ومفيش طباعة عاوزة تشتغل 

واية خطاء runt error time 9

subsurb of range 

ممكن من فضلك حل المشكةل ضروري 

اخذت الكود كوبي بست غيرة الرسالة الي الشكل اللي بيظهرلك

تظهر في الكود علامات استفها في السطر الثاني 

 

وكيفية حلها 

ولك جزيل الشكر

اصل التقارير والاسماء عدد الآيات.xlsm اصل التقارير والاسماء عدد الاوجه.xlsm

[ابو القاسم]

الكود به خطأ هو ايه المطلوب من الكود

 

[عبدالله بشير عبدالله]

طلبك غير واضح  لم توضح الصفحة التي تريد طباعتها

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

كما ان الخلايا في الكود h2     x2 ربما لا تتناسب مع ملفك

اعد صياغة السؤال موضحا فيه الصفحة او الصفحات المراد طباعتها ومدى الطباعة

[خليل القيسي]

لسادة الزملاء انا اعمل في تنسيق نماذج خاصة بكتاب تحفيظ القرأن الكريم بالقرية وعندي مشكلة اني عدد الاولاد كثير تقريباً 400 وفي كل شهر مطلوب طباعة نموذج لكل طالب وطالبة وانا جمعت كل الاسماء والمعلومات في شيت واحد وعملت نموذج التقييم في نفس الشيت . وعملت معادلة تسحب كل البيانات من الشيت الاصلي الي النموذج . بس المشكلة اني اريد كود طباعة لكل نتائج المعادلة مرة واحدة مش كل مرة ادخل رقم الطلب وبعد كدة اضغط طباعة دة كدة مرهق وكمان وقت كتير .

هل فية كود يعمل الكلام دة ولالأ

مرفق الشيت والنموذج وكمان المعادلة 

المعادلة تعطي ثلاث نتائج لكل طالب انا عملتها .

1- اسم الطالب 

2- اسم الحلقة

3- اسم المعلم او المعلمة 

 

الاخوة الزملاء دة اصل الموضوع من البداية وسبب عمل هذا الكود 

الكود تم عملة بواسطة الاخ الكريم علي محمد علي وكان يعمل بشكل جيد فجاءة ظهر الرسالة المرفقة من قبل لحضراتكم 

 

[عبدالله بشير عبدالله]

اخي الفاضل ....السلام عليكم

الكود   في الملف الاول به طباعة صفخة  اسمها H2 وفي ملفك لا يوجد صفحة بهذا الاسم

الكود في الملف الثاني به طباعة صفخة  WORKSHEETولا يوحد في ملفك صفحة بهذا الاسم

فمن الطبيعي ظهور الحطأ

الحل بسيط جدا 

استبدل في الكود في الملفين Sheets("H2").Activate         Sheets("workbooks").Activate

    بدل H2   و  workbooks   ضع بدلهما استمارة متابعة   وسيعمل الكود باذن الله

ولو اانك رجعت الى مشاركتك السابقوالتي اجابك فيها الاستاذ علي لا كتفيت بها ولاغناك عن طلبك هذا

اضغط على الرابط لمشاهدة مشاركتك السابقة

لكم وافر التقدير والاحترام

 

[خليل القيسي]

استاذ عبد الله اسف علي ازعاجك بس ممكن حضرتك تنفذهم علي الشيت لانة بردوا انا لا استطيع الطباعة والامر مهم بسبب طلاب الكتاب 

وبعد ما حضرتك تخلص انا هحملهم واطبع 

معلوماتي محدودة جدا في الميكروا 

اسف علي الاطالة 

طباعة استمارة المتابعة للاولاد من رقم 1 الي اخر رقم حسب ما ارسلت لك

 

اسف علي الازعاج بس ممكن حضرتك تعمل الكود ويكون جاهز علي الطباعة انا معلوماتي محودة في الميكروا ودة امر مهم للكتاب كلة لاني العدد كبير كما موضح بالملفات 

اصل التقارير والاسماء عدد الاوجه..xlsm

اصل التقارير والاسماء عدد الآيات..xlsm اصل التقارير والاسماء عدد الاوجه..xlsm

[عبدالله بشير عبدالله]

هو نفس كود الاستاذ غلي تم تنفيذه على ملفك

اصل التقارير والاسماء عدد الآيات..xlsm

اصل التقارير والاسماء عدد الاوجه (1).xlsm

[خليل القيسي]

اخي العزيز عبدالله الصاري

نفس رسالة الخطاء عند حفظ الملفات وضغط الطباعة مرسل الراسلة والتفاصيل واسم الشيت بيظهر بلغة مختلفة وكذلك علامات استفهام .

اسف علي الازعاج 

 

[عبدالله بشير عبدالله]

قمت بتحميل الملفات مرة اخرى وجربتها وتعمل بكفأءة وليس بها اي مشكلة

جرب الملف على جهاز اخر ربما لديك خلل في الاوفيس او يقوم احد الاعضاء بتجربته ويعلمنا النتيجة

Sub OECUE1()
Sheets("استمارة متابعة").Activate
     Range("H2").Activate
[H2] = 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Do
ActiveCell = ActiveCell + 1
ActiveWindow.SelectedSheets.PrintOut
Loop While ActiveCell.Value <= Range("x2").Value
  Range("H2").Activate
[H2] = 1
End Sub

 

[خليل القيسي]

اخي الحبيب المشكلة كلها اني اسم الشيت بيتغير الي علامات استفهام عند النسخ علي اي جهاز 

مجرد الضغط علي طباعة يعطي رسالة خطاء 

اسف علي الازعاج

 

[خيماوي كووول]

 غير اسم الشيت باللغة الانجليزية .. افضل اخوي العزيز

[عبدالله بشير عبدالله]

 

تم تغيير اسم الشيت الى الحروف الانجليزية

اصل التقارير.xlsm

التقارير.xlsm

[خليل القيسي]

جزاك الله خيرا اخي عبدالله الصاري علي حل المشكلة مشكور 

وللجميع جزيل الشكر