Jak automaticky aktualizovat filtrovaná data v Excelu, když jsou aktualizována

Microsoft Excel nabízí funkci filtrování dat, která je velmi užitečná při analýze rozsáhlých datových souborů. Pokud nemáte hluboké technické znalosti pro práci s databázemi, může vám tato funkce výrazně ulehčit práci. Filtry v Excelu jsou poměrně jednoduché a umožňují zobrazovat nebo skrývat data v daném sloupci. Filtrování se automaticky aplikuje i na odpovídající řádky. Nicméně, filtr sám o sobě se neaktualizuje automaticky. Pokud dojde ke změně hodnoty ve filtrovaném sloupci, ať už manuální úpravou nebo pomocí vzorce, je nutné filtr aplikovat znovu. Pro automatickou aktualizaci filtrovaných sloupců můžete použít jednoduchý kód.

Pro využití tohoto kódu je nutné povolit makra a uložit soubor aplikace Excel jako sešit s povolenými makry, tedy s příponou .XLSM. Pro uložení s povolenými makry klikněte na Soubor > Uložit jako a v dialogovém okně vyberte možnost Sešit s povolenými makry aplikace Excel.

Následně vyberte list, ve kterém máte aplikované filtry. Klikněte na tento list pravým tlačítkem a z kontextové nabídky zvolte 'Zobrazit kód'.

Otevře se okno Microsoft Visual Basic s vaším aktuálním listem Excelu. Vložte následující kód do okna kódu:

Private Sub Worksheet_Change(ByVal Target As Range)
If Me.FilterMode = True Then
With Application
.EnableEvents = False
.ScreenUpdating = False
End With

With ActiveWorkbook
.CustomViews.Add ViewName:="Mine", RowColSettings:=True
Me.AutoFilterMode = False
.CustomViews("Mine").Show
.CustomViews("Mine").Delete
End With
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End If

End Sub

Uložte soubor. Pokud jste soubor dosud neuložili jako sešit s podporou maker, budete k tomu vyzváni. Uložený soubor bude uložen jako kopie, čímž nedojde k přepsání původního souboru.

Po vložení kódu, jakákoli aktualizace buňky ve filtrovaném sloupci automaticky obnoví filtrovaná data v souladu s nastavenými podmínkami. Autorem tohoto kódu je uživatel Sorin ze Stack Exchange.