MS Exel 2003 макрос с фильтрами

[vbapple]

Доброго времени суток! Итак нужна помощь в следущем. Есть таблица в которой очень много строк. таблица отфильтровуется по 3-ти критериям.
Выбираем 1-й критерий, 2-й критерий. и нужно что 3-й выбирался цыклом с 1 по последнее значение и уходил на печать.


Selection.AutoFilter Field:=3, Criteria1:="как здесь указать номер в списке фильтра а не его значение...?"
Range("D7:D8").Select
Selection.AutoFilter Field:=3, Criteria1:="как здесь указать номер в списке фильтра а не его значение...?"
ActiveWindow.SelectedSheets.PrintOu t Copies:=1
End Sub

[Казанский]

Никак. Надо самому выделять уникальные значения. Попробуйте:

Sub vbapple()
Dim c
Cells.AutoFilter field:=3 'снять 3-й фильтр
On Error Resume Next
With CreateObject("scripting.dictionary")
    Set c = ActiveSheet.AutoFilter.Range.Columns(3).Cells(2)
    For Each c In Range(c, Cells(Rows.Count, c.Column).End(xlUp)).SpecialCells(xlCellTypeVisible)
        .Add c.Text, "0"
    Next
    For Each c In .Keys
        Cells.AutoFilter field:=3, Criteria1:=c
        ActiveSheet.PrintOut
    Next
End With
Cells.AutoFilter field:=3 'снять 3-й фильтр
End Sub

[vbapple]

Сообщение от Казанский

Никак. Надо самому выделять уникальные значения. Попробуйте:

Sub vbapple()
Dim c
Cells.AutoFilter field:=3 'снять 3-й фильтр
On Error Resume Next
With CreateObject("scripting.dictionary")
    Set c = ActiveSheet.AutoFilter.Range.Columns(3).Cells(2)
    For Each c In Range(c, Cells(Rows.Count, c.Column).End(xlUp)).SpecialCells(xlCellTypeVisible)
        .Add c.Text, "0"
    Next
    For Each c In .Keys
        Cells.AutoFilter field:=3, Criteria1:=c
        ActiveSheet.PrintOut
    Next
End With
Cells.AutoFilter field:=3 'снять 3-й фильтр
End Sub

В визул бейсике я несовсем понимаю. вижу 2 цыкла но непойму что в них делается

[Казанский]

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

[vbapple]

Сообщение от Казанский

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

Огромное спасибо