طلب ربط الكود بشين معين

[KI50NG]

السلام عليكم . 

انا عملت فروم فية ادخال بيانات دون العودة للاكسال ولكن عندما ادوس على كلمت تعديل لا يتم التعديل 

لانه الكود غير موجه لصفحة الشيت المختصة كيف اربط الكود بشيت معين 

Private Sub CommandButton1_Click()
For i = 2 To 10000
If Cells(i, 1) = TextBox8.Text Then
Cells(i, 1).Select
Exit For
End If
Next i
ActiveCell.Offset(a, 0) = TextBox1.Text
ActiveCell.Offset(a, 1) = TextBox2.Text
ActiveCell.Offset(a, 2) = TextBox3.Text
ActiveCell.Offset(a, 3) = TextBox4.Text
ActiveCell.Offset(a, 4) = TextBox5.Text
ActiveCell.Offset(a, 5) = TextBox6.Text
ActiveCell.Offset(a, 6) = OptionButton1.Value

End Sub

 

[سليم حاصبيا]

34 دقائق مضت, KI50NG said:

السلام عليكم . 

انا عملت فروم فية ادخال بيانات دون العودة للاكسال ولكن عندما ادوس على كلمت تعديل لا يتم التعديل 

لانه الكود غير موجه لصفحة الشيت المختصة كيف اربط الكود بشيت معين 

Private Sub CommandButton1_Click()
Dim my_Sh As Worksheet
 Set my_Sh = ActiveSheet
 With my_Sh
 For i = 2 To 10000
 .Cells(i, 1).Activate
 If .Cells(i, 1) = TextBox8.Text Then Exit For
 Next i
For k = 0 To 5
  ActiveCell.Offset(a, k) = TextBox & k + 1
  Next
  ActiveCell.Offset(a, 6) = OptionButton1.Value
End With
End Sub

 

جرب هذا الكود

 

[KI50NG]

ما اشتغل حبي .... انا عندي الشين أسمو sader  -----  او ----- sheet7

[محمود_الشريف]

أخى الكريم

وبعد اذن الأستاذ الكبير // سليم

جرب التالى

أضف التالي بعد أول سطر بالكود

Application.ScreenUpdating = False
'rest
On Error Resume Next
Sheet7.Activate

ثم قبل آخر سطر أضف السطر التالى

Application.ScreenUpdating = True