Макрос на сохранение выделенных листов в отдельные книги

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

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

Макрос на сохранение выделенных листов в отдельные книги (Макросы/Sub)

labm-12

Дата: Понедельник, 28.08.2023, 11:00 | Сообщение № 1

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

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

Сообщений: 6

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

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

2016

Помогите поправить макрос. Нужно чтобы при создании выделенных листов, книгам задавалось имя ячейки AG6 и сохраняла файл в формате .XLSX

[vba]

Код

Sub SplitSheets3()
Dim AW As Window
Set AW = ActiveWindow
For Each s In AW.SelectedSheets
Set TempWindow = AW.NewWindow '
s.Copy '
ActiveWindow.SaveAs AW.Path & "\" & Range("AG6") & ".xlsx" '
For Each cell In ActiveSheet.UsedRange.Cells
cell.Formula = cell.Value
Next cell

TempWindow.Close '
Next
End Sub

[/vba]

К сообщению приложен файл: itogovyj_variant.xlsm (101.2 Kb)

Сообщение отредактировал Serge_007 - Понедельник, 28.08.2023, 11:05

Ответить

MikeVol

Дата: Понедельник, 28.08.2023, 17:11 | Сообщение № 2

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

Ранг: Обитатель

Сообщений: 378

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

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

MSO LTSC 2021 EN

labm-12, Здравствуйте. Это из серии прошлой темы. Ловите файл.

К сообщению приложен файл: 28_08_2023_exw_makros_na_sokhr.xlsm (63.1 Kb)

Ученик.
Одесса - Украина

Ответить

labm-12

Дата: Понедельник, 28.08.2023, 20:14 | Сообщение № 3

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

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

Сообщений: 6

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

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

2016

MikeVol, спасибо. Можно ли еще сделать так, что бы в создаваемых листах были только значения(без формул)?

Ответить

Serge_007

Дата: Понедельник, 28.08.2023, 20:55 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

labm-12, у Вас в коде это уже есть:
[vba]

Код

For Each cell In ActiveSheet.UsedRange.Cells
cell.Formula = cell.Value

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

MikeVol

Дата: Понедельник, 28.08.2023, 22:06 | Сообщение № 5

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

Ранг: Обитатель

Сообщений: 378

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

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

MSO LTSC 2021 EN

labm-12, Не так всё просто у вас в файле будет. Обратите внимание на ячейки начиная с: AS95, AY95, AS152 и AY152
В них там расчёты должны происходить связанные с ячейками: AK95, AK97, AK99, AK152, AK154, AK156 на Листе template
Но так вы в коде из другого Листа не вносите данные в них то в первых указанных ячейках (AS95, AY95, AS152 и AY152) будет ошибка. Н а так если вам сильно надо то допишите следуйщий кусок кода между:
[vba]

Код

                .Range("AL167").Value = base(i, 13)    ' Вставить начиная отсюда
            End With

            ' Удалить все формулы на листе
            With newWorkbook.Sheets(1).Cells
                .Copy
                .PasteSpecial xlPasteValues
                Application.CutCopyMode = False
            End With

            Application.DisplayAlerts = False   ' Заканчивая данной строкой в коде

[/vba]
Я думаю вы разберётесь сами. Если что то пишите сюда, помогу дальше вам. Удачи.

Ученик.
Одесса - Украина

Сообщение отредактировал MikeVol - Понедельник, 28.08.2023, 22:07

Ответить

labm-12

Дата: Вторник, 29.08.2023, 13:08 | Сообщение № 6

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

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

Сообщений: 6

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

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

2016

MikeVol, вставляя код выше ничего не срабатывает. Подскажите как из столбцов 17,18,19 копировать формулы а не значения? и сохранять лист со значениями. Извиняюсь, совсем не силен в VBA.

К сообщению приложен файл: 5209867.xlsm (69.3 Kb)

Ответить

MikeVol

Дата: Вторник, 29.08.2023, 15:53 | Сообщение № 7

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

Ранг: Обитатель

Сообщений: 378

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

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

MSO LTSC 2021 EN

labm-12, Здравствуйте. Не понял куда надо вставлять 19-й столбец. Ну а остальное в файле, я там подробно написал что к чему. Пользуйтесь! Удачи!

К сообщению приложен файл: 29_08_2023_exw_makros_na_sokhr.xlsm (67.6 Kb)

Ученик.
Одесса - Украина

Ответить

labm-12

Дата: Вторник, 29.08.2023, 16:49 | Сообщение № 8

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

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

Сообщений: 6

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

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

2016

MikeVol, спасибо огромное.

Ответить

Макрос на сохранение выделенных листов в отдельные книги (Макросы/Sub)

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