كود تعديل على الشيتات

[KI50NG]

السلام عليكم ورحمة الله وبركاته 

اخوتي الاعزاء . 

بدي كود التعديل يكون فقط على يوزر فورم 1 . 

عندما اكون فاتح صفحة USER1 وانا في شيت 2 يعدل على شيت اثنين وليس 1 بدي التعديل يكون على فورم مخصص 

Set sh = Worksheets("1")
For i = 3 To 10000
If Cells(i, 3) = TextBox23.Text Or Cells(i, 2) = TextBox24.Text Then
Cells(i, 1).Select
Exit For
End If
Next i
ActiveCell.Offset(0, 1) = TextBox1.Text
ActiveCell.Offset(0, 2) = TextBox2.Text
ActiveCell.Offset(0, 3) = ComboBox1.Value
ActiveCell.Offset(0, 4) = TextBox3.Text
ActiveCell.Offset(0, 5) = TextBox4.Text
ActiveCell.Offset(0, 6) = TextBox5.Text
ActiveCell.Offset(0, 7) = TextBox6.Text
ActiveCell.Offset(0, 8) = TextBox7.Text
ActiveCell.Offset(0, 9) = TextBox8.Text
ActiveCell.Offset(0, 10) = TextBox9.Text
ActiveCell.Offset(0, 11) = TextBox10.Text
ActiveCell.Offset(0, 12) = ComboBox2.Value
ActiveCell.Offset(0, 13) = TextBox11.Text
ActiveCell.Offset(0, 14) = TextBox12.Text
ActiveCell.Offset(0, 15) = TextBox12.Text
MsgBox "Êã ÇáÊÚÏíá"
TextBox23.SetFocus

اهلاً اخي العزيز . 

انا بعمل ترتيب برنامج بعد الاكمال سوف يتم وضعه في الموقع للاستفادة منه . 

المطلوب فقط توجيه كود التعديل على شيت معين فقط لا غير . 

حيث لا يتم تاُير فتح الشيتات على مكان حفظ الفورم .

[مهند محسن]

وعليكم السلام-لا تنتظر المساعدة من احد بدون رفع الملف نفسه به شرح وتوضيح كل المطلوب