ارجو المساعدة فى معرفة الخطأ البرمجى فى الكود التالى
Private Sub TextBox2_Change()
Dim ws As Worksheet
Dim x As Long
Set ws = Worksheets("Sheet7")
x = TextBox2
TextBox3 = Application.WorksheetFunction.VLookup(x, ws.Range("a2:g551"), 2, 0)
End Sub
pro.rar