طلب التعديل في كود

[mezo2018]

الاخوة الاعزاء 

بعد التحية

المبين ادناه عبارة عن كود لتعديل الصفوف من خلال الليست بكس وهو يعمل معي في حال وقفت على الشيت

المطلوب تعديلة ليعمل على شيت (محدد) ضمن الكود

Private Sub CommandButton1_Click()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
  For Each F In ws.Range("a2:a11000")
  If F = TextBox1.Text Then
  ws.Select
  F.Select
  Exit For
  End If
  Next F
  Next ws
  ActiveCell.Value = TextBox1.Value
  ActiveCell.Offset(0, 1).Value = TextBox2.Value
    ActiveCell.Offset(0, 2).Value = TextBox3.Value
     ActiveCell.Offset(0, 3).Value = TextBox4.Value
      ActiveCell.Offset(0, 4).Value = TextBox5.Value
       ActiveCell.Offset(0, 5).Value = TextBox6.Value
        ActiveCell.Offset(0, 6).Value = TextBox9.Value
     ActiveCell.Offset(0, 7).Value = TextBox10.Value
      ActiveCell.Offset(0, 8).Value = TextBox11.Value
       ActiveCell.Offset(0, 9).Value = TextBox12.Value
     ActiveCell.Offset(0, 10).Value = TextBox13.Value
           
       
       MsgBox "Êã ÊÚÏíá ÇáÈíÇäÇÊ ÈäÌÇÍ"
  
  TextBox1.Value = ""
  TextBox2.Value = ""
   TextBox3.Value = ""
   TextBox4.Value = ""
   TextBox5.Value = ""
   TextBox6.Value = ""
   TextBox9.Value = ""
   TextBox10.Value = ""
   TextBox11.Value = ""
   TextBox12.Value = ""
   TextBox13.Value = ""
    
End Sub
 

[هانى محمد]

أهلا بك فى المنتدى عليك برفع الملف نفسه