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

السلام عليكم تم تعديل كود الفورم 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

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

بسم الله الرحمن الرحيم اللهم اغفر له و ارحمه و عافه و وسع مدخله اللهم اجعله قبره روضه من رياض الجنه وإِنَّا لِلّهِ وَإِنَّـا إِلَيْهِ رَاجِعونَ

كما عودتنا فاعمالك تتميز بالابداع والجودة همل مميز

اخي ريان لابد من وضع المرفق وبه اليوزر فورم لتحديد سبب رسالة الخطاء