اين الخلل في هذا الكود

[منير برهم]

Private Sub CommandButton1_Click()
'    Dim M1, N1, i, x As Integer
    FromS = TextBox1.Value
    ToS = TextBox2.Value
    If FromS > ToS Then
       MsgBox "تأكد من الإدخالات"
    Else
       Page_p = ToS - FromS + 1
       end_p = 0
       For end_p = 1 To Page_p
      
       Range("SejelNo1") = FromS
        Range("SejelNo2") = FromS
        Range("SejelNo3") = FromS
Range("SejelNo4") = FromS
Range("SejelNo5") = FromS
Range("SejelNo6") = FromS
Range("SejelNo7") = FromS
Range("SejelNo8") = FromS
Range("SejelNo9") = FromS
Range("SejelNo10") = FromS
Range("SejelNo11") = FromS
Range("SejelNo12") = FromS
Range("SejelNo13") = FromS
Range("SejelNo14") = FromS
Range("SejelNo15") = FromS
Range("SejelNo16") = FromS
Range("SejelNo17") = FromS
Range("SejelNo18") = FromS
Range("SejelNo19") = FromS
Range("SejelNo20") = FromS
Range("SejelNo21") = FromS
Range("SejelNo22") = FromS
Range("SejelNo23") = FromS
Range("SejelNo24") = FromS
Range("SejelNo25") = FromS
Range("SejelNo26") = FromS
Range("SejelNo27") = FromS
Range("SejelNo28") = FromS
Range("SejelNo29") = FromS
Range("SejelNo30") = FromS
Range("SejelNo31") = FromS
Range("SejelNo32") = FromS

    Range("SejelNo33") = FromS
Range("SejelNo34") = FromS
Range("SejelNo35") = FromS
Range("SejelNo36") = FromS
Range("SejelNo37") = FromS
Range("SejelNo38") = FromS
Range("SejelNo39") = FromS
Range("SejelNo40") = FromS
Range("SejelNo41") = FromS
Range("SejelNo42") = FromS
Range("SejelNo43") = FromS
Range("SejelNo44") = FromS
Range("SejelNo45") = FromS
Range("SejelNo46") = FromS
Range("SejelNo47") = FromS
Range("SejelNo48") = FromS
Range("SejelNo49") = FromS
Range("SejelNo50") = FromS
Range("SejelNo51") = FromS
Range("SejelNo52") = FromS
Range("SejelNo53") = FromS
Range("SejelNo54") = FromS
Range("SejelNo55") = FromS
Range("SejelNo56") = FromS
Range("SejelNo57") = FromS
Range("SejelNo58") = FromS
Range("SejelNo59") = FromS
Range("SejelNo60") = FromS
Range("SejelNo61") = FromS
Range("SejelNo62") = FromS
Range("SejelNo63") = FromS
Range("SejelNo64") = FromS
Range("SejelNo65") = FromS
Range("SejelNo66") = FromS
Range("SejelNo67") = FromS
Range("SejelNo68") = FromS
Range("SejelNo69") = FromS
Range("SejelNo70") = FromS
Range("SejelNo71") = FromS
Range("SejelNo72") = FromS
Range("SejelNo73") = FromS
Range("SejelNo74") = FromS
Range("SejelNo75") = FromS
Range("SejelNo76") = FromS
Range("SejelNo77") = FromS
Range("SejelNo78") = FromS
Range("SejelNo79") = FromS
Range("SejelNo80") = FromS
Range("SejelNo81") = FromS
Range("SejelNo82") = FromS
Range("SejelNo83") = FromS
Range("SejelNo84") = FromS
Range("SejelNo85") = FromS
Range("SejelNo86") = FromS
Range("SejelNo87") = FromS
Range("SejelNo88") = FromS
Range("SejelNo89") = FromS
Range("SejelNo90") = FromS
Range("SejelNo91") = FromS
Range("SejelNo92") = FromS
Range("SejelNo93") = FromS
Range("SejelNo94") = FromS
Range("SejelNo95") = FromS
Range("SejelNo96") = FromS
Range("SejelNo97") = FromS
Range("SejelNo98") = FromS
Range("SejelNo99") = FromS
Range("SejelNo100") = FromS
Range("SejelNo101") = FromS
Range("SejelNo102") = FromS
Range("SejelNo103") = FromS
Range("SejelNo104") = FromS
Range("SejelNo105") = FromS
Range("SejelNo106") = FromS
Range("SejelNo107") = FromS
Range("SejelNo108") = FromS
Range("SejelNo109") = FromS
Range("SejelNo110") = FromS
Range("SejelNo111") = FromS
Range("SejelNo112") = FromS

          ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
      
       FromS = FromS + 1
       Next
       TextBox1 = ""
       TextBox2 = ""
       MsgBox "تمت طباعة النماذج /"
    End If
Private Sub CommandButton2_Click()
    UserForm5.Hide
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub

[منير برهم]

علما باني ضفت نفس الفورم في 30 ورقة عمل في المصنف الواحد مع تغير بالأرقام كما هو مبين

[الـعيدروس]

يرجاء ارفاق مثال 

 

يرجاء مشاهدة قواعد المشاركة

والإلتزام بها

 

ارى لك اكثر من موضوع لنفس الطلب ؟

 

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة

و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف