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

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


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

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

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

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

subsurb of range 

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

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

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

 

image.png.95e960f153635b38d715b8be8b02177b.png

وكيفية حلها 

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

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

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

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

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

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

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

931247801_.png.552b62160c13a4f51244c67d8ae4c85e.png

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

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

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

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

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

1- اسم الطالب 

2- اسم الحلقة

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

 

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

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

 

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

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

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

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

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

الحل بسيط جدا 

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

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

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

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

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

 

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

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

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

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

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

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

 

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

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

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

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

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

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

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

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

image.png.a226d567ef5e7f22d7af338802b0902a.png

image.png.4f3e3cce3083cb5b5e0430992969669b.png

 

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

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

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

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

 

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

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

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

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

 

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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information