Как добавить последнее изменение строки и логин пользователя в следующем столбце

Question

У меня есть код;

1. Но мне нужно, чтобы дата последнего изменения была в той же строке, в которой было сделано изменение

   A6 = V6 B6 = V6 A7= V7 и т. Д.

2. С этим последним изменением мне нужен журнал, который редактирует это по имени входа в домен, также в строке столбца W6, W7 и т. Д.

Может ли кто-нибудь помочь мне с этим?

При редактировании этого я получаю ошибки ошибки

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Target, Range("A6:U1000"))
If xRg Is Nothing Then Exit Sub
Range("V6:V1000").Value = Now()
End Sub

Когда я делаю что-то в диапазоне A6: U1000, у меня есть временная метка в неправильном диапазоне Нет A6 = V6но во всей колонке 1 дата

Answer 1

попробуйте

Private Sub Worksheet_Change(ByVal Target As Range)

Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Target, Range("A6:U1000"))

If xRg Is Nothing Then Exit Sub
Range("V" & Target.Row).Value = Now()


End Sub

записывает дату в столбце V в строке, которая изменилась.

я думаю, вот что вам нужно.

удачи