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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.12.2010, 19:41   #11
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

старая процедура ToOrganizer разбита на две части
ToOrganizer переносит данные на лист "ежедневник"
EndDay - заканчивает день
добавьте в ней после
.Rows("6:" & rc - 1).Group
еще одну строку
.Rows("6:" & rc - 1).Hidden = True
и будет данные за день еще и сворачивать.

в каждой вашей КнопкаХХ_щелкнуть перед тем как очищать бланк поставьте строку ToOrganizer.

EndDay надо вызвать всего один раз из вашей ПереносДанных, где-то в самом конце процедуры.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перенос данных на другой лист Jonny B Microsoft Office Excel 15 26.04.2011 09:16
Создание цикла переноса данных из одного диапозона в другой Freerider1972 Microsoft Office Excel 7 30.10.2010 22:15
Выборка данных для переноса на другой лист. Kot9ra Microsoft Office Excel 1 14.10.2010 22:05
Формула для переноса значения с одного листа на другой Олег197709 Microsoft Office Excel 12 12.07.2010 10:52
Макрос переноса строк на другой лист cargoline9 Microsoft Office Excel 11 15.12.2009 22:05