Копировать данные с предыдущего месяца

[kuklp]

По-моему так(Винни Пух):-).
Можно сократить, вынеся Date + (Day(Date) = 1) в отдельную переменную. С этим сами справитесь.

[valerij]

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

Можно сократить, вынеся Date + (Day(Date) = 1) в отдельную переменную. С этим сами справитесь.

А, что это дает? Меньше запись?
А так все СУПЕР, СПАСИБО!!
kuklp
Поясни, это выражение

If Sheets(Month(Date + (Day(Date) = 1))).Cells(3, (Day(Date + _
        (Day(Date) = 1)) - vv) * 2) = "" Then

[kuklp]

Мы уже на ты? Согласен.
Выражение Day(Date) = 1 выдает результат True или False.
В ВБ True = -1, False = 0. То есть, если сегодня первое число, то отнимается 1 от текущих месяца и дня. Для 1 февраля это будет 31 января. Если число не первое, то прибавляется 0 к месяцу и дню. В результате остается текущий день. Маленькие хитрости:-)
Да, на первый вопрос - и меньше запись и если вынести переменную за цикл с Goto(очень не люблю этот оператор) - меньше расчетов, а значит и быстрее.

[valerij]

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

Мы уже на ты? Согласен..Маленькие хитрости

Я рад, извини если...
башка еще трещит...
Все понял, супер, хитрости!!!

[kuklp]

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

башка еще трещит...

Нормально. Мож пивка?

[valerij]

Да, на первый вопрос - и меньше запись и если вынести переменную за цикл с Goto(очень не люблю этот оператор) - меньше расчетов, а значит и быстрее.

ОК! Попробую.
А я Goto обожаю, для меня, упрощает на много, алгоритм.
Еще нравится, всегда удивляло, почему в ВБА не применяют, оператор RETURN (вернуться в точку вызова), чета где -то сделал и вернулся на зад...

[kuklp]

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

ОК! Попробую.
А я Goto обожаю, для меня, упрощает на много, алгоритм.
Еще нравится, всегда удивляло, почему в ВБА не применяют, оператор RETURN (вернуться в точку вызова), чета где -то сделал и вернулся на зад...

Как раз лучше применять конструкцию GoSub - Return. Или цикл Do - Loop.

[valerij]

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

GoSub - Return..

То же, нигде не встречал

[kuklp]

Потому, что и без нее прекрасно обходятся. Я бы твой цикл записал так:

    dm = Date + (Day(Date) = 1)
    Do While Sheets(Month(dm)).Cells(3, (Day(dm) - vv) * 2) = ""
            vv = vv + 1
    Loop
    Sheets(Month(dm)).Range(Sheets(Month(dm)).Cells(3, (Day(dm) - vv) * 2 - 1), Sheets(Month(dm)).Cells(35, (Day(dm) - vv) * 2)).Copy _
            Sheets(Month(Date)).Cells(3, Day(Date) * 2 - 1)

Попробуй.

[valerij]

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

Попробуй.

Обязательно, вот нет, такого, что бы мерить время, так, как у меня сейчас есть и так, как ты, предложил.
Визуально у меня, короче, я не в коем, не спорю о правильности твоего способа, уверен, я им и воспользуюсь, просто хотелось бы "пощупать".
Ск. тут на форуме предлагались замеры, у меня не получалось, вернее один и тот же макрос, а замеры всегда разные.