• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Automatické odstranění filtru

Zaslal/a JBL 10.12.2020 15:46

Ahoj,
prosím o radu jak ve workbooku kde mám několik sheetů s daty zapsat makro, které při uzavření workbooku odstraní na všech sheetech vyfiltrované hodnoty, ale nesmaže filtr z řádku jako takového.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Březen_2021").AutoFilterMode = False
End Sub

Zkoušel jsem toto, ale pak ten filtr zmizí úplně a navíc musím definovat pro každý sheet zvlášť.
Díky

Zaslat odpověď >

---

lubo(10.12.2020 16:41)#049186

Třeba:

ActiveSheet.ShowAllData

ps. V Excelu je záznamník maker.citovat

JBL(11.12.2020 8:28)#049187

Tomu rozumím, ale jde trochu o něco jiného. Zmíněný příkaz zobrazí i řádky, které jsou ručně skryté. Potřeboval bych něco co ve všech filtrech na sheetu vybere všechny hodnoty. Záznam maker mi pomůže s jedním sloupcem, ale pak bych musel rozkopírovat pro každý sloupec + upravit pokaždé když nějaký přibude. Existuje něco takto obecného (co ovšem úplně nezruší filtrovací tlačítka?)citovat

lubo(11.12.2020 10:16)#049188

Jistě exituje, VBA. Jak jsem už psal, záznamník maker je kamarád. Stačí se pak podívat na objekty a doplnit iterace.

Filtry jsou v řadě objektů, tak jako příklad na aktivním listu tabulky a autofiltr:

Sub Makro()
Dim i As Long
Dim oList As ListObject

' tabulky
For Each oList In ActiveSheet.ListObjects
With oList.AutoFilter
For i = 1 To .Filters.Count
.Range.AutoFilter Field:=i
Next
End With
Next

With ActiveSheet.AutoFilter
For i = 1 To .Filters.Count
.Range.AutoFilter Field:=i
Next
End With
End Sub


Jo a to "pro každý sheet zvlášť", ano musí, ale může se to udělat v cyklu:

V proceduře odstraní autofiltry na všech listech:


Dim list As Worksheet
For Each list In ActiveWorkbook.Worksheets
list.AutoFilterMode = False
Next
citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse