Есть файл (прикрепил) из трех станиц: "Смета", "Калькулятор" и "Справочник". Смысл файла в расчете стоимости изготовления продукции и формирования подробной сметы. Значения на странице "Смета" подтягиваются с помощью "ВПР" с двух других страниц, а в связи с тем, что некоторые строки на странице "Калькулятор" остаются пустыми, на странице "Смета" данные сроки дублируются со значением "Н/Д".
Нужно написать макрос который бы автоматически скрывал или отображал строки с соответствующими значениями, соответственно скрывал если там "Н/Д" или отображал если строка заполнена.
Помогите Христа ради, Добрые Люди:) Заранее огромное спасибо)
З. Ы. Если, что не так написал, или не приведи Господь, по невнимательности нарушил какие правила форума, поправьте меня пожалуйста)
День добрый, уважаемые Форумчане!
Есть файл (прикрепил) из трех станиц: "Смета", "Калькулятор" и "Справочник". Смысл файла в расчете стоимости изготовления продукции и формирования подробной сметы. Значения на странице "Смета" подтягиваются с помощью "ВПР" с двух других страниц, а в связи с тем, что некоторые строки на странице "Калькулятор" остаются пустыми, на странице "Смета" данные сроки дублируются со значением "Н/Д".
Нужно написать макрос который бы автоматически скрывал или отображал строки с соответствующими значениями, соответственно скрывал если там "Н/Д" или отображал если строка заполнена.
Помогите Христа ради, Добрые Люди:) Заранее огромное спасибо)
З. Ы. Если, что не так написал, или не приведи Господь, по невнимательности нарушил какие правила форума, поправьте меня пожалуйста)gsnejniy
пробуйте. на листе *Смета* в столбцах 8:10 кнопа для запуска макроса. макрос скрывает строки, в которых есть ошибка "#Н/Д!", и отображает строки, в которых нет этой ошибки.
пробуйте. на листе *Смета* в столбцах 8:10 кнопа для запуска макроса. макрос скрывает строки, в которых есть ошибка "#Н/Д!", и отображает строки, в которых нет этой ошибки.Karataev
Sub Макрос6() Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden = Not _ Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden End Sub
[/vba] И еще скрывает при активации этого листа
С одной кнопочкой, на которой макрос [vba]
Код
Sub Макрос6() Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden = Not _ Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden End Sub
[/vba] И еще скрывает при активации этого листа_Boroda_
Как раз то, что я и хотел сделать. Не сочтите за наглость, благодарю за то, что сделали и выложили, но не могли бы Вы пошагово объяснить как мне самому сделать такое (какой код, куда и как внести), вариант с одной кнопкой в принципе вполне устроит. И еще, можно ли предусмотреть соответственное изменение порядковых номеров при скрытии строк или это уже нереально?
Заранее спасибо.
Огромное спасибо!
Как раз то, что я и хотел сделать. Не сочтите за наглость, благодарю за то, что сделали и выложили, но не могли бы Вы пошагово объяснить как мне самому сделать такое (какой код, куда и как внести), вариант с одной кнопкой в принципе вполне устроит. И еще, можно ли предусмотреть соответственное изменение порядковых номеров при скрытии строк или это уже нереально?
В файле жмете Альт + F11 - попадаете в VBA. Слева будет окошко Проджектс, в нем ищете свою книгу, топчете Прав Кн Мыши, выбираете Инсерт Модуль. Вставляете в появившееся окно код [vba]
Код
Sub Макрос6() Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden = Not _ Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden End Sub
[/vba] Даблтопчете в Проджекте имя листа Смета и вставляете в появившееся окно код [vba]
Код
Private Sub Worksheet_Activate() Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden = 1 End Sub
[/vba] Рисуете на листе квадрат, ПКМ на него - вставить макрос - эта книга - Макрос6
В файле жмете Альт + F11 - попадаете в VBA. Слева будет окошко Проджектс, в нем ищете свою книгу, топчете Прав Кн Мыши, выбираете Инсерт Модуль. Вставляете в появившееся окно код [vba]
Код
Sub Макрос6() Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden = Not _ Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden End Sub
[/vba] Даблтопчете в Проджекте имя листа Смета и вставляете в появившееся окно код [vba]
Код
Private Sub Worksheet_Activate() Columns("G:G").SpecialCells(xlCellTypeFormulas, 16).Rows.Hidden = 1 End Sub
[/vba] Рисуете на листе квадрат, ПКМ на него - вставить макрос - эта книга - Макрос6_Boroda_
Рисуете на листе квадрат, ПКМ на него - вставить макрос - эта книга - Макрос6
Спасибо большое, все получилось, кроме последнего пункта, выделяю две ячейки, нажимаю правую клавишу мыши - нет такого пункта. На вкладке разработчик в макросах "Макрос6" есть.
Рисуете на листе квадрат, ПКМ на него - вставить макрос - эта книга - Макрос6
Спасибо большое, все получилось, кроме последнего пункта, выделяю две ячейки, нажимаю правую клавишу мыши - нет такого пункта. На вкладке разработчик в макросах "Макрос6" есть.gsnejniy