Есть таблица с формулами, значения подгружаются из других таблиц, файлов и т.д. Конечный файл содержит один лист с формулами. Для отправки по почте необходим только этот лист. Только значения.
При копировании в другой файл (лист) "только значения" , форматирование съезжает, постоянно приходится править. Не вариант. Пробовала разные способы копирования, в итоге все равно приходится много править , на печать выходит некорректно.
Хотела просто через "Сохранить как" или перевести копию этого файла, так чтобы сохранились значения ячеек без всех связей и формул. Никак не могу найти в справке как же заменить сразу во всем файле все формулы на значения.
Есть таблица с формулами, значения подгружаются из других таблиц, файлов и т.д. Конечный файл содержит один лист с формулами. Для отправки по почте необходим только этот лист. Только значения.
При копировании в другой файл (лист) "только значения" , форматирование съезжает, постоянно приходится править. Не вариант. Пробовала разные способы копирования, в итоге все равно приходится много править , на печать выходит некорректно.
Хотела просто через "Сохранить как" или перевести копию этого файла, так чтобы сохранились значения ячеек без всех связей и формул. Никак не могу найти в справке как же заменить сразу во всем файле все формулы на значения.tati_2000
Sub shValues() Application.ScreenUpdating = False ActiveSheet.Copy After:=sheets(sheets.Count) Cells.Copy Cells.PasteSpecial Paste:=xlPasteValues ActiveSheet.Move Application.ScreenUpdating = True End Sub
[/vba]
Запускать на том листе, который нужно отправлять. Если подойдет - можно будет допилить переименование и сохранение. Пока не стал с этим заморачиваться.
[vba]
Код
Sub shValues() Application.ScreenUpdating = False ActiveSheet.Copy After:=sheets(sheets.Count) Cells.Copy Cells.PasteSpecial Paste:=xlPasteValues ActiveSheet.Move Application.ScreenUpdating = True End Sub
[/vba]
Запускать на том листе, который нужно отправлять. Если подойдет - можно будет допилить переименование и сохранение. Пока не стал с этим заморачиваться.SkyPro
skypro1111@gmail.com
Сообщение отредактировал SkyPro - Четверг, 07.11.2013, 12:54
тогда форматирование съезжает, каждый день по новой править формат....
Значит не так делаете.
Сергей [vba]
Код
Sub shValues() Application.ScreenUpdating = False ActiveSheet.Copy ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value ActiveWorkbook.Save Application.ScreenUpdating = True End Sub
тогда форматирование съезжает, каждый день по новой править формат....
Значит не так делаете.
Сергей [vba]
Код
Sub shValues() Application.ScreenUpdating = False ActiveSheet.Copy ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value ActiveWorkbook.Save Application.ScreenUpdating = True End Sub
Спасибо. То что надо. Жаль только по диапазонам ячеек (хотя конечно это целесообразней) , всем файлом нельзя. Но это в разы лучше чем форматировать каждый раз. Очень благодарна.
Спасибо. То что надо. Жаль только по диапазонам ячеек (хотя конечно это целесообразней) , всем файлом нельзя. Но это в разы лучше чем форматировать каждый раз. Очень благодарна.tati_2000