Выбор отфильтрованных ячеек

[Paladin11]

Большая просьба помочь.
Есть макрос который выделяет все ячейки в столбце и отправляет все значения из них в BCC аутлучного письма.
Макрос надо поправить так, чтобы при выставлении фильтра на колонки в BCC отправлялись данные только из отфильтрованных ячеек.

Макрос:

Sub DRB_List()
'
' Macro3 Macro
' macro
'
Set myOlApp = CreateObject("outlook.Application")

col_n = Selection.Column
Cells(2, col_n).Select
Range(Selection, Selection.End(xlDown)).Select

row_n = Selection.Count + 1
' MsgBox (row_n)

adr = ""

For r = 2 To row_n
adr = adr & Cells(r, col_n).Value & ";"
Next

Set myMail = myOlApp.CreateItem(olMailItem)
myMail.BCC = adr
myMail.display
End Sub

[Paladin11]

В первом посте опечатка в коде
Sub DRB_list()
'
' Macro3 Macro
'
'
Set myOlApp = CreateObject("outlook.Application")

col_n = Selection.Column
Cells(2, col_n).Select
Range(Selection, Selection.End(xlDown)).Select
row_n = Selection.Count + 1
' MsgBox (row_n)

adr = ""

For r = 2 To row_n
adr = adr & Cells(r, col_n).Value & ";"
Next

Set myMail = myOlApp.CreateItem(olMailItem)
myMail.BCC = adr
myMail.display

End Sub

[Paladin11]

спецы, вы где...?

[VictorM]

Посмотрите вот это Как перебрать только отфильтрованные строки в автофильтре ?

[Paladin11]

Спасибо за ссылку, но к сожалению, не смог самостоятельно разобраться. Не эксперт в VBA.
Может кто-то все-же подскажет решение.

[Paladin11]

Неужели это на столько неподсильная задача?

[gluk_fm]

Не мучайся напиши самый простой макрос для копирования значений на другой лист. А после уже копирование данных туда куда тебе необходимо.