Нумерация строк.

[JohnSUN]

Точно! Ну, "С Великими Людьми Это Тоже Иногда Случается..." (с) Д.И.Менделеев

[bsi]

Ну, вот так это выглядит:

Посмотрите правильно ли у меня всё сделано.

[JohnSUN]

Ну, код в документ вставил правильно, а вот с назначением макроса немного промахнулся.

[mikekaganski]

... и не забыть, что в последнем диалоге (Настройка, вкладка События) нужно сохранить это безобразие в документе.

[bsi]

с назначением макроса немного промахнулся

Изменил, но при открытии файла выдаёт ошибку.

[mikekaganski]

Уберите oSheet =

[JohnSUN]

А скриншот с текстом самой ошибки покажешь?
Забавно... У меня твой файл работает, но проявилась странность, которую засёк mikekaganski - после первого изменения событие не обрабатывается

Уберите oSheet =

Ну да, последняя ошибка в программе всегда только предпоследняя

(Странно, что Basic промолчал невзирая на Option Explicit... Не нравится мне это)

[bsi]

Уберите oSheet =

Убрал, но тогда нумерация не работает. Файл во вложении.

А скриншот с текстом самой ошибки покажешь?

Ошибка во вложении.

[economist]

Как тут не вспомнить крылатое: "Если можешь не программировать - не программируй!"

Нумерация строку формулой, автозаполнением, автофильтром - всё это было придумано как раз для подобных случаев.
Городить макрос-листнер - перебор. Продолжу:

Если в А7 - стоит № п/п 1, то простая формула ячейкой ниже и даже хоть до последней строки листа

=ЕСЛИ(B8<>"";A7+1;"")

даст быструю и простую нумерацию строк.

[rami]

bsi, а сколько строк вам нужно нумеровать? Тысячу хватит? Я тут сбацал макрос, но завяз в разных проверках условий, если ограничиться тысячей строк, то выполнение макроса будет ~ 0,1—0,2 секунды, если десять тысяч строк, то ~ пол-секунды и проверки можно наверно опустить.
Макрос должен работать на всех листах или на одном конкретном?

[rami]

Как тут не вспомнить крылатое: "Если можешь не программировать - не программируй!"

Красиво сказано, но не про нас, мы не можем не программировать и поэтому мы здесь

P.S. economist, меня не интересует кто как решает свои проблемы (макросом, формулами или кольтом ), у нас есть хорошая тема про макросы и мы её обсуждаем в разделе Basic. Формулы это из другой оперы.

[bsi]

Тысячу хватит?

Вполне.

Макрос должен работать на всех листах или на одном конкретном?

На одном.

[kompilainenn]

P.S. economist, меня не интересует кто как решает свои проблемы (макросом, формулами или кольтом Крутой ), у нас есть хорошая тема про макросы и мы её обсуждаем в разделе Basic. Формулы это из другой оперы.

однако его решение - это тоже решение, мало ли, вдруг пригодится ТС

[rami]

Пробуйте такой минималистичный вариант, думаю не сильно плохой

[rami]

P.S. economist, меня не интересует кто как решает свои проблемы (макросом, формулами или кольтом  ), у нас есть хорошая тема про макросы и мы её обсуждаем в разделе Basic. Формулы это из другой оперы.

однако его решение - это тоже решение, мало ли, вдруг пригодится ТС

В данном случае не пригодится, ТС (marina) хотела чтобы пустые ячейки в столбце "B" не нумеровались.

economist предложил два решения: формула из ответа 7 =СМЕЩЕНИЕ(B7;-1;0)+1 не подходит, так как нумерует пустые ячейки (в столбце B), а формула из ответа 23 =ЕСЛИ(B8<>"";A7+1;"") не подходит, так как нумерация прерывается пустой ячейкой (в столбце B) и начинается заново.