Страницы: 1
RSS
Добавить перехват ошибок в формулу, написанную в макросе
 
Добрый день уважаемые форумчане,

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

Есть исходная формула на VBA :
Код
iLastRow = Cells(Rows.Count, 4).End(xlUp).Row
Range("K3").Formula = "=СУММЦВЕТ(K15:K" & iLastRow & "," & "I3" & ")"  

необходимо ее немного модифицировать и добавить перехват ошибок, чтобы получилось следующее

Код
Range("K3").Formula = "=IFERROR(IF(R[11]C="""","""",СУММЦВЕТ(R[12]C:R[94]C,RC[-2])),"""")"

Но никак не могу понять, где нужно поставить амперсант и кавычки

Изменил ее следующим образом
Код
Range("K3").Formula = "=IFERROR(IF(R[11]C="""","""",СУММЦВЕТ(K15:K" & iLastRow & "," & "I3" & ")),"""")"

но в результате основные переменные в формуле теперь заключены в кавычки  
 
Да у Вас вообще каша какая-то. Вы смешали стиль ссылок R1C1 со стилем A1
Может так?
Код
Range("K3").FormulaR1C1 = "=IFERROR(IF(R[11]C="""","""",СУММЦВЕТ(R[12]C:R[94]C,RC[-2])),"""")"
Согласие есть продукт при полном непротивлении сторон
 
Sanja, я понимаю, но эта формула часть кода макроса и диапазон суммцвет каждый раз разный и поэтому требуется ввод переменой ilastraw  
 
Код
Range("K3").Formula = "=IFERROR(IF(R[11]C="""","""",СУММЦВЕТ(R[12]C:R" & iLastRow & "C,RC[-2])),"""")"
 
RAN, спасибо ! работает !
Страницы: 1
Наверх