< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#050716
avatar
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 Sub
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje