сложение с условием

[Palmer]

Здравствуйте! Если не сложно, помогите!
Необходимо выполнить сложение двух значений в строке до тех пор, пока итог не будет = или > заданного значения и скопировать строки со значениями = заданному, на другой лист.
Заранее благодарю.

[SAS888]

1. Где именно "в строке" находятся исходные значения для суммирования? Подряд, начиная с 1-го стодбца? Или как? Могут ли встречаться не числа? Что в этом случае делать?
2. Кто и как задает значение для сравнения?
3. Какие строки просматривать?
4. Прикрепите пример файла с данными и желаемым результатом.

[Palmer]

Файлик вот. Заданное значение - год (предположим 2010 или любой другой), т.е. срок посадки складываем с периодом замены до тех пор пока значение не станет = заданному году, затем копируем значения совпавшие с заданным на другой лист (выход графика замены)

[SAS888]

Т.е. например, для 2-й строки: значение ячейки "C2" складываем со значением ячейки "D2", затем ищем полученный результат в этой же строке. Если находим - копируем ее на другой лист. Если нет - к имеющемуся результату еще раз прибавляем значение ячейки "D2" и снова ищем. И так для всех строк. Так? Если так, то у Вас в примере потребуется скопировать все строки. Или я не правильно понял?

[Palmer]

Да, вы не совсем верно поняли. Мне необходимо, чтобы значение года посадки суммировалось с периодм до тех пор пока сумма не станет равна заданному году (например 2010). Если в процессе суммирования меется значение заданного года (2010), то строка копируется на другой лист, если значения при суммировании меньше или больше заданного периода, то процедура суммирования по данной строке прекращается.

[Palmer]

В прикрепленном файле я показала ручной механизм того, что хотелось бы видеть.
У меня получилось написать функцию:

' vStart - год посадки
' vEnd - год замены (нашем случае 2010г)
' vStep - периодичность пересадки (замены)
Function getNearest(vStart, vEnd, vStep)

vResult = vStart
While (vResult + vStep) < vEnd
vResult = vResult + vStep
Wend
getNearest = vResult


End Function

но она вычисляет значение < 2010 (заданного периода), а мне надо = заданный период. а копирование нужного итога на другой лист (если честно) я еще не пыталась писать, может что и получится у самой. Но с первой задачей никак не можется.

[Palmer]

Помогите! Пожалуйста!

[SAS888]

' vEnd - год замены (нашем случае 2010г)

Не понятно, откуда мы взяли 2010? Где задается это число?

[Palmer]

год задается в функции оператором vEnd

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

' vStart - год посадки
' vEnd - год замены (нашем случае 2010г)
' vStep - периодичность пересадки (замены)
Function getNearest(vStart, vEnd, vStep)

[SAS888]

Давайте уточним. Если мы делаем функцию, то она сможет вернуть полученное значение в ячейку, в которой она имеется. Не более того. Ни о каком перемещении строк на другой лист речи быть не может. Если же мы делаем макрос, то "год замены" потребуется либо жестко присвоить в коде макроса, либо запрашивать у пользователя при запуске макроса. Определитесь, чего Вы хотите.