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

[valerij]

Запутался с этими датами...
#10

[IgorGO]

у меня таже фигня, как Новый год - так новые проблемы... и так каждый год
Ну, за стабильность!
Исус народився! Славімо його!

[IgorGO]

Валера, мой ответ помог?

[valerij]

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

Валера, мой ответ помог?

Игорек!!!!
Щас текиллу доп'ю, тогда скажу, пока не понял, а че за празник???

[IgorGO]

Щас текиллу доп'ю

гурман... мне и водка не вредит
праздник - это стиль жизни. он всегда со мной

[valerij]

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

гурман...

НЕТ!!!!!
Я не еврей, я РУССКИЙ, был, есть и буду.....
УРА!!!! РОССИИ и (магадану)

[IgorGO]

я всегда симпатизировал русским, которые кричат "Ура Магадану" из Мариуполя.
Извините за оф топ

[valerij]

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

я всегда симпатизировал русским, которые кричат "Ура Магадану" из Мариуполя.
Извините за оф топ

то же, Извините за оф топ

[kuklp]

Не уверен, не видя файла, но попробуйте так:
If Sheets(Month(Date-1)).Cells(3, (Day(Date) - vv) * 2) = "" Then vv = vv + 1...

[valerij]

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

Не уверен, не видя файла,.

Извиняюсь, конечно нужен...
Начну с нуля, в проге 12 месяцев, год, учитывает всего 2-колонки, № машин и где машины находятся в этот день(гараж, ремонт, ....), причем пользователь не может отредактировать запись задним числом, а я, могу, нажав кл. F1 и введя пароль 123, пользователь пароль не знает.
Прога, может открываться не каждый день, поэтому данные не копируются в эти дни.
Итак, 01-01-11, в [a3:b35], есть данные, они внесены в ручную один раз, использование пустых ячеек в [a3:b35], нужны на будущее, если добавится машины.
Пользователь открывает прогу 05-01-11, у него автоматом заполняются два столбца, [i3:j35], копия [a3:b35], он меняет данные, сохраняет.
В конце раб. дня, открыв прогу, если есть изменения меняет, жмет кнопку на числе и файл уходит на почту. Теперь, допустим, пользователь открыл прогу 10-01-11, получит два столбца, [s3:t35], уже копия [i3:j35], ну и ....
Все работает, все ОК, но вот наступит месяц ФЕВРАЛЬ, первое число, как мне взять последнею запись данных, но с листа1(ЯНВАРЬ) и вставить в [a3:b35], листа Февраль?

vv = 0
1:    If Sheets(Month(Date)).Cells(3, (Day(Date) - vv) * 2) = "" Then vv = vv + 1: GoTo 1
    Range(Cells(3, (Day(Date) - vv) * 2 - 1), Cells(35, (Day(Date) - vv) * 2)).Copy _
                Sheets(Month(Date)).Cells(3, Day(Date) * 2 - 1)