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: 818
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
  • Pop filtr pro SAMSON C01UPRO
    od Phantomas » 11 dub 2018 13:20 » v Rady s výběrem hardwaru a sestavením PC
    1
    192
    od mmmartin
    11 dub 2018 17:35
  • DHCP a filtr mac adres RT-AC58U
    od slayer_killer » 31 pro 2017 11:58 » v Sítě - hardware
    6
    383
    od RIKI22
    31 pro 2017 13:25
  • Excel- VBA
    od Nelouš » 22 bře 2018 00:14 » v Programování a tvorba webu
    4
    677
    od Nelouš
    22 bře 2018 17:43
  • Excel VBA
    od Dawyck » 06 led 2018 21:35 » v Kancelářské balíky
    1
    311
    od xlnc
    07 led 2018 14:17
  • VBA makra Excel
    od Dawyck » 29 pro 2017 17:19 » v Kancelářské balíky
    3
    378
    od Dawyck
    29 pro 2017 20:45

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

Kdo je online

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