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

[kzld]

Листы одинаковые по структуре, получаются копированием из предыдущего. Как снять автофильтр мне уже подсказали, а как постваить автофильтр разом на несколько листов

[Dophin]

циклом пройтись по нужным листам и поставить

[SAS888]

Так же, по аналогии:

Sub AutoF()
    Dim ws As Worksheet
    For Each ws In Sheets
        If Not ws.AutoFilterMode Then ws.UsedRange.AutoFilter
    Next
End Sub

[kzld]

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

циклом пройтись по нужным листам и поставить

А как ? Я начинающий

[Dophin]

Вам же ответили уже . см пост SAS888

[kzld]

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

Так же, по аналогии:

Sub AutoF()
    Dim ws As Worksheet
    For Each ws In Sheets
        If Not ws.AutoFilterMode Then ws.UsedRange.AutoFilter
    Next
End Sub

Вставил как модуль книги.
МАКРОСЫ-ЗАПУСТИТЬ- не работает.
Как он (макрос) поймёт , образец установки автофильтра с какого листа брать?

[Dophin]

так листы же одинаковые

вставляйте в модуль макроса, а не книги

[kzld]

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

так листы же одинаковые
вставляйте в модуль макроса, а не книги

т.е конструкция должна получиться такой

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

Не работает. Помогите чайнику.

[Dophin]

у меня работает. возможно проблема в отсутствии на листах UsedRange
по фотографии не лечим - выкладывайте пример

[kzld]

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

у меня работает. возможно проблема в отсутствии на листах UsedRange
по фотографии не лечим - выкладывайте пример

Вот , пример во вложенном файле