مع أني لا أطيق اليورز فورم ولا أحب التعامل معه
اليك هذا الكود أسرع بكثير
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim find_rg As Range
Dim Ro%, i%
For Each ws In ThisWorkbook.Worksheets
Set find_rg = ws.Range("a5:a800").Find(TextBox1.Text)
If Not find_rg Is Nothing Then
Ro = find_rg.Row
For i = 2 To 11
ws.Cells(Ro, i) = Me.Controls("TextBox" & i).Value
Next
End If
Next ws
For i = 1 To 11
Me.Controls("TextBox" & i) = vbNullString
Next
MsgBox "تم تعديل البيانات بنجاح"
End Sub
الملف
Saecch_By_User.xlsm