Новости:

Форум на данный момент в стадии обновления. Если у Вас возникли проблемы со входом в свою учетную запись - просьба писать на email: info@excel-vba.ru

Главное меню

Автонумерация в VBA

Автор bsi, 03.12.2016, 11:47:33

« назад - далее »

A-Michael

В общем всё-таки лучше делать Save, на всякий случай.
А случай таки разный бывает... :)
Я - не волшебник, я ещё только учусь...

bsi

Спасибо, With ActiveSheet.UsedRange: End With помогло исправить ситуацию. Подскажите, что еще надо добавить в код, чтобы при удалении данных в столбце "В" в столбце "А" этой же строки нумерация пропадала и происходил пересчет нумерации в строках, где есть данные в столбце "В". Всем Спасибо. Результат предыдущей работы в Книге2.

A-Michael

Пустые строки остаются?
Я - не волшебник, я ещё только учусь...

bsi

#33
Короче, вот самый лучший вариант для меня.
Application.EnableEvents = False
For Each oCell In Range([B6], Cells(ActiveSheet.UsedRange.Rows.Count, "B")).Cells
    If Not IsEmpty(oCell) Then
        iCount = iCount + 1
        oCell.Previous = iCount
    Else: oCell.Previous.Clear
    End If
Next
Application.EnableEvents = True

- при удалении строки внутри заполненного диапазона пересчет нумерации происходит
- если нет данных в столбце "В" в какой-то из строк внутри заполненного диапазона, пересчет нумерации тоже происходит
Эти условия были в моем первом сообщении, где все это было сделано в VBA, но только формулой.
Окончательный результат в приложенном файле.
Всем спасибо. Удачного дня.

Яндекс.Метрика Рейтинг@Mail.ru