Всем привет! В сети наткнулась на фильтр ко всем страницам книги и пояснение к нему:
"В приведенном коде в этом xWs.Range ("A1"). Автофильтр 1, "= KTE" сценарий, A1 и = KTE указывает столбец и критерии, по которым вы хотите выполнить фильтрацию, число 1 - это номер столбца, на основе которого вы отфильтровали, вы можете изменить их по своему усмотрению. Например, если вы хотите отфильтровать порядок больше 50, вам просто нужно изменить этот сценарий следующим образом: xWs.Range ("B1"). Автофильтр 2, "> 50".
| Код |
|---|
Sub apply_autofilter_across_worksheets()'Updateby Extendoffice
Dim xWs As Worksheet
On Error Resume Next
For Each xWs In Worksheets
xWs.Range("A1").AutoFilter 1, "=KTE"
Next
End Sub |
Отталкиваясь от этого макроса хотим добиться следующего: после заполнения листов книги данными отфильтровать все листы по одному критерию. Есть столбец, который выступает базой для фильтрации. Но он имеет разное расположение: на вкладке Total это стобец М, во всех остальных - А. Данные в этом столбце будут дополняться и дополняться во вкладке Total, во всех остальных просто идёт ссылка.
Грубо говоря, нужно на выходе получить макрос-кнопку, в которой можно выбрать нужные значения столбца М вкладки Total (F333-F335, или F337-F359 или просто F333 и тд..) и чтобы фильтр применился ко всем листам.
Прошу помощи в адаптации найденного кода...
Спасибо! (в ту сторону даже не сообразила) Про болты и гайки - передам 
это даже лучше, чем послать 
