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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос по замене формул на значения при сохранении книги - Мир MS Excel

Старая форма входа
  • Страница 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
Группа: Друзья
Ранг: Экселист
Сообщений: 7646
Репутация: 1827 ±
Замечаний: 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]наверное


ЮMoney 41001841029809
 
Ответить
Сообщениекак-то так
[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]наверное

Автор - Nic70y
Дата добавления - 02.08.2022 в 16:32
ElenaAC Дата: Среда, 03.08.2022, 14:11 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
как-то так

Огромное спасибо, перенесла в файл, работает! Буду причесывать все остальное. :)
 
Ответить
Сообщение
как-то так

Огромное спасибо, перенесла в файл, работает! Буду причесывать все остальное. :)

Автор - ElenaAC
Дата добавления - 03.08.2022 в 14:11
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос по замене формул на значения при сохранении книги (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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