Макрос поиска

[Pecnekm]

Здравствуйте!

Подскажите, пожалуйста, пару моментов из этого макроса:

Option Explicit
Dim x

Private Sub UserForm_Initialize()
    x = Range("b3:b" & Cells(Rows.Count, 1).End(xlUp).Row).Value
End Sub

Private Sub TextBox1_Change()
    Dim i As Integer
    ListBox1.Clear    'очищаем листбокс
    'при отсутствии символов для поиска - выход
    If Len(TextBox1.Value) = 0 Then Exit Sub
    'осуществляем поиск, заполняем листбокс
    For i = 1 To UBound(x, 1)
        If UCase(x(i, 1)) Like "*" & UCase(TextBox1.Value) & "*" Then
            ListBox1.AddItem x(i, 1)
        End If
    Next i
End Sub

Private Sub ListBox1_Click()
    Dim k As Integer
    If ListBox1.ListIndex = -1 Then Exit Sub
    k = WorksheetFunction.Match(Me.ListBox1.Value, x, 0)
    'данные начинаются с 3-й строки
    Cells(k + 2, 1).Select
End Sub

Private Sub CommandButton1_Click(): Unload Me: End Sub

Честно спионерил его на форуме
До конца не смог разобраться в некоторых моментах:
1. Как сделать чтобы после поиска выбиралась нужная ячейка, а не соседняя?
2. Почему при выборе диапазона "D3:D" выбивает ошибку с это строкой - k = WorksheetFunction.Match(Me.ListBox1 .Value, x, 0)?; на всех других диапазонах работает нормально.

[OlegVE]

Сообщение от Pecnekm

...
2. Почему при выборе диапазона "D3:D" выбивает ошибку с это строкой - k = WorksheetFunction.Match(Me.ListBox1 .Value, x, 0)?; на всех других диапазонах работает нормально.

...

Здравствуйте
Из справки "List of Worksheet Functions Available to Visual Basic"

Если функция ПОИСКПОЗ не находит соответствующего значения, то возвращается значение ошибки #Н/Д.

А это уже не из справки

On Error Resume Next
k = WorksheetFunction.Match(Me.ListBox1.Value, x, 0)
If Err <> 0 Then
'   Обрабатываем ошибку, например, выводим сообщение
End If

До свидания

[VictorM]

Честно спионерил его на форуме

так для того эти файлы и выкладываются)) это форма поиска от Nilem и код рабочий.
а по Вашему вопросу - выкладываете файл, будем смотреть что не так, где что подправить.

[Pecnekm]

Сообщение от VictorM

так для того эти файлы и выкладываются)) это форма поиска от Nilem и код рабочий.
а по Вашему вопросу - выкладываете файл, будем смотреть что не так, где что подправить.

Выложил свою таблицу, только немного почистил её, чтобы не смущать людей .

Суть проблемы:
Поиск по клиентам работает нормально, только когда находишь нужную позицию, выбирается ячейка не соответствующая поиску, а соседняя слева.

А поиск по № заказа работает, но при нажатии на результат выкидывает ошибку:

k = WorksheetFunction.Match(Me.ListBox1 .Value, x, 0)

Но если изменить диапазон поиска с "D3:D" на любой другой - работает нормально. Не могу понять почему?

[Hugo121]

Потому что строка сравнивается с числом.
Нужно так в данном случае (числа целые)

k = WorksheetFunction.Match(CLng(Me.ListBox1.Value), x, 1)

P.S.Хотя что-то так больше не работает, формуле похоже строки нужны...

А выбор ячейки тут:

Cells(k + 2, 1).Select

Замените в одной форме единицу на 2, в другой на 4.

[nilem]

Сообщение от Pecnekm

Поиск по клиентам работает нормально, только когда находишь нужную позицию, выбирается ячейка не соответствующая поиску, а соседняя слева.

Пишем так:
Cells(k + 2, 4).Select (4 - это номер столбца)

А поиск по № заказа работает, но при нажатии на результат выкидывает ошибку

Match не хочет сравнивать строку и число. Пишем так:
k = WorksheetFunction.Match(Val(ListBox 1.Value), x, 0) (0 - значит точное соответствие).
Во вложении исправленный вариант.
Пока писал сообщение, Игорь уже все ответил

[Pecnekm]

СПАСИБО, огромное, nilem и Hugo121. Всё заработало! Спасибооо!!

[Hugo121]

... я то ответил, но не на 100% - с единицей недопёр... поэтому подумал, что строки нужны...

А насчёт Match по массиву мы тут уже обсуждали - перебором быстрее, а массивы больше 65535 ячеек WorksheetFunction.Match вообще не принимает.

[Pecnekm]

Сообщение от Hugo121

А насчёт Match по массиву мы тут уже обсуждали - перебором быстрее, а массивы больше 65535 ячеек WorksheetFunction.Match вообще не принимает.

Да мне не нужно так много максимум нужно 3000-4000.

У меня еще вопросец маленький появился после того как Вы мне макрос помогли исправить:
Excel начал тупить немного, тоесть форматирование и подсчеты работают только после CTRL+S, пока не сохранишь документ - не закрашивает строчку и не подсчитывает данные. С чем это может быть связано? слишком много макросов и документ нагружен ??
Подскажите, пожалуйста!

[nilem]

Сообщение от Pecnekm

не закрашивает строчку и не подсчитывает данные.

Автопересчет включен? Проверьте галочку.