Создание новых книг.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Создание новых книг. (Макросы/Sub)

S57419

Дата: Среда, 28.09.2022, 12:48 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Добрый день! помогите пожалуйста дилетанту. Мне нужен скрипт который я привяжу к кнопке. Суть проблемы. У меня есть книга состоящая из 3 листов (1,2,3). В первом листе у меня будет кнопка и ячейка ввода - например А1. Я набираю в ячейку любое значение, нажимаю на кнопку. и у меня создается две новые книги. В 1ую новую книгу копируется лист2 первоначальной книги. Во 2ую новую книгу копируется лист3 первоначальной книги. Название этих книг соответствует введенному значению ячейки А1 первоначальной книги. Но две новые книги не могут иметь одинаковые названия. Можно программно пропистать например первая книга через тире 1, а вторая через тире 2. Спасибо!

Ответить

mgt

Дата: Среда, 28.09.2022, 15:48 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 102

Репутация: 26 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

If MsgBox("Сохранить 2й и 3й лист в отдельные книги?", vbYesNo + vbQuestion + vbDefaultButton2, "Подтверждение") = vbNo Then Exit Sub
Application.ScreenUpdating = False
Dim adr1$, adr2$, nam1$, nam2$
Application.DisplayAlerts = False
nam1 = Sheets(1).Range("a1").Text & " - 1 "
nam2 = Sheets(1).Range("a1").Text & " - 2 "
adr1 = ThisWorkbook.Path & "\" & nam1
    Sheets(2).Select
    Sheets(2).Copy
    ActiveWorkbook.SaveAs Filename:=adr1, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
adr2 = ThisWorkbook.Path & "\" & nam2
    Sheets(3).Select
    Sheets(3).Copy
    ActiveWorkbook.SaveAs Filename:=adr2, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
Sheets(1).Select
Application.DisplayAlerts = True
Application.ScreenUpdating = True

[/vba]

Ответить

S57419

Дата: Среда, 28.09.2022, 16:12 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Спасибо! практически правильно))

Ответить

Создание новых книг. (Макросы/Sub)

Страница 1 из 1
1