Сбор данных в таблице

[Morrowind1985]

Доброго всем дня!
Попробую описать суть проблемы.
Мне нужно сделать так, чтобы постоянно вводимые данные в одну ячейку после нажатия кнопки Enter переносились и собрались на другом листе по порядку в определенном столбце.
Т.е. я ввожу данные в ячейку,нажимаю Enter, данные в ячейке исчезают, но отображаются в столбце на другом листе. Я ввожу следующие данные в эту же ячейку, опять нажимаю Enter и данные переносятся в столбец на другом листе ниже по порядку и т.д. (собирались)
Спасибо за помощь

[Serge_Bliznykov]

если разрешены макросы, то это можно сделать макросом (Worksheet_Change, например).

вот макрос для нужного листа, который выдаёт сообщение, если изменилась ячейка A3 (просто для примера)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("A3"), Range(Target.Address)) Is Nothing Then

        ' Display a message when one of the designated cells has been
        ' changed.
        ' Place your code here.
        MsgBox "Cell " & Target.Address & " has changed."

    End If
End Sub

[Morrowind1985]

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

если разрешены макросы, то это можно сделать макросом (Worksheet_Change, например).

вот макрос для нужного листа, который выдаёт сообщение, если изменилась ячейка A3 (просто для примера)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("A3"), Range(Target.Address)) Is Nothing Then

        ' Display a message when one of the designated cells has been
        ' changed.
        ' Place your code here.
        MsgBox "Cell " & Target.Address & " has changed."

    End If
End Sub

Как Вы понимаете, я с этим не сталкивался.
Есть ли ссылка на какой-нибудь источник, где это раскрывается подробнее?
Можете подсказать?
Спасибо

[SAS888]

Можно, например, так:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long, x As Range
    Set x = Range("A1") 'Контролируемая ячейка
    If Target.Address <> x.Address Then Exit Sub
    With Sheets("Лист2") 'Лист, в который помещаем результат
        i = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Cells(i, 1) = x.Value
        .Cells(i, 2) = Format(Now, "DD.MM.YYYY hh:mm:ss")
    End With
    Application.EnableEvents = False
    [A1].ClearContents
    Application.EnableEvents = True
End Sub

Пример во вложении.
Код должен находиться в модуле того листа, из ячейки которого требуется перемещать вводимые данные.