MS Excel

Téma: VBA stejný filtr ve více tabulkách

Zaslal/a Jan123 23.5.2021 17:08

Dobrý den, mám sešit s více než 50 listy ve kterých je vždy tabulka (TabB1, TabB2...) kde vždy v 6. sloupci potřebuji vyfiltrovat "1". Rád bych to zvládl jedním makrem. Prosím o úpravu makra níže

Sub Filtr()

ActiveSheet.ListObjects("TabB1").Range.AutoFilter Field:=6, Criteria1:="1"
End Sub

Zaslat odpověď >

veny(24.5.2021 6:44)#050716

zkuste
Sub apply_autofilter_across_worksheets()
Dim xWs As Worksheet
On Error Resume Next
For Each xWs In Worksheets
xWs.Range("E1").AutoFilter 6, "=1"
Next
End Subcitovat