عبدالله المجرب

الاضافة هي هذه الجزئية For i = 1 To 6 If Me.Controls("CheckBox" & i) Then Cells(LastRow, 4) = Cells(LastRow, 4) & T & Me.Controls("CheckBox" & i).Caption T = " + " End If Next السطر For i = 1 To 6 حلقة تكرارية تبداء من 1 الى 6 وهي عدد خانات الاختيار للالوان السطر If Me.Controls("CheckBox" & i) Then جملة شرطية اذا كانت قيمة خانة الاختيار ذات الرقم في الحلقة التكرارية صح (True) يتم تطبيق الشرط السطر Cells(LastRow, 4) = Cells(LastRow, 4) & T & Me.Controls("CheckBox" & i).Caption T = " + " تصبح قيمة الخلية التي في الصف الفاضي والعمود الرابع عبارة عن قيمة نفس الخلية بالاضافة الى العلامة + وعنوان خانة الاختيار السطر End If Next نهاية الشرط ونهاية حلقة التكرار ======== الحلقة الاخرى بنفس الفكرة بالضبط

شكراً لك اخي حمادة

وهذا إختصار للكود (تم تعديل تسلسل خانة الاختيار الخاصة بالاكسسوارات لتحمل الرقم 7 و 8 و 9) Private Sub CommandButton1_Click() LastRow = Cells(Rows.Count, "a").End(xlUp).Row + 1 Cells(LastRow, 1) = ComboBox1.Value Cells(LastRow, 2) = TextBox1.Value Cells(LastRow, 3) = TextBox2.Value For i = 1 To 9 If Me.Controls("CheckBox" & i) Then If i > 6 Then Cells(LastRow, 5) = Cells(LastRow, 5) & R & Me.Controls("CheckBox" & i).Caption R = " + " Else Cells(LastRow, 4) = Cells(LastRow, 4) & T & Me.Controls("CheckBox" & i).Caption T = " + " End If End If Next Unload Me End Sub New folder (3).zip

السلام عليكم تم تعديل كود الفورم Private Sub CommandButton1_Click() LastRow = Cells(Rows.Count, "a").End(xlUp).Row + 1 Cells(LastRow, 1) = ComboBox1.Value Cells(LastRow, 2) = TextBox1.Value Cells(LastRow, 3) = TextBox2.Value For i = 1 To 6 If Me.Controls("CheckBox" & i) Then Cells(LastRow, 4) = Cells(LastRow, 4) & T & Me.Controls("CheckBox" & i).Caption T = " + " End If Next For ii = 8 To 10 If Me.Controls("CheckBox" & ii) Then Cells(LastRow, 5) = Cells(LastRow, 5) & R & Me.Controls("CheckBox" & ii).Caption R = " + " End If Next Unload Me End Sub New folder (3).zip

السلام عليكم مرفق رائع من اعمال الاستاذ جعفر

بصراحة جربت الخطوات وظهرت البيانات في عرض الطباعة

حياك الله ولا داعي للاعتذار فهذا واجبنا

اليك المرفق بعد التعديل marcelo salas.rar

السلام عليكم شاهد المرفق بعد التعديل

جزاك الله خير اختي ام عبدالله ولكي بمثل ما دعيتي لي وأكثر

وهذه روابط كنترول شيت http://www.officena.net/ib/index.php?showtopic=39833 http://www.officena.net/ib/index.php?showtopic=39630 http://www.officena.net/ib/index.php?showtopic=32298 http://www.officena.net/ib/index.php?showtopic=33947

السلام عليكم اليك هذه الروابط http://www.officena.net/ib/index.php?showtopic=28585 http://www.officena.net/ib/index.php?showtopic=44661 http://www.officena.net/ib/index.php?showtopic=39127 http://www.officena.net/ib/index.php?showtopic=41296

السلام عليكم بارك الله فيك استاذ سعيد معلومة جميلة ==== والشكر موصول للاخت ام عبدالله

السلام عليكم يــــــا ابن الفارس النبيل أنت حبيب ابن حبيب طمنى على والدكم .. ما سبب انشغاله عنـــــــا يا مهند .. بلغ والدكم تحيات كل الشعب العربي ودعائنا لكم اهل الشام بالنصر المؤزر على الطاغية وشبيحته

بارك الله فيك استاذ نارت

هل ممكن وضع صورة للرسالة

السلام عليكم اليك المرفق وبه الكود officna.rar

السلام عليكم بخصوص قصد ابو ايمان فما يقصده هنا في هذا الرابط http://www.officena.net/ib/index.php?showtopic=41520 وبخصوص طلبك تابع هذا الرابط http://www.officena.net/ib/index.php?showtopic=41708

السلام عليكم ضع هذا الكود في حدث الصفحة (للاسف اقتباس الكود لا يعمل) Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [b2:B100]) Is Nothing Then If IsDate(Target) Then Target.Offset(0, 7) = Month(Target) End If End Sub

السلام عليكم لواجب التصحيح فالدالة هي لاستاذنا الكبير ابو تامر (عمر الحسيني) وشكراً

بصراحة المطلوب (والمرفق) غامض نرجو توضيح ما الذي تريد عمله

انا جربت لاحظت انك اذا ضغت على زر انتر يصبح المربعين متساويان في القيمة لان الكود يعمل بعد التحديث في المربع الاول

العنوان مخالف لشروط المشاركة وسيتم تعديله ========= جرب متابعة هذا الرابط http://www.officena.net/ib/index.php?showtopic=23491 او http://www.officena.net/ib/index.php?showtopic=31293&st=0&p=158420&fromsearch=1&#entry158420 او http://www.officena.net/ib/index.php?showtopic=36893

السلام عليكم تابع هذا الرابط http://www.officena.net/ib/index.php?showtopic=39133 او http://www.officena.net/ib/index.php?showtopic=19075

بارك الله فيك استاذ ابو ادم ملف جميل ومفيد