Rozšířený filtr jako VBA

[Orinaja]

Dobrý den,

chtěla bych požádat o radu ve vytvoření makra - filtru.

mám několik sloupců (veškeré info se týká smluv), potřebuji vyfiltrovat dle data a platnosti (pomocí funkce "KDYŽ" jen vypisuje ANO nebo NE, pokud je platná k aktuálnímu datu).
Pro rozšířený filtr jsem si nastavila kritéria (zřejmě) správně, zadávám-li filtr ručně, je vše OK (nová tabulka se vytvoří). Jakmile spustím makro, tabulka zůstane prázdná, tedy nic se mi nevyfiltruje.
Ještě před samotným filtrem mám nastaveno smazání předchozích dat.

Zde je mnou vytvořený kód:

Sub filtr_2017()


Range("A4:H300").Select

Selection.ClearContents
Selection.ClearFormats

Range("J7").Select

Range("data").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _
"pom").Range("A4:B7"), CopyToRange:=Range("A3:H4"), Unique:=False
End Sub

Mohl by mi někdo, prosím, poradit, kde dělám chybu?

Děkuji

[guest]

a) Filtrujete datum v českém prostředí? Pro účely filtru převeďte datum na Long (funkce CLng).
b) Bez sešitu a přílohy nemohl.