Пытаюсь соединить два макроса.

[kzld]

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

Исправил. Посмотрите.

Подскажите, что подправить в макросе, что бы сразу запонялись все листы , одним запуском макроса.

[SAS888]

Сейчас, при запуске макроса, выводится форма, в которой пользователю предлагается выбрать требуемые листы для обработки. Нужно сделать так, чтобы по умолчанию (без формы) обрабатывались все имеющиеся листы с именами "01", "02", ..., "11", "12". Так?

[kzld]

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

Сейчас, при запуске макроса, выводится форма, в которой пользователю предлагается выбрать требуемые листы для обработки. Нужно сделать так, чтобы по умолчанию (без формы) обрабатывались все имеющиеся листы с именами "01", "02", ..., "11", "12". Так?

Да , именно так

[SAS888]

Так подойдет?

[kzld]

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

Так подойдет?

Да, работает отлично.
Правда есть один нюанс, если в файле "allwork-2005-year.xlsm"
включен автофильтр, работает некорректно.
Полагаю что это не очень существенно, просто надо быть повнимателней.
Или же возможно обойти это ограничение?

[SAS888]

Посмотрите вложение. Я не стал разбираться, почему при включенном автофильтре макрос работает не так. Добавил снятие на всех листах примененных (если таковые имеются) автофильтров.

[kzld]

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

Посмотрите вложение.

Спасибо, и еще раз а то сообщение слишком короткое

[kzld]

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

Посмотрите вложение. Я не стал разбираться, почему при включенном автофильтре макрос работает не так. Добавил снятие на всех листах примененных (если таковые имеются) автофильтров.

Странный глюк.
Взял с форума макрос и поместил его в стандартный модуль книги.
Снять автофильтр, теперь в файле kassa-2005 со всех листов разом.
Теперь предложенный Вами макрос работать отказывается.
код макроса

Sub Delete_Filter()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    If ws.AutoFilterMode Then ws.ShowAllData
Next
End Sub

[SAS888]

Странно.
1) Этот код не отключает автофильтр (такого требования не было), а снимает примененную фильтрацию по всем критериям (отображает все строки).
2) Внутри кода предложенного макроса есть строки:

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
If ws.AutoFilterMode = True Then ws.ShowAllData

Где ActiveSheet - это текущий обрабатываемый лист из файла "allwork-2005-year.xlsm" ("январь", "февраль" и т.д.), а ws - соответствующий ему лист ("01", "02 и т.д.) из файла, содержащего макрос. Т.е. как видно, перед работой с листами, в случае, если установлен автофильтр, не зависимо от того, применен автофильтр или нет, все строки отображаются. И это у Вас работало!
3) Давайте Ваш файл с макросом, и поясните, в каком случае возникает ошибка (или, что значит "макрос работать отказывается"?)

[kzld]

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

Странно.
(или, что значит "макрос работать отказывается"?)

Макрос предложенный Вами после выполнения макроса снятия автофильтра не заполняет ячейки файла kassa-2005.
А может это быть из за того что (сейчас попробую) что в файле "allwork-2005-year.xlsm" листы наименованы "01" "02" и т.д. соответственно и в макросе они так-же прописаны, а в файле "kassa-2005.xlsm" листы наименованы "jan" , "feb" "mar" и т.д.

если установлен автофильтр, не зависимо от того, применен автофильтр или нет, все строки отображаются. И это у Вас работало!

Да сработало, автофильтр был снят со всех листов