Форма поиска - задать диапазон поиска

[VictorM]

Здравствуйте, уважаемые!
Используя форму поиска, от Hugo121 решил вот сделать ее универсальной, задать все параметры для поиска через текстбоксы.
Все получается вроде, только вот никак не могу справиться с заданием диапазона поиска. т.е. строку stolb = Array(1, 2, 5) написать как stolb = Array(поиск) .
Вот как задать этот самый поиск что-то через текстбокс никак не получается у меня.
Подскажите, пожалуйста.
Спасибо.

[R Dmitry]

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

Здравствуйте, уважаемые!
Используя форму поиска, от Hugo121 решил вот сделать ее универсальной, задать все параметры для поиска через текстбоксы.
Все получается вроде, только вот никак не могу справиться с заданием диапазона поиска. т.е. строку stolb = Array(1, 2, 5) написать как stolb = Array(поиск) .
Вот как задать этот самый поиск что-то через текстбокс никак не получается у меня.
Подскажите, пожалуйста.
Спасибо.

stolb = Split(поиск, ",")   'Array(1, 2, 5)     'задаем столбцы для поиска

может так в массив преобразрвать

 strokaLast = Cells(Rows.Count, CLng(--stolb(0))).End(xlUp).Row

здесь к числу надо привести и массив с 0 индекса

[R Dmitry]

For i = strokaFirst To strokaLast

здесь наверно лучше проверку длбавить

if strokaFirst < strokaLast then exit for

[VictorM]

R Dmitry, спасибо!
Все отлично получилось!
Все работает!!!

[VictorM]

здесь наверно лучше проверку длбавить

Да, добавил, спасибо.

[R Dmitry]

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

Да, добавил, спасибо.

Да не за что

[doober]

Может так подойдет,работает,проверял

Private Sub TextBox1_Change()
    stolb = Array(поиск)
    
     stolb = Split(stolb(0), ",", -1)
    'Array(1, 2, 5)     'задаем столбцы для поиска А-1 В-2 С-3 и тд
'stolb = Array(stolbV)
'очистка списка найденых элементов
    ListBox1.Clear
    'при отсутствии символов для поиска - выход
    If Len(TextBox1.Value) = 0 Then Exit Sub
    'вычисляем номер последней строки, до которой осуществляем поиск
  
    'задаем индекс первого элемента списка ListBox1
    j = 0
    'переводим искомый текст в вверхний регистр
    textS = UCase(TextBox1.Value)
    For ind = LBound(stolb) To UBound(stolb)
      strokaLast = Cells(Rows.Count, CInt(stolb(ind))).End(xlUp).Row
    
        For i = strokaFirst To strokaLast
        
            'для одного символа
            If Len(TextBox1.Value) = 1 Then
                If UCase(Left(Cells(i, CInt(stolb(ind))), 1)) = textS Then
                    'при совпадении добавляем элемент в список
                    ListBox1.AddItem i
                    ListBox1.List(j, 1) = Cells(i, CInt(stolb(ind)))
                    'задаем индекс для следующего элемента списка
                    j = j + 1
                End If

                'для двух и более символов
            Else
                If InStr(1, UCase(Cells(i, CInt(stolb(ind)))), textS) > 0 Then
                    'при совпадении добавляем элемент в список
                    ListBox1.AddItem i
                    ListBox1.List(j, 1) = Cells(i, CInt(stolb(ind)))
                    'задаем индекс для следующего элемента списка
                    j = j + 1
                End If

            End If
        Next
    Next
    'если найден только один эл-т, то переходим к нему
    If j = 1 Then Cells(ListBox1.List(0, 0), stolbV).Select
End Sub

[VictorM]

Может так подойдет

Конечно подойдет!
Все отлично работает, спасибо!!!

[R Dmitry]

Виктор и определение последней строки как у doober в цикл внести, просто в коде перед циклом и если первый столб пустой то ...

[VictorM]

определение последней строки как у doober в цикл внести,

Да, я уже так сделал