Ошибка времени выполнения '380' Не удалось установить свойство RowSource, недопустимое значение свойства - PullRequest
1 голос
/ 20 сентября 2019

Я обнаружил ошибку

Ошибка времени выполнения '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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...