Нумерация таблици в определенном диапазоне.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Нумерация таблици в определенном диапазоне. (Макросы/Sub)

ktpnz

Дата: Пятница, 22.09.2023, 14:55 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 1 ±

Замечаний: 0% ±

Добрый день, форумчане!
Есть таблица и есть макрос для нумерации при заполнении. Работает хорошо, но мне надо чтобы он отрабатывал в строгом диапазоне. В прилагаемом файле при заполнении B6:B13 нумерация должна происходить только в A6:A13. А сейчас опускается ниже A13.

К сообщению приложен файл: numeracija_diapazona.xlsm (16.3 Kb)

Сообщение отредактировал ktpnz - Пятница, 22.09.2023, 15:27

Ответить

i691198

Дата: Пятница, 22.09.2023, 20:42 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 244

Репутация: 90 ±

Замечаний: 0% ±

ktpnz, Здравствуйте.

Цитата ktpnz, 22.09.2023 в 14:55, в сообщении № 1 (

)

мне надо чтобы он отрабатывал в строгом диапазоне

Если диапазон всегда точно определен, то макрос не нужен , в ячейку A6 записать формулу

Код

=ЕСЛИ(B6<>"";СТРОКА(A1);"")

и протянуть до A13.

Ответить

ВладимирС

Дата: Суббота, 23.09.2023, 09:21 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

2016

i691198, Добрый день! Спасибо, что ответили. У меня, в данный момент, и организованно формулой. Но мне хотелось бы макросом. Или подправить тот, что в примере или посоветовать новый.

Владимир

Ответить

Pelena

Дата: Суббота, 23.09.2023, 09:52 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19281

Репутация: 4446 ±

Замечаний: ±

Excel 365 & Mac Excel

Видимо надо строку
[vba]

Код

For Each c In Range([B6], Cells(Rows.Count, 2).End(xlUp))

[/vba]
заменить на
[vba]

Код

For Each c In Range("B6:B13")

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

ВладимирС

Дата: Суббота, 23.09.2023, 18:05 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

2016

Добрый день! Pelena, Если заменить номеруется все, не зависимо оттого,что в Range("B6:B13"). Необходимо, что была связь.

Владимир

Ответить

i691198

Дата: Воскресенье, 24.09.2023, 09:56 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 244

Репутация: 90 ±

Замечаний: 0% ±

Здравствуйте. Строку [vba]

Код

If InStr(1, c.Value, "_") = 0

[/vba] поменять на [vba]

Код

If c <> "" Then

[/vba]

Ответить

ВладимирС

Дата: Воскресенье, 24.09.2023, 15:51 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

2016

Добрый день! Благодарю Pelena, и Вас i691198, . Заменил обе строки из Сообщения 4 и Сообщения 6. Все заработало Спасибо.
[vba]

Код

Sub Нумепация_С_Исключением() ' нумерация
    Dim i&, c As Range
For Each c In Range("B6:B13")
'    For Each c In Range([B6], Cells(Rows.Count, 2).End(xlUp))
If c <> "" Then
'        If InStr(1, c.Value, "_") = 0 Then 'если убрать "_" то будет нумеровать все подряд
            i = i + 1
            c.Offset(, -1) = i
        End If
    Next
End Sub

[/vba]

Владимир

Ответить

Нумерация таблици в определенном диапазоне. (Макросы/Sub)

Страница 1 из 1
1