помогите сделать автоматическую обработку события...

[maxvip]

...задача вот какая - в столбец заносятся данные (цифры и буквы) текстовый формат, как только данные занесены, в соседнем столбце в этой же строке надо автоматом поставить сегодняшнюю дату, важно зафиксировать дату занесения данных, а чтоб исключить челфактор (типа забыл) дата должна проставляться сама - как только появилась запись.

[SAS888]

Пусть, например, при вводе данных в ячейку столбца "A", требуется в столбце "B" поставить сегодняшнюю дату. Тогда в модуль требуемого листа вставьте код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column = 1 Then Target.Next = Date
End Sub

[maxvip]

..сорри, а где в коде обозначение столбца\ячейки\строки??? или как мне подстроить код под мой файлик? в смысле указать место записи и место вставки даты?

[SAS888]

Предлагаю то же самое с пояснениями:

Private Sub Worksheet_Change(ByVal Target As Range) 'Запускается по событию изменения значения ячейки листа
    If Target.Cells.Count > 1 Then Exit Sub 'Если выделено более 1 ячейки, то ничего не делаем
    If Target.Column = 1 Then Target.Next = Date 'Если номер столбца =1, то в этой же строке в соседнем столбце ставим дату
End Sub

[maxvip]

да! спасибо! работает, а вот у меня записи появляются в столбце С, а дата должна появляться в столбце А, как настроить?

[SAS888]

Строку кода

If Target.Column = 1 Then Target.Next = Date

замените на

If Target.Column = 3 Then Target.Offset(, -2) = Date

[maxvip]

спасибо большое!!! ни в одном букваре не нашел этого....