listbox

[Гыгыка]

Помогите, пожалуйста, устранить ошибку при повторном нажатии кнопки "фильтр". Файл прилагается. Заранее благодарен)) Смысл в том, чтобы при нажатии кнопки "фильтр" в листбоксе оставались выбранные значения.

Private Sub CommandButton4_Click()
Sheets(2).UsedRange.ClearContents
' Range("Лист1!D1").Value = ListBox1.Column(0)
TextBox1.Value = Range("Лист1!D1").Value
ListBox1.Clear
With Sheets(1)
.[a1].CurrentRegion.AutoFilter 1, TextBox1.Value
If .Cells(Rows.Count, "a").End(xlUp).Row > 1 Then
Sheets(2).UsedRange.ClearContents
.UsedRange.Offset(1).Copy Sheets(2).[a1] 'без заголовков или .UsedRange.Copy Sheets(2).[a1] - с заголовками
End If
.AutoFilterMode = 0
End With
Dim i As Long
ListBox1.ColumnCount = 3
With Worksheets("Лист2")
For i = 1 To .UsedRange.Rows.Count
ListBox1.AddItem .Cells(i, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(i, 2).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(i, 3).Value
Next
End With
Cells(1, 4).ClearContents
TextBox1.Value = ""
End Sub

[kalbasiatka]

Не знаю, что за ошибка была и как её повторить, вот вариант фильтра.

[Гыгыка]

Спасибо за ответ! Смысл в том, в форме нажимаю кнопку "заполнение списка" - листбокс заполняется...затем выбрав определенную строку в листбоксе нажимаю кнопку фильтр и листбокс заполняется отфильтрованными значениями (из выбранной строки по первому столбцу)...при первом нажатии на фильтр все идеально, но при нажатии во второй раз или когда строка в листбоксе не выделена выдает ошибку((((

[kalbasiatka]

А какие манипуляции в дальнейшем будут с выбранной строкой?

[Гыгыка]

В общем в заполненном листбоксе, состоящим из н-го количества строк, при выборе строки, нажимаю кнопку фильтр и листбокс обновляется и заполняется отфильтрованными данными. фильтрация происходит по данным первой колонки listbox.list(0). вот как то так.

[kalbasiatka]

Это для моего примера, если что.

Private Sub CommandButton4_Click() 
    Dim i&, crit$
    With Me.ListBox1
        crit = .List(.ListIndex, 0)
        .Clear
        For i = 1 To UBound(a)
            If a(i, 1) = crit Then
                .AddItem
                .List(.ListCount - 1, 0) = a(i, 1)
                .List(.ListCount - 1, 1) = a(i, 2)
                .List(.ListCount - 1, 2) = a(i, 3)
            End If
        Next
    End With
End Sub

[Гыгыка]

Все работает, но вот только при нажтии кнопки фильтр когда не выбрана ни одна строка ф листбоксе выдает ошибку...вопрос в том как это устранить?!

[Гыгыка]

Все работает...вопрос в том, что когда ни одна строка в листбоксе не выбрана, при нажатии кнопки фильтр выдает ошибку?! как это устранить?!

[kalbasiatka]

Добавить строку

With Me.ListBox1
        If .ListIndex < 0 Then Exit Sub

[Гыгыка]

Спасибо, все работает)))