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: 729
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
    410
    od ChrisTaylor
    14 čer 2017 17:38
  • Makro v excelu (VBA)
    od xp3 » 22 bře 2017 17:39 » v Kancelářské balíky
    11
    799
    od xp3
    31 bře 2017 15:46
  • Problém s kódem VBA
    od Adriel12 » 28 dub 2017 08:42 » v Vše ostatní (sw)
    0
    204
    od Adriel12
    28 dub 2017 08:42
  • Excel VBA SetFocus
    od KECOnaj » 09 lis 2017 15:09 » v Kancelářské balíky
    2
    148
    od KECOnaj
    09 lis 2017 18:53
  • VBA - prosba o doplnění kódu
    od Veverka77 » 10 led 2017 16:04 » v Kancelářské balíky
    0
    203
    od Veverka77
    10 led 2017 16:04

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

Kdo je online

Uživatelé prohlížející si toto fórum: Baidu [Spider], CommonCrawl [Bot] a 2 hosti