Снять автофильтр с нескольких листов разом

[kzld]

Имеется книга Excel.
Листы идентичные друг другу.
ЯРЛЫЧОК ЛИСТА-КОПИРОРОВАТЬ-СОЗДАВАТЬ КОПИЮ-ВСТАВИТЬ
Возможно ли снять автофильтр сразу с нескольких (со всех) листов одним (двумя.тремя) движениями

[The_Prist]

Ну да, можно. Макросом.

Dim wsSh As Worksheet
For Each wsSh In Sheets
If wsSh.AutoFilterMode Then wsSh.UsedRange.AutoFilter
Next wsSh

[kzld]

[QUOTE=The_Prist;452129]Ну да, можно. Макросом.

Макрос надо сохранить в "ЭТА КНИГА"

[SAS888]

Можно еще так:

Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    If ws.AutoFilterMode Then ws.ShowAllData
Next

[The_Prist]

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

Макрос надо сохранить в "ЭТА КНИГА"

Это вопрос или предложение?

[kzld]

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

Это вопрос или предложение?

Конечно вопрос

[The_Prist]

Макрос надо сохранить в стандартном модуле и запускать по мере необходимости. Только не забудьте добавить вначале имя процедуры(к примеру: Sub Delete_Filter), а в конце закрыть её - End Sub.

[kzld]

Спасибо за помощь начинающим

[kzld]

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

Ну да, можно. Макросом.

Спасибо, работает.
Вариант предложенный Вами начисто снимает (удаляет) фильтр.
Вариант предложенный SAS888 мне подходит больше.
Хотя на вкус и цвет-как известно товарищей нет.

А теперь вопрос другой:
Повторяю, листы в книге от 01 по 12 однотипные - это месяцы года, ну и парочка листов сводных.
Так вот, а можно ли макросом ставить одинаковый фильтр сразу на нескольких (в частности на двенадцати ) листах одновременно.

Допустим на первом листе выставляю автофильтр и все остальные листы с 02 по 12 также подчиняются требованию автофильтра

[kzld]

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

Можно еще так:

Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    If ws.AutoFilterMode Then ws.ShowAllData
Next

Почему то, если автофильтр включен только на одном листе, а на других ни одна позиция автофильтра не включена (т.е видно всё) макрос предложенный SAS888 , "вылетает на строчке"
If ws.AutoFilterMode Then ws.ShowAllData
ТО, что выше выделено жирным, подсвечивается жёлтым цветом в VIsualBasic , при нажатии кнопки DEBUG
Как надо подправить макрос ?