Здравствуйте. нужен код VBA
Желательно в идеале это сделать после события "Вставка"? либо же исправить код.
Есть столбец J - в котором есть NOW(единожды)
Но после копипаста нескольких строк столбец J не заполняется автоматически напротив столбца Е
Если невозможно поправить выше указанный код, то что требуется
После события вставка - сделать проверку столбца J, если значения нет, то проверить в проверяемой строке ячейку в столбце Е. Если значение в ячейке Е есть и нет значения в J, то так же вставить Now в формате dd/mm/yyyy HH:mm
Желательно в идеале это сделать после события "Вставка"? либо же исправить код.
Есть столбец J - в котором есть NOW(единожды)
Но после копипаста нескольких строк столбец J не заполняется автоматически напротив столбца Е
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E2:E1000")) Is Nothing Then
On Error Resume Next
If Target.Value = "" Then
Range("J" & Target.Row) = ""
Range("J1") = "DateBuy"
Else
Range("J" & Target.Row).Value = Format(Now, "dd/mm/yyyy HH:mm")
Range("J" & Target.Row).EntireColumn.AutoFit
End If
End If
End Sub
|
После события вставка - сделать проверку столбца J, если значения нет, то проверить в проверяемой строке ячейку в столбце Е. Если значение в ячейке Е есть и нет значения в J, то так же вставить Now в формате dd/mm/yyyy HH:mm
Изменено: - 21.05.2020 22:39:11
(Добавил исходник)
