Добрый день уважаемые!
Вновь прошу вашей помощи.
Пытаюсь сваять макрос который будет копировать определенные листы в новую книгу и будет удалять из них формулы и макросы (макросами происходит заполнение некоторых ячеек данными.
Код прилагаю ниже (сразу скажу что пишу не сам, а беру по кускам из сети)
Так вот этот код работает только на половину, а именно удаляет только формулы.
А ячейки которые заполняются макросами получают значение Н.Д и после выполнения макроса просит указать фаил для обновления данных.
Как реализовать мне копирование в новую книгу с удалением и формул и макросов? Что бы были только значения как если бы я отправил этот лист на печать?
Заранее благодарю!
Вновь прошу вашей помощи.
Пытаюсь сваять макрос который будет копировать определенные листы в новую книгу и будет удалять из них формулы и макросы (макросами происходит заполнение некоторых ячеек данными.
Код прилагаю ниже (сразу скажу что пишу не сам, а беру по кускам из сети)
| Код |
|---|
Sheets(Array("БДДС Факт", "БДДС Факт расшифровка", "БДДС План", "БДДС План расшифровка")).copy
Set NewWb = ActiveWorkbook
For Each wsSh In NewWb.Worksheets
With wsSh
.Visible = True
.UsedRange.Value = .UsedRange.Value
.Cells.Locked = True
.Cells.FormulaHidden = True
.EnableSelection = xlNoSelection
End With
Next
|
А ячейки которые заполняются макросами получают значение Н.Д и после выполнения макроса просит указать фаил для обновления данных.
Как реализовать мне копирование в новую книгу с удалением и формул и макросов? Что бы были только значения как если бы я отправил этот лист на печать?
Заранее благодарю!
