mra63

شكراً لك الكود ناجح 100% زادك الله علماً ومعرفة .

لو سمحتوا اختصار هذا الكود الطويل لنسخ البيانات الي نموذج للطباعة في العمود C Sheet5.Range("C1").Value = UserForm1.TextBox2.Value Sheet5.Range("C2").Value = UserForm1.TextBox3.Value Sheet5.Range("C3").Value = UserForm1.TextBox4.Value Sheet5.Range("C4").Value = UserForm1.TextBox5.Value Sheet5.Range("C5").Value = UserForm1.TextBox6.Value Sheet5.Range("C6").Value = UserForm1.TextBox7.Value Sheet5.Range("C7").Value = UserForm1.TextBox8.Value Sheet5.Range("C8").Value = UserForm1.TextBox9.Value Sheet5.Range("C9").Value = UserForm1.TextBox10.Value Sheet5.Range("C10").Value = UserForm1.TextBox11.Value Sheet5.Range("C11").Value = UserForm1.TextBox12.Value Sheet5.Range("C12").Value = UserForm1.TextBox13.Value Sheet5.Range("C13").Value = UserForm1.TextBox14.Value Sheet5.Range("C14").Value = UserForm1.TextBox15.Value Sheet5.Range("C15").Value = UserForm1.TextBox16.Value Sheet5.Range("C16").Value = UserForm1.TextBox17.Value Sheet5.Range("C17").Value = UserForm1.TextBox18.Value Sheet5.Range("C18").Value = UserForm1.TextBox19.Value Sheet5.Range("C19").Value = UserForm1.TextBox20.Value Sheet5.Range("C20").Value = UserForm1.TextBox21.Value Sheet5.Range("C21").Value = UserForm1.TextBox22.Value Sheet5.Range("C22").Value = UserForm1.TextBox23.Value Sheet5.Range("C23").Value = UserForm1.TextBox24.Value Sheet5.Range("C24").Value = UserForm1.TextBox25.Value Sheet5.Range("C25").Value = UserForm1.TextBox26.Value Sheet5.Range("C26").Value = UserForm1.TextBox27.Value Sheet5.Range("C27").Value = UserForm1.TextBox28.Value Sheet5.Range("C28").Value = UserForm1.TextBox29.Value Sheet5.Range("C29").Value = UserForm1.TextBox30.Value

شكرا بارك الله فيك ملف ممتاز ورائع

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

الأخت / جاسمين انا اقصد التكست بوكس في اليوزرفورم وعلي العموم شكراً لك علي الاهتمام الأخ / محمد حسن محمود شكراً لك كتبت هذا الكود مرات عديدة وهو لا يعمل بصورة جيدة في التكست بوكس وفي جميع الاوضاع وعملته في اليوزرفوم في وضع الانشيلايز . مشكورين كلكم علي الاهتمام .

الرجاء من الاساتذة الكرام كود لتلوين التكست بوكس باللون الاصفر ان كان فارغاً والعكس باللون الأبيض اي ان التكسات الفارغة تكون باللون الاصفر . مشكورين جداً .

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

ارجوا من الاساتذة الكرام اختصار عدد التكسات في كود واحد خاصة وانه لدي 30 تكست ومرشحة للزيادة وهذا الكود كمثال Dim Last As Integer Last = Sheet4.Range("A100000").End(xlUp).Row + 1 Sheet4.Cells(Last, "A").Value = Me.TextBox2.Value Sheet4.Cells(Last, "B").Value = Me.TextBox3.Value Sheet4.Cells(Last, "C").Value = Me.TextBox4.Value Sheet4.Cells(Last, "D").Value = Me.TextBox5.Value Sheet4.Cells(Last, "E").Value = Me.TextBox6.Value Sheet4.Cells(Last, "F").Value = Me.TextBox7.Value Sheet4.Cells(Last, "G").Value = Me.TextBox8.Value

السلام عيكم - نسيت الاعجاب سامحني ارجوك هذا من حقك عملتوه الآن .

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

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

السلام عليكم لدي هذا الكود الذي يقوم بطباعة نتائج البحث في الليست بوكس ويستخدم شيت وسيط لطباعتها ولكن مشكلته انه يقوم بطباعة النتائج في صفحة واحدة مهما كانت كثيرة ويقوم بتصغير الجدول ليجعل الصفحة تستوعب البيانات هل من الممكن تعديل هذا الكود ليطبع علي عدة صفحات . مرفق ملف اكسل . الشيت الوسيط - SHEET3 طباعة نتائج البحث Dim c As Integer For r = 0 To ListBox1.ListCount - 1 For c = 1 To ListBox1.ColumnCount - 1 ThisWorkbook.Sheets("Sheet3").Range("A2").Offset(r, c).Value = ListBox1.List(r, c) Next Next Me.Hide Application.PrintCommunication = False With Sheets("Sheet3").PageSetup .FitToPagesWide = 1 .FitToPagesWide = False End With Application.PrintCommunication = True (Dim LastRow As Long LastRow = ThisWorkbook.Sheets("Sheet3").Range("D100000").End(xlUp).Row ThisWorkbook.Sheets("Sheet3").Range("A1:D" & LastRow).PrintPreview Me.Show MRA63.xlsm

شكراً جزيلاً . نجح الأمر انا آسف جداً الخطأ مني انا وضعت الكود الأول في مديول جديد والثاني وضعته في الفورم في وضع الاكتيف بارك الله فيك .

شكراً علي الاهتمام والرد ولكن يعطي هذا الخطأ / Sub or Function not defined ويحدد هذا المتغير / FindWindow

ارجوا من اصحاب الخبرة كيفية اضافة زر التكبير والتصغير في الفورم بجانب زر الإغلاق . بارك الله فيكم .