smj85

تحياتي ماهو الخطأ في هذا الكود حتى تظهر شاشة run-time-error424-object-required Private Sub cmdSearch_Click() Dim rownum As Long Dim searchrow As Long rownum = 2 searchrow = 2 wrrksheets("summary").Activate Do Until Cells(rownun, 1).Value = "" If InStr(1, Cells(rownum, 2).Value, txtkeywords.Value, vbTextCompare) > "" Then wrrksheets("product search").Cells(searchrow, 1).Value = Cells(rownum, 1).Val wrrksheets("product search").Cells(searchrow, 2).Value = Cells(rownum, 2).Val wrrksheets("product search").Cells(searchrow, 3).Value = Cells(rownum, 3).Val End If rownum = rownum + 1 Loop If searchrow = 2 Then MsgBox "عذرا الكلمة او الحرف الذي تبحث عنه غير موجود " End If lstsearchresults.RowSource = "searchresults" End Sub