Функция СУММЕСЛИ

[Евгений К.]

Добрый вечер.
Мне необходимо переделать формулу в VBA.

На данный момент код выглядит так:


Dim li As Long, lFirstRow As Long
lFirstRow = 3
Application.ScreenUpdating = False
For li = 3 To Cells(Rows.Count, 10).End(xlUp).Row + 1
If Cells(li, 10) = "" Then
Cells(li, 20).FormulaR1C1 = "=SUMIF(R" & lFirstRow & "C8:R[-1]C8,""продажа"",R" & lFirstRow & "C20:R[-1]C20)"
Cells(li, 25).FormulaR1C1 = "=RC27/(RC19+RC20)"
lFirstRow = li
End If
Next li
Application.ScreenUpdating = True

Мне необходимо из "=SUMIF(R" & lFirstRow & "C8:R[-1]C8,""продажа"",R" & lFirstRow & "C20:R[-1]C20)" сделать, чтобы, помимо критерия "продажа" в столбце "H", учитывался второй критерий "не равно 0" в столбце "X".
Расчет ведется в столбце "Т".


Т.о. необоходимо добавить новый диапазон и для него новый критерий.

Буду очень блгодарен за готовый код или очень доходчевое объяснение

[Евгений К.]

переписал немного по-другому

Вместо: Cells(li, 20).FormulaR1C1 = "=SUMIF(R" & lFirstRow & "C8:R[-1]C8,""продажа"",R" & lFirstRow & "C20:R[-1]C20)"

Сделал: Cells(li, 20).FormulaR1C1 = "=SUMPRODUCT(R" & lFirstRow & "C8:R[-1]C8=""Продажа"")*(R" & lFirstRow & "C24:R[-1]C24<>0)*(R" & lFirstRow & "C20:R[-1]C20))"

Но не фурычит подскажите где моя ошибка... всю строку в целом выделяет желтым цветом

[IgorGO]

Надо: Cells(li, 20).FormulaR1C1 = "=SUMPRODUCT((R" & lFirstRow & "C8:R[-1]C8=""Продажа"")*(R" & lFirstRow & "C24:R[-1]C24<>0)*(R" & lFirstRow & "C20:R[-1]C20))"
Как сказано у классиков: "Тщательнее надо..."

[Евгений К.]

Благодарствую работает