Копирование данных по условию.

[sirius24]

Добрый день!

Подскажите, как реализовать данную задачу. Есть диапазон данных, который обновляется каждый час. Эти данные нужно копировать на другой лист, при обновлении изначальных данных. Но есть один нюанс, нужно чтобы данные копировались в разные столбцы.
Т.е. цель такая:
Есть 24 столбца. Нужно, чтобы при обновлении данные копировались, например, в первый столбец на другом листе. При следующем обновлении исходных данных (через час), данные копировались в следующий столбец. В итоге мы получим 24 заполненные таблицы данными, которые обновлялись в течение суток.
После того, как 24 часа пройдет, цикл бы повторился, заменяя старые данные новыми.
Очень буду надеяться на вашу помощь!

[SAS888]

Можно так:

Sub Main()
    DoEvents
    With Sheets(1)
        .Range(.[A1], .Cells(Rows.Count, 1).End(xlUp)).Copy Sheets(2).Cells(1, Hour(Now))
    End With
    Application.OnTime Now + TimeValue("01:00:00"), "Main"
End Sub

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

[sirius24]

А если в исходных данных формула? Можно, чтобы макрос значения копировал, а не формулу?

[SAS888]

Можно так:

Sub Main()
    DoEvents
    With Sheets(1)
        .Range(.[A1], .Cells(Rows.Count, 1).End(xlUp)).Copy
        Sheets(2).Cells(1, Hour(Now)).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    End With
    Application.OnTime Now + TimeValue("01:00:00"), "Main"
End Sub

[sirius24]

Спасибо огромное, работает!

[sirius24]

SAS888, а подскажите как исправить ситуацию:
в 00:00 макрос не может скопировать данные, т.к. нулевого столбца нет.

[SAS888]

Можно при 00:00 часов копировать в 24-й столбец. Например, так:

Sub Main()
    Dim i As Integer: DoEvents
    With Sheets(1)
        i = IIf(Hour(Now) = 0, 24, Hour(Now))
        .Range(.[A1], .Cells(Rows.Count, 1).End(xlUp)).Copy
        Sheets(2).Cells(1, i).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    End With
    Application.OnTime Now + TimeValue("01:00:00"), "Main"
End Sub