Я обнаружил ошибку
Ошибка времени выполнения '380': не удалось установить свойство RowSource, недопустимое значение свойства.
Что мне делать?
У меня есть три вкладки: Form
, Product Search
и Stock Data
.
Я уже настроил диспетчер имен на вкладке формулы:
=OFFSET('Product Search'!$A$2,0,0,COUNTA('Product Search'!$A:$A)-1,3)
Это мой код:
Private Sub cmdSearch_Click()
Dim RowNum As Long
Dim SearchRow As Long
RowNum = 2
SearchRow = 2
Worksheets("Product Search").Range("A2:I100").ClearContents
Worksheets("Stock Data").Activate
Do Until Cells(RowNum, 1).Value = ""
If InStr(1, Cells(RowNum, 2).Value, txtKeywords.Value, vbTextCompare) > 0 Then
Worksheets("Product Search").Cells(SearchRow, 2).Value = Cells(RowNum, 1).Value
Worksheets("Product Search").Cells(SearchRow, 1).Value = Cells(RowNum, 2).Value
Worksheets("Product Search").Cells(SearchRow, 3).Value = Cells(RowNum, 3).Value
SearchRow = SearchRow + 1
End If
RowNum = RowNum + 1
Loop
If SearchRow = 2 Then
MsgBox "No products were found that match your search criteria."
Exit Sub
End If
lstSearchResults.RowSource = "SearchResults"
End Sub