Блог

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

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 дата

попробуйте это

 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" amp; Target.Row).Value = Now()


End Sub
 

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

я думаю, это то, что ты хочешь.

удачи