Сложить без промежуточных значений

[valerij]

Мона Сложить без промежуточных значений в Cells(x.Row, 17), ввод данных в Cells(x.Row, 2)?
Нужно, что бы было так
[B41].Offset(dat * 51) = Сумма Cells(x.Row, 2) * Cells(x.Row, 16)

Сейчас работает так:

Cells(x.Row, 17) = Cells(x.Row, 2) * Cells(x.Row, 16)
[B41].Offset(dat * 51) = Application.Sum([q3:q40].Offset(dat * 51))

Прлучается, что в каждой дате(dat = 0 до 30) заполняется диапазон q3:q40 промежуточными данными, а они мне не нужны, нужна только сумма этого диапазона.

Что бы более понятней
Промежут. результат Н-Н
h3 = d3*e3
h4 = d4*e4
b41 = h3 + h4
Без промеж. результата
b41 = d3*e3 + d4*e4

[kitten2]

А цикл использовать не пробовали? разместите пример

[SAS888]

Можно и без цикла, только вот вопрос как-то "размыт".
Если я правильно понял, то требуется это:

[B41] = Application.SumProduct([E3:E40], [D3:D40])

[valerij]

Сообщение от SAS888

Если я правильно понял,

Не не правильно, вот реальный пример
Вводим данные в ст. В, например в В34 = 10, В35 = 10 получили в Q34 = 8.1, Q35 = 7.7, а в В44 получили сумму Q34:Q35 = 15.8.
??????????
Так мона получить эту сумму, без записи в Q-Q, без цикла ??
Через переменную у меня не получается

[SAS888]

А по-моему, правильно. Посмотрите вложение. Комментарий в коде.

[valerij]

Сообщение от SAS888

А по-моему, правильно.

Сереж, то я еще не проснулся, конечно правильно.
Спасибо!!!!