Задача на копирование ячеек из разных листов на один.

[hozpraktik]

Более детально проблема выглядит так:
Как можно копировать в один и тот же столбец на фиксированном листе данные из одного и того же диапазона ячеек с других листов?
Листы генерируются макросом по очереди, автоматически им присвается имя от "Январь" до "Декабрь". Т.е. в любой момент времени существует только один "календарный" лист и с него нужно одним нажатием в нужный момент перекинуть значение диапазона в другой лист. Через некоторое время генерируется новый каледарный лист и цикл повторяется. Хотелось бы запускать один макрос, а не 12 в течение года.
"Отработанные" листы не удаляются, а прячутся в книге, т.е. сослаться на уже существующие листы можно всегда.

[EducatedFool]

Более детально проблема выглядит так:

Куда более детальнее ваша проблема начнёт выглядеть сразу после того, как Вы прикрепите к сообщению пример файла с макросом.

Ну и не забудьте на примере показать, что, откуда и куда надо копировать.

[hozpraktik]

Я вложил макет, надеюсь, там всё понятно.

[hozpraktik]

Sub Вставка_цен_в_бланк()
'
' Вставка_цен_в_бланк Макрос
' Макрос записан 07.08.2009 (Hozpraktik.)
'

'
'    Sheets("БК (1)").Select
    Range("E11:E101").Select
    Selection.FormulaR1C1 = "=Январь!RC[1]"
' Нет готового решения

    MsgBox ("Готово!")
End Sub

Т.е. для листа Январь одноразовй макрос есть, а нужно, чтобы макрос снимал информацию с хронолически последнего листа.

[VictorM]

Как один из вариантов, можно решать Вашу задачу так - см.вложение.

[hozpraktik]

Спасибо! На макете работает, на практике ещё не пользовался, Есть только одно но: в предлагаемом решении оператор должен вручную выбирать месяц из списка. Т.к. файл в целом служит задачам планирования, то месяцы в файле не всегда связаны с реальным временем. Чтобы оператор не задумывался о том, какой из 12 возможных вариантов выбора предпочесть, хотелось бы иметь кнопку (на макете она в виде рисунка с символом "$"), при нажатии на которую диапазон копировался бы автоматически, безальтернативно, не оставляя ни единого шанса человеческому фактору.
Алгоритм простой: как бы не назывался предыдущий лист - тупо копировать из него. Серая кнопка служит всего лишь для распечатки бланка с проставленными ценами и переноса их в другую программу, увы, несовместимую с EXCEL никаким образом. Написать нужный расчётный модуль в ТОЙ программе и в сытое время у программеров руки не доходили, а теперь от их команды и вовсе один человек остался. Вот и приходится с предпенсионными мозгами толкаться среди студентов.

[VictorM]

Спасибо! На макете работает, на практике ещё не пользовался, Есть только одно но: в предлагаемом решении оператор должен вручную выбирать месяц из списка.

Чувствовал, что в задании не все описано)))

Алгоритм простой: как бы не назывался предыдущий лист - тупо копировать из него.

Во вложении предусмотрено 2 варианта работы макроса - от текущего месяца и от предыдущего листа.
Выбирайте.

[hozpraktik]

Огромное спасибо! Я как раз и хотел второй вариант.
Перекинул макрос в рабочую книгу, раз пять промоделировал годовую работу файла - работает как часы.

[d_imarik]

немного переделал скрипт.
Копирует данные из диапазона ячеек с листа именем вчерашнего дня в лист именем сегодняшнего(формат имени листа дд.мм.гг)

Sub остаток_на_утро() 'от предыдущенго дня
Application.ScreenUpdating = False
On Error GoTo ErrHandler
yesterday = Format(Now - 1, "dd.mm.yy")
Today = Format(Now, "dd.mm.yy")
Worksheets(yesterday).[H4:H39].Copy 'длина колонки
Worksheets(Today).[B4].PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
[B4].Select
MsgBox "остатки внесены", , "ввод остатков"
Exit Sub
Application.ScreenUpdating = True
ErrHandler:
MsgBox " Неправильный формат даты ", , "Ошибка пользователя !!!"
End Sub