Filtrování dat - automatický filtr




Sheets("List1").Range("A1:Z3000").AutoFilter field:=1, Criteria1:= Listbox1.Value
'field:=1 - toto je číslo sloupce pro filtr

ActiveSheets("List1").Range("A1:Z3000").AutoFilter field:=1
'tento kod zruší filtr ve sloupci 1

If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
'zruší všechny filtry

Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub
'musí se napsat na úrovni "Worksheet" - filtry budou aktivní i při zamčeném listu