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

[KI50NG]

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

كود الحفظ اريدة يكون مختفي في شيت معين كيف اعملو 

For i = 2 To 10000
If Cells(i, 1) = TextBox9.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

 

[صلاح الدين المصلح]

وعليكم السلام ورحمة الله وبركاته ، لوأرفقت أخي الكريم ملفا لسهل على الاخوة التعامل معه ومساعدتك إن شاء الله.