Rozšířený filtr jako VBA

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Orinaja
nováček
Příspěvky: 1
Registrován: srpen 17
Pohlaví: Nespecifikováno
Stav:
Offline

Rozšířený filtr jako VBA

Příspěvekod Orinaja » 01 srp 2017 15:24

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

Reklama
guest
Pohlaví: Nespecifikováno

Re: Rozšířený filtr jako VBA

Příspěvekod guest » 01 srp 2017 16:01

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.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů