Доброго времени суток Всем. Помогите пожалуйста с макросом. Необходимо, чтобы при заполнение даты в столбец E добавлялась строка снизу с номером следующего пункта и формулами и усл.форматированием. В примере сделал как получилось, не могу задать цикл и условие, чтобы дату вручную забиваешь и вкл. макрос
Доброго времени суток Всем. Помогите пожалуйста с макросом. Необходимо, чтобы при заполнение даты в столбец E добавлялась строка снизу с номером следующего пункта и формулами и усл.форматированием. В примере сделал как получилось, не могу задать цикл и условие, чтобы дату вручную забиваешь и вкл. макросroman66rus
Но, окончательный вариант таблицы будет выглядеть так. Как видите здесь три пункта(желтеньким) и просто охота, чтобы в каждом была одна пустая строка, на всякий случай, а при ее заполнении появлялась другая и т.д.
Но, окончательный вариант таблицы будет выглядеть так. Как видите здесь три пункта(желтеньким) и просто охота, чтобы в каждом была одна пустая строка, на всякий случай, а при ее заполнении появлялась другая и т.д.roman66rus
тогда, как вариант, можно так (см. вложенный файл)
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Target, Columns(5)) Is Nothing Then Exit Sub If Len(Target.Offset(1, -1)) Then Exit Sub If Len(Target) Then Application.EnableEvents = False With Target.CurrentRegion.Rows(Target.Row) .Offset(1).Insert .AutoFill .Resize(2) .Offset(1, 1).Resize(, 5).ClearContents End With Application.EnableEvents = True End If End Sub
[/vba]
[p.s.]Срабатывает только при вводе значений в ячейки столбца E, как было указано в Вашем первом посте[/p.s.]
тогда, как вариант, можно так (см. вложенный файл)
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Target, Columns(5)) Is Nothing Then Exit Sub If Len(Target.Offset(1, -1)) Then Exit Sub If Len(Target) Then Application.EnableEvents = False With Target.CurrentRegion.Rows(Target.Row) .Offset(1).Insert .AutoFill .Resize(2) .Offset(1, 1).Resize(, 5).ClearContents End With Application.EnableEvents = True End If End Sub
[/vba]
[p.s.]Срабатывает только при вводе значений в ячейки столбца E, как было указано в Вашем первом посте[/p.s.]KSV