Jste zde: Úvodní stránka » excel » vba-priklady-kodu » advancedfilter-metoda-excel-vba

AdvancedFilter metoda - Excel VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak na Excel - naučte se efektivně využívat Excel - nejoblíbenější (Hodnocení 97%, přes 13.000 studentů, + 750 pozitivních zpětných vazeb) - Získat kurz
MaxiKurz Excel - získejte lepší práci, více peněz, staňte se nepostradatelní (přes 6 hodin videí, 160 lekcí) - Získat kurz
G tabulky... - pokud nemáte rádi Excel využijte kurz na Google-tabulky

Jak získat s filtrů ještě více, aneb rozšířený filtr.

Úvodem do AdvancedFilter

Potřebujete-li lépe filtrovat data pomocí rozšířeného filtrů získáte z tabulek daleko více (nejen pro analýzy, výpočty, ...) funguje podobně jako automatický. Jak na metodu AdvancedFilter je uvedeno v následujících kapitolách:

Teorie - syntaxe
Příklad - najdi hodnotu
... - další příklady v přípravě
Sešit ke stažení - zdarma
Související články

Teorie a syntaxe AdvancedFilter

Trochu teorie ohledně AdvancedFilter

Syntaxe


AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)

Jméno	Poviné/Volitelné	Popis
Action	Poviné	Konstanta (XlFilterAction) určující zda pořidit kopii nebo filtrovat na ( xlFilterCopy, xlFilterInPlace )
CriteriaRange	Volitelné	Kriteria pro filtr (není uvedeno, bez kriterií).
CopyToRange	Volitelné	Cílový rozsah zkopírované řádky pokud Action je xlFilterCopy, jinak ignorováno.
Unique	Volitelné	True filtrovat pouze jedinečné záznamy. False filtrovat všechny záznamy, které splňují kritéria. Výchozí hodnota je False.

AdvancedFilter Příklad 1

Ukázka:

Zdroj dat

Předpokládám, že máte k dispozici zdrojová data, které je potřeba iltrovat, pdole několika sloupců:

Řešení

Kód


    Sheets("List2").Select
    Range("A11").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Clear
    
    Sheets("List1").Range("Tabulka1[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Sheets("List1").Range("M1:O2"), CopyToRange:=Sheets("List2").Range("A12"), Unique:=True
    Columns.AutoFit
    Range("B11").Select

Co využívám

filtrovat tabulku jako Tabulku
ověření dat

Ke stažení

Soubor AdvancedFilter - praktické příklady - Excel VBA ke stažení zdarma. Soubor využívá makra (pro Excel 2007 a novější).

Další související články:

Pokud už máte buňku (oblast) označenou můžete s ními dále pracovat například

Filtry - AutoFilter - Excel VBA

Závěrem

Využívate rozšířené filtry ve VBA?

Článek byl aktualizován: 19.09.2020 11:07

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.