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