ошибка с полем для ввода

[NebesnyiOgon]

Доброго времени суток. Есть скрипт который ищет в книге значения и выводит строки, где эти значения присутствуют, в другую книгу. Пытался создать поле для ввода искомых значений, чтобы на каждое не создавать отдельную кнопку, но безуспешно.
Идея такова: в книге "arhiw" - в поле вводим значение "13", нажимаем кнопку "ввод" и в книге "13" на листе "13" получаем все строки в которых содержится число 13. Нужно чтобы искал любое введенное значение. Каждому значению соответствует своя книга. В примере это значение - 13.
На данный момент это работает через кнопку. Вся надежда на Вас.

[Hugo121]

Не глядя в файл - ищите число 13, а не строку "13", которую получаете после инпутбокса.
Но лучше все свести к строке.

[NebesnyiOgon]

лучше было бы конечно посмотреть.

[EducatedFool]

почему поле ввода и кнопка - в одном файле, а макрос - в другом?

перенесите макрос в другой файл, и попробуйте так:

Sub poisk()
    txt$ = ActiveSheet.OLEObjects("textbox1").Object.Text
    Dim a(), b()
    Dim i&, ii&, j&, jj&
    With Sheets("arhiw")
        a = .Range("A2", .Cells(Rows.Count, 13).End(xlUp)).Value
    End With
    ii = 1
    ReDim Preserve b(1 To UBound(a), 1 To UBound(a, 2))
    For i = 1 To UBound(a)
        For j = 4 To 10
            If CStr(a(i, j)) = txt$ Then
                For jj = 1 To UBound(a, 2)
                    b(ii, jj) = a(i, jj)
                Next
                ii = ii + 1
                Exit For
            End If
        Next
    Next
    With ThisWorkbook.Sheets("13")
        .Cells(2, 1).Resize(UBound(b), UBound(b, 2)) = b
    End With
End Sub

[NebesnyiOgon]

Приветствую EducatedFool. Попробовал сделать как Вы посоветовали - выдаёт ошибку (Subscript out of range). Excel 2010.