Поиск

[Aqil_f]

Делаю поиск и результат вводится в листбокс(lbAuto)
Это у меня получается.

Dim arr()
Dim k
Dim i As Long
For i = 1 To 2600
If InStr(1, Split(Cells(i, 2), " ")(1), TextBox3) > 0 Then
k = k + 1
ReDim Preserve arr(1 To 110, 2 To k)
arr(1, k) = Cells(i, 1)
arr(2, k) = Cells(i, 2)
arr(3, k) = Cells(i, 3)
arr(4, k) = Cells(i, 4)
arr(5, k) = Cells(i, 5)
arr(117, k) = i
End If
Next i
lbAuto.List = Application.Transpose(arr)

Но, надо еще 1 условия добавить: если 1-й столбец в листбоксе пусто, эти записи не должны видно в листбоксе. Вот это у меня не получается. Помогите пожалуйста, как можно добавить эта условия?

[Aqil_f]

Помогите пожалуйста.

[Hugo121]

Файл лениво делать.

[Aqil_f]

Прикрипляю файл (k3.rar)
1. Если делать поиск по FIO (допустим Xx) в листбоксе видно 3 записи, а должен быт 1 (Zzzzz Xxerxx Cccccc, где есть TNR). При поиска по ФИО должен быт видно, те записи где TNR не пусто.

2. Если нажимать на CheckBox2 должен итди фильтрация (TNR равно пусто)
и должен вводится на листбокс

[Aqil_f]

Наверно я очень непонятно обяснила свою задачу, поэтому никакие ответы нету.

[Hugo121]

Не отчаивайтесь!
Я файл только сейчас открыл.

По пустой строке (или нужно было что-то другое? непонял из описания) - а как иначе, если Вы её молча берёте в массив:

    arr = Range("A2:CW" & il)
    lbAuto.List = arr

Тогда нужно фильтровать-перекладывать.

Аа, увидел - там нужно отбирать в другой массив строки по первому столбцу... Тогда при клике в листбоксе нельзя будет выделять строку по индексу без доработки. Или искать по TNR на листе, или когда заносите в массив, сделать поле с номером строки, заносить его тоже в листбокс (вне видимости), затем при клике выделять строку по этому номеру.

[Aqil_f]

Я хочу после фильтрации (CheckBox2) в листбоксе видно было только фильтрованные записи. Вот это у меня не получается.

Еще, если делать поиск по FIO (допустим Xx) в листбоксе сейчас видно 3 записи, а должен быт 1 (Zzzzz Xxerxx Cccccc, где TNR не пусто). При поиска по ФИО должен быт видно, те записи где TNR не пусто. Вот это тоже не получается.

[Aqil_f]

1-ю задачу я решила сделав такую изменение в IF:
If InStr(1, Split(Cells(i, 2), " ")(1), TextBox3) > 0 And Cells(i, 1) <> "" Then

Но, не понимаю как из фильтрованные записи массив создавать. Помогите пожалуйста.

[Aqil_f]

Помогите пожалуйста. Не знаю как из фильтрованные записи массив создавать и отображать эти данные в листбоксе.

[IgorGO]

не обязательно массив создавать можно по одному добавлять в листбокс необходимые записи.