SumIfs

[Zhenya Yakubov]

Добрый день многоуважаемые форумчане. В очередной раз сталкиваюсь с элементарной проблемой, а понять в чём ошибка не могу. ПОМОГИТЕ пожалуйста. Есть строчка в коде VBA, суть её СУММЕСЛИМН, но при просчёте везде выдаёт 0.

Предположение: возможно синтаксис.

sr_pr = Application.SumIfs(Range(Cells(i, lastcolumn - c + 1), Cells(i, lastcolumn)), Range(Cells(i, lastcolumn - c + 1), Cells(i, lastcolumn)), " <> " & PIK, Range(Cells(i, lastcolumn - c + 1), Cells(i, lastcolumn)), "<>0")


Range(Cells(i, lastcolumn - c + 1), Cells(i, lastcolumn) это дипазон
PIK это максимальное значение в строчке

т.е. СУММЕСЛИМН <> PIK и <>0

[IgorGO]

а зачем второе условие? зачем проверять на <>0 ?
те, которые =0 можно смело собирать в общую сумму

проверте чтобы
с было < lastcolumn + 1
а i > 0

[Zhenya Yakubov]

к сожалению не получается, может глянете файл

[IgorGO]

исправте
, " <> " & PIK,
на
, "<>" & PIK,

а лучше вместо этих двух строк:

sr_pr = Application.SumIfs(Range(Cells(i, lastcolumn - c + 1), Cells(i, lastcolumn)), Range(Cells(i, lastcolumn - c + 1), Cells(i, lastcolumn)), "<>" & PIK, Range(Cells(i, lastcolumn - c + 1), Cells(i, lastcolumn)), "<>0")
Cells(i, lastcolumn + 2) = sr_pr

напишите такие:

Dim rg as Range
Set rg = Range(Cells(i, (lastcolumn + 1 - c)), Cells(i, lastcolumn))
Cells(i, lastcolumn + 2) = Application.SumIfs(rg, rg, "<>" & PIK, rg, ">0")

и... второе условие там лишнее, но это Вам виднее

[Zhenya Yakubov]

Спасибо за исправления.

P.S. второе условие нужно если значения отрицательные, они не интересуют