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

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
xlnc
Level 3.5
Level 3.5
Příspěvky: 716
Registrován: červenec 11
Pohlaví: Muž

Re: Rozšířený filtr jako VBA

Příspěvekod xlnc » 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.
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Jaký filtr použít pro dosažení tohoto efektu?
    od samosato » 10 čer 2017 11:44 » v Design a grafické editory
    5
    371
    od ChrisTaylor
    14 čer 2017 17:38
  • Problém s kódem VBA
    od Adriel12 » 28 dub 2017 08:42 » v Vše ostatní (sw)
    0
    184
    od Adriel12
    28 dub 2017 08:42
  • Makro v excelu (VBA)
    od xp3 » 22 bře 2017 17:39 » v Kancelářské balíky
    11
    720
    od xp3
    31 bře 2017 15:46
  • Přejmenování listu VBA Excel2016
    od PoPa » 27 zář 2017 09:12 » v Kancelářské balíky
    4
    169
    od elninoslov
    27 zář 2017 10:27
  • VBA Excel - komprese obrázku
    od MK_Vs » 13 čer 2017 21:06 » v Kancelářské balíky
    1
    267
    od xlnc
    14 čer 2017 18:40

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot], elninoslov a 18 hostů