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

[مهند محسن]

السلام عليكم اساتذتى واخوان الكرام ارجو التكرم على مساعدتى فى ضبط واصلاح كود التعديل فى الفورم ولكم جزيل الشكر

Private Sub CommandButton1_Click()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
  For Each f In ws.Range("a17:b100")
  If f = TextBox1.Text Then
  ws.Select
  f.Select
  Exit For
  End If
  Next f
  Next ws
  For Each ws In ThisWorkbook.Worksheets
  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 = TextBox7.Value
ActiveCell.Offset(0, 7).Value = TextBox8.Value
ActiveCell.Offset(0, 8).Value = TextBox9.Value
ActiveCell.Offset(0, 9).Value = TextBox10.Value
ActiveCell.Offset(0, 10).Value = TextBox11.Value
ActiveCell.Offset(0, 11).Value = TextBox12.Value
       Next ws
       MsgBox "Êã ÊÚÏíá ÇáÈíÇäÇÊ ÈäÌÇÍ"
  
  TextBox1.Value = ""
  TextBox2.Value = ""
   TextBox3.Value = ""
   TextBox4.Value = ""
   TextBox5.Value = ""
   TextBox6.Value = ""
   TextBox7.Value = ""
   TextBox8.Value = ""
  End Sub

 

Search.xlsm

[مهند محسن]

للرفع رجاءا

[Ali Mohamed Ali]

تفضل

 

Search.xlsm

[مهند محسن]

احسنت استاذى الكريم بارك الله فيك