Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.09.2013, 01:30   #1
REztor
Форумчанин
 
Регистрация: 28.02.2009
Сообщений: 302
По умолчанию Выполнение макроса при фильтре

Есть макрос, который переносит данные с одного рабочего листа на другой, при наложении фильтра данные переносятся также как и без фильтра, а необходимо, чтобы переносились только отфильтрованные данные.
Как это можно сделать?
REztor вне форума Ответить с цитированием
Старый 10.09.2013, 05:48   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Цитата:
Как это можно сделать?
Копировать не все значения, а только видимые. Например
Код:
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).EntireRow.Copy
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 10.09.2013, 06:34   #3
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

А если вам требуется сначала считать данные в массив, обработать их, и только потом выгрузить на второй лист,
вам поможет эта функция:
http://excelvba.ru/code/GetVisibleRowsArray
EducatedFool вне форума Ответить с цитированием
Старый 31.12.2013, 23:23   #4
REztor
Форумчанин
 
Регистрация: 28.02.2009
Сообщений: 302
По умолчанию

Спасибо большое
REztor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выполнение макроса при определенном значении параметра vanandr91 Microsoft Office Excel 7 27.02.2012 23:10
Автонумерация строк при фильтре atsys Microsoft Office Excel 3 19.12.2009 18:08
Повторное выполнение макроса Jaroslav Microsoft Office Excel 3 26.07.2009 10:12
Выполнение макроса при нажатии на Лист KinderX Microsoft Office Excel 7 01.07.2009 17:19
Выполнение макроса во всех листах Bu$ter Microsoft Office Excel 18 14.11.2008 14:34