Вносить дату последнего изменения при вводе в соседнюю ячейк

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вносить дату последнего изменения при вводе в соседнюю ячейк (Макросы/Sub)

koyaanisqatsi

Дата: Четверг, 21.04.2016, 19:16 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте.
Подскажите пожалуйста. Хочу к одному коду прикрутить второй. Идея в том чтобы отслеживать последние изменения столбца "L" записывать дату последнего изменения в соседний столбец.

В файле пример в листе Овощи вписал код. Но не работает.

Логин/Пароль: Пользователь 444

[vba]

Код

Private s$
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oComment As Comment, un$
    On Error Resume Next
    Set oComment = Target.Comment
    un = WorksheetFunction.VLookup(GetUserName_3(2), Ëèñò4.[A2:B999], 2, False)
    If oComment Is Nothing Then
        Set oComment = Target.AddComment(un & " " & Format(Now, "dd.mm.yy HH:MM") & ":" & Chr(10) & s & "-->>" & Target.Text)
        oComment.Shape.TextFrame.AutoSize = True
    Else
        oComment.Text oComment.Text & Chr(10) & un & " " & Format(Now, "dd.mm.yy HH:MM") & ":" & Chr(10) & s & "-->>" & Target.Text
        oComment.Shape.TextFrame.AutoSize = True
    End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
s = Target.Cells(1, 1)
End Sub

[/vba]

Хочу этот код приделать :

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Intersect(Columns("l"), Target(1)).Offset(, 1) = Now
End Sub

[/vba]

Пытался вставить внутрь кода. Не сработало . Ниже всего кода писал не работало выдавало ошибку в первой строке последнего кода.