Время в ячейку после ввода в ячейку

[deathogre]

Здрасьте. Оператор вбивает данные, надо повесить на одну ячейку в строке событие: после ввода текста в данную ячейку в другой ячейке этой же строки, должно появится текущее время. Как это сделать?

[Watcher_1]

Вот так...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then
        [B1] = Time
    End If
End Sub

[IgorGO]

у меня так получилось (согласно описания задачи):

Private Sub Worksheet_Change(ByVal Target As Range)
  Set ОднаЯчейка = [c2]:  Set ДругаяЯчейка = [e2]
  If ОднаЯчейка.Address = Target.Address Then ДругаяЯчейка = Time
End Sub

[deathogre]

У меня таких строк очень много. Как повесить событие на каждую ячейку в определенной колонке?

[IgorGO]

так вот оно, че!

Private Sub Worksheet_Change(ByVal Target As Range)
  Set МогоЯчеек = [C:C]
  If Not Application.Intersect(МогоЯчеек, Target) Is Nothing Then Target.Offset(0, 2) = Time
End Sub

или проще так:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect([C:C], Target) Is Nothing Then Target.Offset(0, 2) = Time
End Sub

[deathogre]

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

так вот оно, че!

Private Sub Worksheet_Change(ByVal Target As Range)
  Set МогоЯчеек = [C:C]
  If Not Application.Intersect(МогоЯчеек, Target) Is Nothing Then Target.Offset(0, 2) = Time
End Sub

или проще так:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect([C:C], Target) Is Nothing Then Target.Offset(0, 2) = Time
End Sub

спасибо работает, а как можно сделать не смещением на 2 ячейки, а в определенную колонку?

[IgorGO]

Target.Offset(0, 2)

заменяем на

cells(target.row, №Колонки)

[deathogre]

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

Target.Offset(0, 2)

заменяем на

cells(target.row, №Колонки)

Большое спасибо!