Изменение ячейки в Excel

[A-Lex-Is]

Доброго времени суток! Требуется решить вот такую задачу.
В Excel-ком файле в столбце №19 можно выбирать значения из списка (реализовано с помощью функции "Проверка данных") Необходимо в столбец 18 вносить дату последнего изменения данных в соответствующей ячейке столбца 19. Данный лист будут использовать несколько человек, поэтому надежность очень важна. Я пробовал использовать макрос

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 19 Then Cells(Target.Row, Application.WorksheetFunction.Count A(Rows(Target.Row)) + 1) = Now
End Sub


но он не работает. Во-первых, данные вносятся в столбец расположенный правее (а не левее), а при смене знака перед единицей при повторном изменении данных в ячейке выскакивает ошибка. Прошу о помощи.

[EugeneS]

файл выложите

[motorway]

Присвоение значения ячейке - Cells(i,j).Value=...
А что вы хотите получить в Application.WorksheetFunction.Count A(Rows(Target.Row)) + 1?

[motorway]

Полагаю, вам нужно так сделать:

If Target.Column = 19 Then Cells(Target.Row, 18).Value = Now

[A-Lex-Is]

Сообщение от motorway

Полагаю, вам нужно так сделать:

If Target.Column = 19 Then Cells(Target.Row, 18).Value = Now

Доброго времени суток! Код работает, но есть две проблемы:
1) Данное действие не должно затрагивать самую верхнюю строчку.
2) При массовом изменении ячеек (путем перетягивания ячейки со значением за правый нижний уголок) дата не выставляется.

[SAS888]

Так устроит?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 19 Then Exit Sub
    If Not Intersect(Target, Cells(1, 19)) Is Nothing Then Exit Sub
    Target.Offset(, -1) = Now
End Sub

[A-Lex-Is]

Модифицировал, теперь первая строчка работает как надо. Но с перетаскиванием проблема по прежнему.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 19 And Target.Row <> 1 Then Cells(Target.Row, 18).Value = Now
If Target.Column = 16 And Target.Row <> 1 Then Cells(Target.Row, 17).Value = Now
End Sub

[SAS888]

Модифицировал, теперь первая строчка работает как надо. Но с перетаскиванием проблема по прежнему.

Я же Вам дал пример, в котором перетаскивание работает:

Target.Offset(, -1) = Now

[A-Lex-Is]

Не работает.
Вот мой фрагмент. Перетаскивание должно работать в 16-м столбце.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 19 And Target.Row <> 1 Then Cells(Target.Row, 18).Value = Now
If Target.Column = 16 And Target.Row <> 1 Then Cells(Target.Row, 17).Value = Now
Target.Offset(, -1) = Now
End Sub

[SAS888]

Не работает.

И не будет работать. Правильно так:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 19 And Target.Row <> 1 Then Target.Offset(, -1) = Now
    If Target.Column = 16 And Target.Row <> 1 Then Target.Offset(, 1) = Now
End Sub

введите значение в ячейку столбца 16 и "растяните" ее. Аналогично для столбца 19, только Now будет не в правом, а в левом столбце.