Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
В формуле менять названия листов
 
1. =СУМ(Лист1!А1+Лист1!А1)
2. =СУМ(Лист2!А1+Лист2!А2)
................................................
Н.=СУМ(ЛистН!А1+ЛистН!А2)
Добавление условий не изменяя формул., Формулы стоят, нужно добавить к ним условие вида "Еслиошибка("моя формула; 0")
 
Формулы стоят, нужно добавить к ним условие вида "Еслиошибка("моя формула; 0" ;) . Вот что есть.
Код
Sub Test()
Dim Rng As Range, rCell As Range
 Set Rng = Range("C1:C16"
 For Each rCell In Rng
 rCell.Activate
 ActiveCell.FormulaR1C1 = "=IFERROR(* / *,0)"
 Next
End Sub
Страницы: 1
Наверх