Как в VBA увеличивать последующие ячейки столбца

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как в VBA увеличивать последующие ячейки столбца (Макросы/Sub)

webliveby

Дата: Четверг, 08.02.2024, 20:25 | Сообщение № 1

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

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

Сообщений: 1

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

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

2019

Как в VBA увеличивать последующие ячейки столбца на 1, Функции VBA Excel для автоматического заполнения соседнего диапазона ячеек датами с частью последовательной нумерации
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column = 1 And Target.Row > 1 And Not IsEmpty(Target.Value) And Target.Offset(0, 1).Value = "" Then _
        Target.Offset(0, 1).Value = Format(Date, "yymm") + (Application.Max(Range("B2:B100")) + 1)

End Sub

[/vba]
При добавлении числа в ячейку рядом автоматически формируется номер, состоящий из части даты ГГММ плюс 4-х значный номер.
Нужно чтобы при внесении в следующую ячейку номер увеличивался на единицу больше предыдущего (или большего в диапазоне "B2:B100")