Макрос

[Vavo]

Здрасте всем, есть вот такое вот непричудливое задание: имеется столбец чисел неизвестной заранее высоты. Найти сумму тех элементов столбца, значения которых находятся в заданном диапазоне [X1, X2]. Числа X1 и X2 записаны в ячейки B1 и B2 соответственно. Результат записать в ячейку B3.
я сделал этот макрос с помщью встроенной функции =суммеслимн()....но проблема втом что если диапазон указывать числами все работает, а если диапазон укажу ячейки которые нужны он мне выдает ошибку
вот что напрогал
ActiveCell.FormulaR1C1 = _
"=SUMIFS(R[-2]C[-1]:R[13]C[-1],R[-2]C[-1]:R[13]C[-1],"">1"",R[-2]C[-1]:R[13]C[-1],""<10"")"

Range("B3").Select
Selection.ClearContents

[AChrist]

Добры.
B1 должно быть меньше B2

Sub sum()
Dim x, y, tot As Integer
x = Cells(1, 2)
y = Cells(2, 2)
tot = 0
While x <> y + 1
tot = tot + Cells(x, 1)
x = x + 1
Wend
Cells(3, 2) = tot
End Sub

[SAS888]

В данном случае, по-моему, наиболее рационально применить пользовательскую функцию. Например, такую:

Function MySum(Диапазон As Range, От As Range, До As Range) As Double
    MySum = Application.SumIf(Диапазон, ">" & От) - Application.SumIf(Диапазон, ">=" & До)
End Function

Пример во вложении.