Добрый день, форумчане!

Есть такая тема - я написал макрос, который заполняет столбец (А) номерами по порядку, причем если во втором столбце (В) строка пустая, то в заполняемом тоже пропускается место, а дальше продолжает нумеровать. Вот как это выглядит:



А вот сам код

авторFunction NextNPP(cellData As Range)
r = cellData.Row - 1
c = Selection.Column

If Len(cellData.Value) > 0 Then
For i = 0 To r
If Len(Cells(r - i, c).Value) > 0 Then
NextNPP = Cells(r - i, c).Value + 1
Exit For
End If
Next
Else
NextNPP = ""
End If
End Function

Этот код я написал в модуле и файл сохранил с расширением xla, типа надстройка, а дальше подключил его в экселе и работаю как со стандартными функциями.
Но вот в чем проблема... Когда я меняю колонку В, то колонка А автоматически естественно не меняется, остается как было.
Что нужно дописать, чтобы колонка А менялась в зависимости от изменений колонки В?

нет

больше того - при фильтрации слетатет... вместо цифр пишет #ЗНАЧ!

Не понял...
sergeyvg- в ячейку A2 формулу =ЕСЛИ(СМЕЩ(A2;0;1)<>"";СМЕЩ(A2;-1;0)+1;СМЕЩ(A2;-1;0))
- в ячейке A2 написать формулу условного форматирования =A2=СМЕЩ(A2;-1;0) и Формат\Шрифт\Цвет "белый"
Два раза про А2 - это очепятка?

С формулами у меня беда ))

Папа ИгорьDemer...Что нужно дописать, чтобы колонка А менялась в зависимости от изменений колонки В?

Ничего не нужно. Посмотрите в файле. Может пригодится.


СПАСИБО ОГРОМНОЕ )))))