Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос на сохранение выделенных листов в отдельные книги - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Макрос на сохранение выделенных листов в отдельные книги
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
 
Ответить
СообщениеПомогите поправить макрос. Нужно чтобы при создании выделенных листов, книгам задавалось имя ячейки 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]

Автор - labm-12
Дата добавления - 28.08.2023 в 11:00
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, Здравствуйте. Это из серии прошлой темы. Ловите файл.

Автор - MikeVol
Дата добавления - 28.08.2023 в 17:11
labm-12 Дата: Понедельник, 28.08.2023, 20:14 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

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

Автор - labm-12
Дата добавления - 28.08.2023 в 20:14
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
 
Ответить
Сообщениеlabm-12, у Вас в коде это уже есть:
[vba]
Код
For Each cell In ActiveSheet.UsedRange.Cells
cell.Formula = cell.Value
[/vba]

Автор - Serge_007
Дата добавления - 28.08.2023 в 20:55
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, Не так всё просто у вас в файле будет. Обратите внимание на ячейки начиная с: 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:06
labm-12 Дата: Вторник, 29.08.2023, 13:08 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

2016
MikeVol, вставляя код выше ничего не срабатывает. Подскажите как из столбцов 17,18,19 копировать формулы а не значения? и сохранять лист со значениями. Извиняюсь, совсем не силен в VBA.
К сообщению приложен файл: 5209867.xlsm (69.3 Kb)
 
Ответить
СообщениеMikeVol, вставляя код выше ничего не срабатывает. Подскажите как из столбцов 17,18,19 копировать формулы а не значения? и сохранять лист со значениями. Извиняюсь, совсем не силен в VBA.

Автор - labm-12
Дата добавления - 29.08.2023 в 13:08
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, Здравствуйте. Не понял куда надо вставлять 19-й столбец. Ну а остальное в файле, я там подробно написал что к чему. Пользуйтесь! Удачи!

Автор - MikeVol
Дата добавления - 29.08.2023 в 15:53
labm-12 Дата: Вторник, 29.08.2023, 16:49 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

2016
MikeVol, спасибо огромное.
 
Ответить
СообщениеMikeVol, спасибо огромное.

Автор - labm-12
Дата добавления - 29.08.2023 в 16:49
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!