< 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

vyhledání obsahu buňky

vfort • 18.7. 11:22

Názvy z řádků do sloupců Power Query

Alfan • 18.7. 10:01

Tlac 2 roznych tabuliek

loksik.lubos • 17.7. 20:43

Týden v roce

Petr92 • 16.7. 15:34

Řazení podle času v kategoriích

veny • 16.7. 11:34

špatný výpočet ze zisku - příčina?

Anonym • 12.7. 22:56

špatný výpočet ze zisku - příčina?

Jakoby • 12.7. 12:35