Макрос по замене формул на значения при сохранении книги

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос по замене формул на значения при сохранении книги (Макросы/Sub)

ElenaAC

Дата: Вторник, 02.08.2022, 16:08 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2010

Здравствуйте, уважаемые форумчане. Помогите, пожалуйста, решить задачу.
Есть файл с большим количеством листов, данные собираются из других файлом и преобразуются в нужный формат. Руководство хочет видеть только "выжимку". На данный момент приходится после добавления новых данных создавать новую книгу и через "копировать/вставить значения" переносить данные.
Хотелось бы - после нажатия "волшебной кнопки" файл сохраняется в ту же папку, что и рабочий с именем "рабочее + текущая дата", в нем остаются только первые три листа (в примере они с синей заливкой) и данные на этих листах представлены значениями, а не формулами (т.к. связи будут потеряны).
Т.е. имеем рабочий файл "Customer debt by terms" с семью листами, после запуска макроса рабочий файл остается без изменений и появляется новый файл под именем "Customer debt by terms 02082022", в котором будут только листы USD, RUB, Poxipol и на этих листах будут только значения. (в примере я все лишнее стерла, на самом деле там везде формулы).
Видела в инете похожие вопросы, но собрать макрос из разных кусков и переписать под свои данные мозгов не хватает.
Буду признательна, если кто-то поможет.
Файл-пример прилагаю.

К сообщению приложен файл: Customer_debt_b.xlsx (44.1 Kb)

Ответить

СообщениеЗдравствуйте, уважаемые форумчане. Помогите, пожалуйста, решить задачу.
Есть файл с большим количеством листов, данные собираются из других файлом и преобразуются в нужный формат. Руководство хочет видеть только "выжимку". На данный момент приходится после добавления новых данных создавать новую книгу и через "копировать/вставить значения" переносить данные.
Хотелось бы - после нажатия "волшебной кнопки" файл сохраняется в ту же папку, что и рабочий с именем "рабочее + текущая дата", в нем остаются только первые три листа (в примере они с синей заливкой) и данные на этих листах представлены значениями, а не формулами (т.к. связи будут потеряны).
Т.е. имеем рабочий файл "Customer debt by terms" с семью листами, после запуска макроса рабочий файл остается без изменений и появляется новый файл под именем "Customer debt by terms 02082022", в котором будут только листы USD, RUB, Poxipol и на этих листах будут только значения. (в примере я все лишнее стерла, на самом деле там везде формулы).
Видела в инете похожие вопросы, но собрать макрос из разных кусков и переписать под свои данные мозгов не хватает.
Буду признательна, если кто-то поможет.
Файл-пример прилагаю.

Автор - ElenaAC
Дата добавления - 02.08.2022 в 16:08

Nic70y

Дата: Вторник, 02.08.2022, 16:32 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8754

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

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

Excel 2010

как-то так
[vba]

Код

Sub u_700()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Sheets("USD").UsedRange = Sheets("USD").UsedRange.Value
    Sheets(" RUB").UsedRange = Sheets(" RUB").UsedRange.Value
    Sheets(" Poxipol").UsedRange = Sheets(" Poxipol").UsedRange.Value
    Sheets(Array("PHX", "Over Due", "Debtors", "RUB draft")).Delete
    a = ThisWorkbook.Path
    b = ThisWorkbook.Name
    c = Left(b, Len(b) - 5) & " " & Format(Date, "ddmmyyyy")
    ThisWorkbook.SaveAs Filename:=a & "\" & c & ".xlsx", FileFormat:=51
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

[/vba]наверное