AutoFilter.....

[du_hast]

Здравствуйте, есть код с AutoFilter - ом:
Private Sub ComboBox1_Change()
Dim com3 As Variant
If ActiveSheet.AutoFilterMode Then
Rows(1).Select
Selection.AutoFilter Field:=21, Criteria1:=ComboBox1.Value

com3 = ActiveSheets.Range(Я идиот! Убейте меня, кто-нибудь!)
ComboBox3.List = com3
Else
Rows(1).Select
Selection.AutoFilter
Selection.AutoFilter Field:=21, Criteria1:=ComboBox1.Value
End If
End Sub

Так вот в чем собственно вопрос: "Что написать в Range или может я что-то не так делаю, чтобы в ComboBox3.List отображалось то, что отфильтрованно после AutoFilter - а?"[/b]

[uhm]

Если я не ошибаюсь, автофильтр не возвращает отфильтрованный range, и так просто все не получится. Могу предложить такой способ: пройтись по всем ячейкам Autofilter.Range (это Range, к которому применен автофильтр), и, если строка с этой ячейкой не является hidden, добавлять значение ячейки в Комбобокс.

[РоманК]

можно получить Range с отфильтрованными строками:

AutoFilter.Range.SpecialCells(xlCellTypeVisible)