Создание истории обновления ячеек до полного заполнения листа

[qwerty456]

Исходные данные:

- внешняя программа направляет в определенную область листа (A1:C42) Excel цифровые данные;
- значения обновляются(изменяются каждую секунду);

Задача:

1) при каждом изменении любой ячейки из области скопировать всю область (A1:C42) через одну строку (вниз (A44:C86)) и так до конца листа (главное сохранить всю историю изменений);
2) после того, как упираемся (доходим до определенной (либо последней) строки листа, т.е. не хватает строк для успешного копирования - переходим в через столбец вправо (в столбцы E:G) и так до конца столбцов.

[AleksandrH]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:C42")) Is Nothing Then Exit Sub 'Or Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    LastCol1 = Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column
    LastRowA = Cells(ActiveSheet.Rows.Count, LastCol1).End(xlUp).Row + 1
    Range("A1:c42").Copy
    If LastRowA >= 65000 Then
        LastCol1 = LastCol1 + 4
        LastRowA = 0
     End If
    Cells(LastRowA + 1, LastCol1 - 2).PasteSpecial
    Application.EnableEvents = True
End Sub

[EducatedFool]

AleksandrH, в данном случае, данные на лист попадают по DDE
Worksheet_Change здесь не подойдёт, - он не перехватит это событие
Нужна любая формула на листе, ссылающаяся на диапазон A1:C42,
и обработка события Worksheet_Calculate

[AleksandrH]

А может быть что Worksheet_Change не срабатывает на изменения которые вручную вносятся? Например, когда писал етот код, встретился с тем, что делаю изменения вручную в диапазоне А1:С42, но процедура Worksheet_Change не запускалась почему-то.

[IgorGO]

да бывает,

когда при отладке Вы остановили выполнение Вашего кода где-то после строки
Application.EnableEvents = False
и до строки
Application.EnableEvents = True

теперь в системе запрещено генерирование событий и Worksheet_Change сработает, когда выполните любую процедуру с
Application.EnableEvents = True
или выгрузить / загрузить Ексель, он не злопамятный - не запоминает, что Вы отключили события в прошлом сеансе.