Добрый вечер! Вопрос в следующем как вставить формулы на все листы макросом? В ячейках "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]
Добрый вечер! Вопрос в следующем как вставить формулы на все листы макросом? В ячейках "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
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]
Наверное всё ж таки так
[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
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 огромное Вам спасибо!!!! Я перепробовал всё что знал. И такой вариант тоже пробовал. Вот только сейчас он заработал
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 огромное Вам спасибо!!!! Я перепробовал всё что знал. И такой вариант тоже пробовал. Вот только сейчас он заработал inohodec