Есть макрос на создание новой книги. Его нужно немного изменить под условие. Подробно: - Есть книга и в этой книги есть лист "Смета" и есть кнопка на другом листе "создать новую смету". - Нажимая на этот макрос, создается новая книга и лист "Смета" копируется в эту книгу, сохраняет и закрывает. - Название новой книги указывается в самом макросе, т.е. всегда под одним названием.
А мне нужно так, чтобы название новой книги бралось с ячейки (в примере видно - ячейка E7)
Пример прикрепляю.
Жду помощи.
Есть макрос на создание новой книги. Его нужно немного изменить под условие. Подробно: - Есть книга и в этой книги есть лист "Смета" и есть кнопка на другом листе "создать новую смету". - Нажимая на этот макрос, создается новая книга и лист "Смета" копируется в эту книгу, сохраняет и закрывает. - Название новой книги указывается в самом макросе, т.е. всегда под одним названием.
А мне нужно так, чтобы название новой книги бралось с ячейки (в примере видно - ячейка E7)
А если эту кнопку поставить на тот лист который копируется (лист "Смета"), то как прописать макрос, чтобы он все делал то же самое, за исключением копирования данной кнопки. Проще говоря - без этой кнопки.
Прикрепил файл
ShAM, Karataev, Благодарю за скорую помощь.
А если эту кнопку поставить на тот лист который копируется (лист "Смета"), то как прописать макрос, чтобы он все делал то же самое, за исключением копирования данной кнопки. Проще говоря - без этой кнопки.
[/vba] Но думаю что лучше кнопку и список выбора сметы разместить вверху сметы. Кнопку привязать к строкам и при копировании сметы удалять верхнею строку или строки. Удалится и список и кнопка вызова макроса.
[/vba] Но думаю что лучше кнопку и список выбора сметы разместить вверху сметы. Кнопку привязать к строкам и при копировании сметы удалять верхнею строку или строки. Удалится и список и кнопка вызова макроса.gling
ЯД-41001506838083
Сообщение отредактировал gling - Суббота, 08.08.2015, 11:26
Sub Макрос1() ' отключить копирование объектов Application.CopyObjectsWithCells = False ' включить копирование объектов Application.CopyObjectsWithCells = True End Sub
[/vba]
[vba]
Код
Sub Макрос1() ' отключить копирование объектов Application.CopyObjectsWithCells = False ' включить копирование объектов Application.CopyObjectsWithCells = True End Sub