مهند محسن قام بنشر يناير 4, 2019 مشاركة قام بنشر يناير 4, 2019 (معدل) السلام عليكم اساتذتى واحبائى الكرام ارجو التلطف والتكرم على ضبط كود الإضافة بالفورم بحيث يتم اضافة البيانات الى صفحات عديدة بمجرد تحديد الصفحة المفروض الترحيل اليها من الكمبوبوكس1 بداية من الخلية A17:l44 فالمشكلة تكمن ايضا عندما يتم الكتابة والإدخال بداية من التكست بوكس2 الى التكست بوكس 6 يبدو الأمر الطبيعى ولكن تظهر المشكلة عندما اكتب فى التكست بوكس7 الخاص بتاريخ الإصدار يقوم من جانبه بمحو وحذف كل البيانات المدخلة فى التكستات السابقة له فما هو الحل بارك الله فيكم وجزاكم الله كل خير Private Sub CommandButton2_Click() Set X = ActiveSheet If Me.ComboBox1.Value = "" Then MsgBox "ÚÝæÇ íÌÈ ÇÎÊÇÑ ÇáÔíÊ ÇáãÑÍá Çáíå ÇáÈíÇäÇÊ" Exit Sub End If Worksheets(Me.ComboBox1.Value).Activate Dim lastrow lastrow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row lastrow = lastrow + 1 Cells(lastrow, 1) = Me.TextBox1.Value Cells(lastrow, 2) = Me.TextBox2.Value Cells(lastrow, 3) = Me.TextBox3.Value Cells(lastrow, 4) = Me.TextBox4.Value Cells(lastrow, 5) = Me.TextBox5.Value Cells(lastrow, 6) = Me.TextBox6.Value Cells(lastrow, 7) = Me.TextBox7.Value Cells(lastrow, 8) = Me.TextBox8.Value Cells(lastrow, 9) = Me.TextBox9.Value Cells(lastrow, 10) = Me.TextBox10.Value Cells(lastrow, 11) = Me.TextBox11.Value Cells(lastrow, 12) = Me.TextBox12.Value TextBox2.SetFocus End Sub Search 2.xlsm تم تعديل يناير 4, 2019 بواسطه مهند محسن رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر يناير 4, 2019 الكاتب مشاركة قام بنشر يناير 4, 2019 للرفع أكرمكم الله رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر يناير 4, 2019 الكاتب مشاركة قام بنشر يناير 4, 2019 للرفع لو تكرمتم رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر يناير 5, 2019 الكاتب مشاركة قام بنشر يناير 5, 2019 للرفع جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر يناير 5, 2019 الكاتب مشاركة قام بنشر يناير 5, 2019 هل هناك مساعدة بارك الله فيكم رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر يناير 29, 2019 الكاتب مشاركة قام بنشر يناير 29, 2019 للرفع اكرمكم الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.