tuandreeva,

Я не знаю, где вы выигрываете, вводя UDF для столь элементарной задачи, но могу точно сказать, где вы проигрываете:

1) многократная потеря в скорости пересчета (особенно в случае с циклом)

2) никому ненужная летучесть (если пойдете по пути Application.Volatile или Worksheet_Change)

3) невозможность исп-я формулы если у пользователя не включены макросы

Ранее предложенные вам формулы, прекрасно действуют на вашем листе, нужно просто немного больше внимания с вашей стороны, ну и попытаться понять как они работают ;-)

tuandreeva,

1) Файл не содержит написанной вами функции (UDF)
2) Параметры заданные для функции balans_bud(1,1,A15,B15,C15) в ячейках не вяжутся с опубликованным вами ранее кодом balans_bud(d As Date, b As Integer, S As Integer, Ss As String, K As Integer)
3) Непонятен смысл использования констант в первом и втором параметрах
4) У столбцов A, B, C листа 0503130 нет заголовков ни пояснений связи с базой

В целом лишь частично понятна связь параметров функции balans_bud с данными листов base и servis :-O

tuandreeva,

1) см. пример
2) Что-то мне подсказывает, что данные ЭКР на листе 0503130 в столбце [C] не проставлены
3) так и не понял как вы собираетесь использовать даты с листа servis , особенно как вы их привяжете к столбцу [A] листа base