طلب مساعدة في فورم بحث بطيئ جدا

[abdellahgh]

السلام عليكم إخواني الأعزاء عندي ملف بحث بطيئ جذا هل من مساعذة جزاكم الله خيرا الملف مرفق وشكرا 

•  

بحث في جميع الشيتات أوفيسنا 2.xlsm

[سليم حاصبيا]

مع أني لا أطيق اليورز فورم ولا أحب التعامل معه 

اليك هذا الكود أسرع بكثير 

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