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

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

الاخوة الزملاء معادلة الميكرو تقراء تسلسل الارقام خطاء تبداء من 1 ثم 2 ثم تعود مرة اخري الي الرقم 1  . التسلسل بجوار كلمة عام ز

مرفق لحضراتكم الملفين من فضلكم تعلمون اهمية هذة اللفات 

وجة.xlsm اية.xlsm

[محي الدين ابو البشر]

تغيير بسيط

  Range("H2").Activate
'[H2] = 1
End Sub

او احذف

جميع

[H2]=1

قبل

End Sub

[محي الدين ابو البشر]

Sub OECUE1()
    Sheets("haneen").Activate
    Range("H2").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Do
        ActiveCell = ActiveCell + 1
        ActiveWindow.SelectedSheets.PrintOut
    Loop While ActiveCell.Value <= Range("x2").Value
    Range("H2").Activate
End Sub

هكذا

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

الاخ الكريم ممكن تنفيذهم علي الشيت وارسالهم لاني قمت بعمل النسخ ويصل فقط الي الرقم 2  ويقف .

العدد من 1 الي حسب عدد الاولاد في اجمالي الحلقات كما في الشيت اسف علي الازعاج 

المقصود اخي الكريم ان العدد اكبر من 2 حسب الشيت المرفق ويزيد وينقص حسب عدد الاولاد

[محي الدين ابو البشر]

اية.xlsm

 

 

وجة.xlsm

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

ممكن كمان الاوجة من فضلك 

[محي الدين ابو البشر]

وجة (1).xlsm

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

الشكر موصول لجميع الاخوة في المنتدي علي المساعدة الدائمة للجميع جزيل الشكر 

تم حل المشكلة وطباعة الاستمارات الحمد لله