ضبط كود الإضافة فى الفورم للإضافة فى عدة صفحات

[مهند محسن]

السلام عليكم اساتذتى واحبائى الكرام ارجو التلطف والتكرم على ضبط كود الإضافة بالفورم بحيث يتم اضافة البيانات الى صفحات عديدة بمجرد تحديد الصفحة المفروض الترحيل اليها من الكمبوبوكس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 بواسطه مهند محسن

[مهند محسن]

للرفع أكرمكم الله

[مهند محسن]

للرفع لو تكرمتم

[مهند محسن]

للرفع جزاكم الله كل خير

[مهند محسن]

هل هناك مساعدة بارك الله فيكم

[مهند محسن]

للرفع اكرمكم الله