mra63

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

تفضل استاذ عبدالله ListBox - SelectCount.xlsm

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

شكراً لك الكود ناجح 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

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

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

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

لدي هذا الكود الذي ينسخ صف من شيت إلي آخر عن طريق تحديد رقم الصف في التيكست بوكس ولكنه يتعامل مع ارقام صفوف الأكسل وليس الاقام الموجودة في الجدول فمثلاً اكتب الرقم 23 ينسخ الصف رقم 20 لأن الرقم 1 عندي يبدأ بالصف رقم 4 . هل يمكن تعديله من قبل الخبراء ارجوا المساعدة ولكم جزيل الشكر . Dim Myrow As Integer Myrow = Val(TextBox1.Text) Rows(Myrow).Copy Sheet3.Activate erow = Sheet3.Cells(Rows.Count,1).End(xlup).Offset(1,0).Row ActiveSheet.Paste Destination:=WorkSheets("Sheet3").Rows(erow) WorkSheets("Sheet1").Activate