Вставка формул на все листы

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

Вставка формул на все листы (Макросы/Sub)

inohodec

Дата: Пятница, 02.03.2018, 17:40 | Сообщение № 1

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

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

Сообщений: 41

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

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

Excel 2010

Добрый вечер! Вопрос в следующем как вставить формулы на все листы макросом? В ячейках "C28", "C30", "C32", "C34" прописаны формулы. Как их распространить на все листы в книге в ячейки "C4", "C8", "C21", "C23".

[vba]

Код

Sub VSTAVKA_FORMUL_V_LISTI()
Dim iWS As Worksheet
For Each iWS In ActiveWorkbook.Worksheets
   iWS.Range("C4").Value = Range("C28")
   iWS.Range("C8").Value = Range("C30")
   iWS.Range("C21").Value = Range("C32")
   iWS.Range("C23").Value = Range("C34")
Next iWS
End Sub

[/vba]

К сообщению приложен файл: 6297774.xls (29.5 Kb)

Сообщение отредактировал inohodec - Пятница, 02.03.2018, 17:48

Ответить

inohodec

Дата: Пятница, 02.03.2018, 18:02 | Сообщение № 2

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

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

Сообщений: 41

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

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

Excel 2010

В результате работы макроса вставляются не формулы а знак "#Н/Д".

А как правильно написать надо?

Ответить

abtextime

Дата: Пятница, 02.03.2018, 18:08 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 828

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

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

Excel 2010

Наверное всё ж таки так

[vba]

Код

Sub VSTAVKA_FORMUL_V_LISTI()
Dim iWS As Worksheet
For Each iWS In ActiveWorkbook.Worksheets
iWS.Range("C4").Formula = Range("C28").Formula
iWS.Range("C8").Formula = Range("C30").Formula
iWS.Range("C21").Formula = Range("C32").Formula
iWS.Range("C23").Formula = Range("C34").Formula
Next iWS
End Sub

[/vba]

Ответить

RAN

Дата: Пятница, 02.03.2018, 18:19 | Сообщение № 4

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

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

Сообщений: 5660

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

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

2010

для того, чтобы что-то куда-то вставлять необходимо, как минимум
1) чтобы было куда вставлять
20 чтобы было что вставлять

Быть или не быть, вот в чем загвоздка!

Ответить

inohodec

Дата: Пятница, 02.03.2018, 22:52 | Сообщение № 5

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

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

Сообщений: 41

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

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

Excel 2010

Цитата abtextime, 02.03.2018 в 18:08, в сообщении № 3 ()

Наверное всё ж таки так

Sub VSTAVKA_FORMUL_V_LISTI()
Dim iWS As Worksheet
For Each iWS In ActiveWorkbook.Worksheets
iWS.Range("C4").Formula = Range("C28").Formula
iWS.Range("C8").Formula = Range("C30").Formula
iWS.Range("C21").Formula = Range("C32").Formula
iWS.Range("C23").Formula = Range("C34").Formula
Next iWS
End Sub

abtextime огромное Вам спасибо!!!! hands