Выполнение макроса при фильтре

[Slant-shadow]

Есть макрос, который переносит данные с одного рабочего листа на другой, при наложении фильтра данные переносятся также как и без фильтра, а необходимо, чтобы переносились только отфильтрованные данные.
Как это можно сделать?

[Teddy_Bear]

Проверяйте, скажем, высоту строки и выполняйте действие при высоте, больше 1.

 

 

  Cells(k, 1).Select  If Selection.RowHeight > 1 Then DoWhatYouWant

где k пробегает весь диапазон строк,

а DoWhatYouWant - требуемая операция по копированию.

Edited September 12, 2013 by Teddy_Bear