Превращение формул в значения на всех листах книги

Вход

Регистрация

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

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

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

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

Превращение формул в значения на всех листах книги

taxi_driver

Дата: Четверг, 25.04.2013, 23:15 | Сообщение № 1

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

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

Сообщений: 34

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

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

добрый всем вечер

есть такая проблемка, как превратить формулы в значения сразу на всех листах книги

даже такой самописный макрос меня вполне устроит

[vba]

Код

Sub Макрос1()
'
' Макрос1 Макрос
'

'
Range("D6:D8").Select
Selection.Copy
Range("K6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K6:K8").Select
Application.CutCopyMode = False
Selection.Copy
Range("D6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F13").Select
Application.CutCopyMode = False
Range("D6").Select

End Sub

[/vba]

но как применить его ко всем листам ???