FILTR - datum Vyřešeno

[ShaREmAn]

Ahoj,
kolega má problém s naprogramováním automatického filtru :).
Přes input box si do proměné vloží datum a chce aby mu potom filtr ukázal všechny výsledky, které jsou shodné nebo větší s datumem. Při nastavení filtru "Criteria1" na přesně ten datum mu filtr funguje skvěle. Jakmile tam ale chce dát nějaký interval, tak se podmínka ukáže správně, když se potom podívá do nastavení "Vlastní" filtru, ale jakoby se podle toho filtr nezaktulizoval. Mohl byste někdo prosím pomoc?
Děkuji moc

[Reklama]

[navstevnik]

Priloz sesit s tim nefungujicim filtrem, bude tak mozno lepe zjistit pricinu, jinak by se jednalo o "vesteni z kristalove koule".

[ShaREmAn]

OK, díky. Příkládám.
Použít tlačítko "Tisk - porady".

sd-tisk.xls

(138 KiB) Staženo 24 x

[navstevnik]

Pokud je ve VBA kodu pouzit automaticky filtr pro datum, je nutno vzhledem k rozdilu nastaveneho regionalniho formatu a formatu data pouziteho ve VBA - US - v procedure VBA do kriteria pouzit poradove cislo data, napr. pro 18.8.2009 to je 40043. Vice viz: http://www.ozgrid.com/News/aug-2006.htm

Cast kodu (v priloze):

Kód: Vybrat vše

  Dim odkdy As Date, lDate As Long
  odkdy = InputBox("Kdy byla poslední porada na které se mluvilo o vzorcích?")
  lDate = DateValue(odkdy)
  Sheets("Databaze").Activate
  With ActiveSheet
    .AutoFilterMode = False
    .Range("a1").AutoFilter Field:=2, Criteria1:=">=" & lDate
  End With

Pozn.: Trochu jsem ucesal kod pro Sub CommandButton1_Click()