Желательно в идеале это сделать после события "Вставка"? либо же исправить код. Есть столбец 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
название темы вставить в колонку J текущую дату и время, если в J пусто а в Е есть значение
ответ:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E2:E1000")) Is Nothing Then InsNowToJ
End Sub
Sub InsNowToJ()
Dim rg As Range
Set rg = Intersect(Columns(5).SpecialCells(2).EntireRow, Columns(10).SpecialCells(4))
If Not rg Is Nothing Then
rg = Now: rg.NumberFormat = "dd/MM/yyyy HH:mm"
End If
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
когда кто-то напишет макрос, который будет решать ВСЕ возможные задачи - вслед за этим программисты вымрут, как в свое время вымерли мамонты а пока такого макроса нет, каждый макрос решает свою КОНКРЕТНУЮ задачу читайте название вашей темы... вот именно эту задачу и решает предложенный мною макрос и не решает ни одной из задач, которые еще крутятся у вас в голове (на этом форуме простое правило: одна тема - один вопрос, комплексные вопросы ставят в ветке Работа, там количество вопросов и ответов на них практически ограничивается только бюджетом проекта)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!