Всем добрый день. Переместил тему из EXCELевской ветки
Прошу помощи в решении проблемы(сам пример в аттаче) внутри книги 2 листа- рабочий и клиентский. на рабочем листе находятся все расчеты, в клиентский я с помощью ссылок переношу нужные мне данные. Не получается перенести количество строк автоматически, т.е. если в рабочем листе создано 10 строк, а в клиентском до этого было 5, приходится руками добавлять строки, потом растягиванием вносить в них данные. Можно ли как то с помощью привязки к кнопке или в автоматом переносить кол-во строк из одного листа в другой?
Заранее большое спасибо!
Всем добрый день. Переместил тему из EXCELевской ветки
Прошу помощи в решении проблемы(сам пример в аттаче) внутри книги 2 листа- рабочий и клиентский. на рабочем листе находятся все расчеты, в клиентский я с помощью ссылок переношу нужные мне данные. Не получается перенести количество строк автоматически, т.е. если в рабочем листе создано 10 строк, а в клиентском до этого было 5, приходится руками добавлять строки, потом растягиванием вносить в них данные. Можно ли как то с помощью привязки к кнопке или в автоматом переносить кол-во строк из одного листа в другой?
Приветствую, может просто скрывать ненужные строки на клиентском листе? Типа такого: [vba]
Код
Private Sub Worksheet_Activate() Dim i& On Error Resume Next: Err.Clear With Sheets("Рабочий лист ТКП") i = .Range("A5", .Cells(Rows.Count, 1).End(xlUp)(2)).SpecialCells(2).Count End With If Err Then Exit Sub With Range("A5:A20") .EntireRow.Hidden = True .Resize(i).EntireRow.Hidden = False End With End Sub
[/vba]
Приветствую, может просто скрывать ненужные строки на клиентском листе? Типа такого: [vba]
Код
Private Sub Worksheet_Activate() Dim i& On Error Resume Next: Err.Clear With Sheets("Рабочий лист ТКП") i = .Range("A5", .Cells(Rows.Count, 1).End(xlUp)(2)).SpecialCells(2).Count End With If Err Then Exit Sub With Range("A5:A20") .EntireRow.Hidden = True .Resize(i).EntireRow.Hidden = False End With End Sub
nilem,супер! то что и надо, спасибо большое! только появился вопрос-как попасть в обработчик из 10го офиса чтобы перенести собранную Вами процедуру из примера в мой рабочий шаблон? И еще один вопрос появился. Собранный Вами файлик в расширении xlsm. если его сохранить в xlsx макросы работать перестают. Можно как то сделать чтобы книга была в своем стандартном формате, а макросы работали?
Заранее спасибо!
nilem,супер! то что и надо, спасибо большое! только появился вопрос-как попасть в обработчик из 10го офиса чтобы перенести собранную Вами процедуру из примера в мой рабочий шаблон? И еще один вопрос появился. Собранный Вами файлик в расширении xlsm. если его сохранить в xlsx макросы работать перестают. Можно как то сделать чтобы книга была в своем стандартном формате, а макросы работали?
.xlsm - это самый что ни на есть стандартный формат файла с поддержкой макросов для Excel начиная с 2007 версии. Формат .xlsx макросы не поддерживает.Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
nilem, Ваш скрипт работает, но обработчик упорно говорит что "Project unviewable" и посмотреть к какому из листов привязан скрипт я не могу:( Pelena, вопрос возник потому что в у менеджеров в компании запрещены документы с использованием макросов и скриптов, а у меня нет(я инженегр), соответственно, они не могут использовать мои спеки.
nilem, Ваш скрипт работает, но обработчик упорно говорит что "Project unviewable" и посмотреть к какому из листов привязан скрипт я не могу:( Pelena, вопрос возник потому что в у менеджеров в компании запрещены документы с использованием макросов и скриптов, а у меня нет(я инженегр), соответственно, они не могут использовать мои спеки.LevinSoft
LevinSoft, "Project unviewable" - наверное, установлен общий доступ к книге, уберите его (в смысле, доступ) и будет viewable. В своей книге с монопольным доступом нажмите ALT+F11, чтобы перейти в редактор VBE. Слева найдите лист, в котором должны скрываться/раскрываться строки, и щелкните 2 раза. В открывшийся модуль листа скопируйте код из сообщения выше. Ну и вроде все должно работать. Макросы д.б. разрешены.
LevinSoft, "Project unviewable" - наверное, установлен общий доступ к книге, уберите его (в смысле, доступ) и будет viewable. В своей книге с монопольным доступом нажмите ALT+F11, чтобы перейти в редактор VBE. Слева найдите лист, в котором должны скрываться/раскрываться строки, и щелкните 2 раза. В открывшийся модуль листа скопируйте код из сообщения выше. Ну и вроде все должно работать. Макросы д.б. разрешены.nilem
nilem, Спасибо за подсказки, но воспользовался ФАКом:) Повесил скрипт на 2й лист на Activated, реакции нет, т.е. скрипт выполняется, но строки все равно не скрываются.
nilem, Спасибо за подсказки, но воспользовался ФАКом:) Повесил скрипт на 2й лист на Activated, реакции нет, т.е. скрипт выполняется, но строки все равно не скрываются.LevinSoft
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
