< 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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Oddělovač polí

Milan-158 • 1.3. 16:01

Oddělovač polí

Whooocak • 1.3. 15:14

Vkládání dat z formuláře na zamknutém listu.

Milan-158 • 1.3. 15:12

Vlastne planovanie zmien

Anonym • 1.3. 7:56

Vkládání dat z formuláře na zamknutém listu.

Začátečník • 28.2. 19:34

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:05

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:00