Макрос копирования и обнуления

[Emmanuel]

Добрый день!

Нужен макрос:

имеется
- в книге Excel два листа
- на Листе1 в ячейке A1 стоит дата (текущая, выставлена стандартными средствами Excel)
- там же в ячейке А2 имеются какие-либо данные (число)

требуется
- при изменении даты в ячейке А1, данные из ячейки А2 должны копироваться на Лист2 в ячейку рядом (справа) от предыдущей даты, а ячейка А1 Листа1 очищалась.
- по возможности реализовать разделение по месяца, т.е. чтобы данные за один месяц копировались в один столбец, а за другой - в другой столбец.

Помогите реализовать, такую задумку.
Буду очень благодарна

[motorway]

Вот начало макроса:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A$1" Then
MsgBox [a1]
Worksheets(2).Cells(1, 2) = [a1]
[a1].Clear

End If

Application.EnableEvents = True
End Sub

Дальнейшее непонятно из-за неполного описания задачи.

в ячейку рядом (справа) от предыдущей даты, а ячейка А1 Листа1 очищалась.
- по возможности реализовать разделение по месяца, т.е. чтобы данные за один месяц копировались в один столбец, а за другой - в другой столбец.

[Emmanuel]

Нужно чтобы на втором листе в столбце А выводились все дни месяца, а в столбце В в ячейку рядом с соответствующей датой копировались данные из ячейки А2.

Ну и соответственно каждый месяц должен начинаться в новом столбце, например январь - в столбце А, а февраль в столбце D...

Простите, что непонятно объясняю - я же блондинка )))))

[Hugo121]

Да в общем почти всё понятно и из первого поста...
Мне непонятно вот что - "при изменении даты" как понимать?
"выставлена стандартными средствами Excel" - это как? Формулой?
Если формулой - тогда ответьте: на ночь файл всегда закрывается?

[Emmanuel]

"При изменении даты" - когда документ утром открываешь, дата уже стоит текущая, а данные нужно чтобы копировались вчерашние.
Да, там формула - "СЕГОДНЯ".
Да документ всегда закрывается... но можно и забыть это сделать - компьютер не выключаю.

P.S. Ну что сделать с блондинкой, которая желает облегчить себе работу )))))

[Emmanuel]

Так неужели никто девушке не поможет?

[DiemonStar]

Private Sub Workbook_Open()
SaveData
End Sub

Sub SaveData()
Application.OnTime Now + (1 / 24), "SaveData"
Sheets("Лист2").Cells(Day([A1]), Month([A1])) = [B1]
End Sub

Вставляется в код книги. Номер строки = День, номер столбца = Месяц. Сохраняется раз в час.

[Emmanuel]

Скажите, а как вставить в код книги?
И что значит "номер строки=день..." и т.д.