Экспорт данных в Excel и сохранение истории изменения значений ячеек

[Asblue]

Здравствуйте.
Я из QUIK в таблицу Excel экспортирую стакан заявок купли/продажи.
Продажи, закупки и цены стакана постоянно меняются и изменение всех значений стакана в QUIK отображается автоматически в таблице Excel.
Нужно, чтобы при каждом изменении значений сохранялась история изменений.
Т.е. значения стакана в Excel, отображённые в ячейках в диапазоне А2:С21 при каждом изменении переносятся в столбцы E, F, G. Например первое изменение сохраняется в ячейках E2:G21, следующие E22:G41 и т.д. Показано на рисунке: http://s017.radikal.ru/i411/1110/44/7d4fa43676a6.jpg

Вот макрос для сохранения значений при изменении, но он работает только, если значения в ячейках A2:C21 меняешь вручную, а при автоматическом изменении значений в соответствии с QUIK ничего не происходит:

Private Sub Worksheet_Change(ByVal Target As Range) //--- при изменении
If Target.Column < 4 And Target.Row < 22 Then //--- первые 3 столбца до 22 строки
Application.EnableEvents = False
If Cells(1, Target.Column + 4) <> "" Then 
LastRow = Cells(Rows.Count, Target.Column + 4).End(xlUp).Row + 1
Else
LastRow = 1
End If
Cells(LastRow, Target.Column + 4) = Cells(Target.Row, Target.Column).Value

Application.EnableEvents = True
End If
End Sub

Sub ff()
Application.EnableEvents = True
End Sub

Что нужно сделать, чтобы всё работало, как надо??? Т.е. чтобы данные сохранялись не только при изменении значений в ячейках вручную.

[staniiislav]

Посмотрите эти темы:
http://www.planetaexcel.ru/forum.php?thread_id=14046

http://www.excel-vba.ru/chto-umeet-e...ige-izmenenij/

Может поможет вам

[Asblue]

staniiislav, спасибо большое. Темы действительно полезные, но везде вся история изменений сохраняется, если только эти изменения были внесены вручную.

[nerv]

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

staniiislav, спасибо большое. Темы действительно полезные, но везде вся история изменений сохраняется, если только эти изменения были внесены вручную.

Нет. Если не срабатывает обработчик события

Private Sub Worksheet_Change(ByVal Target As Range)
End Sub

значит Ваша программа (QUIK), делает так

Application.EnableEvents = False

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

[kuklp]

Летучую формулу со ссылкой на данные и использовать событие calculate.

[Asblue]

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

Application.EnableEvents = False
...
Application.EnableEvents = True

kuklp, событие Calculate использовала. В общем теперь проблема решена, всё работает.

Спасибо!

[staniiislav]

так поделитесь примерчиком, мне бы было интересно посмотреть как вы сделали.

[Alastar31]

Asblue, поделитесь, пожалуйста, макросом, alexander-inv3@nxt.ru, заранее Спасибо-)