ممكن المساعدة فى معرفة الخطأ فى كود البحث هذا؟

[الصفتى]

Dim rng1 As Range, str_search As String, row_number As Long, n As Long
str_search = TextBox45.Value
Set rng1 = ThisWorkbook.Sheets("data").Range("a:a").Find(str_search, , xlValues, xlWhole)
If Not rng1 Is Nothing Then
row_number = rng1.Row
Application.ScreenUpdating = False
For n = 46 To 321
 Me.Controls("TextBox" & n).Value = ThisWorkbook.Sheets("data").Cells(row_number, n).Value
Next n

For n = 324 To 337
 Me.Controls("TextBox" & n).Value = ThisWorkbook.Sheets("data").Cells(row_number, n).Value
Next n
Application.ScreenUpdating = True
End If

 

[مهند محسن]

بالنأكيد لا يمكن المساعدة هكضا ونبهنا كثير جداً على هذا الأمر ... فلابد من رفع ملف مدعوم بشرح كافى عن المطلوب , فلا يمكن العمل على التخمين وتجنباً لإهدار وقت الأساتذة !!!