Stránka 1 z 1

Vlastní filtr Excel

Napsal: 31 črc 2012 21:52
od cmuch
Ahoj,
už si nevím rady tak se chci optat tu.
Potřebuji nastavit sortování dle datumu a času v jedné buňce.
Když nastavuji ručně vše chodí jak má, ale pomocí makra se mi vše schová :-(

utržek z makra je tu.

Kód: Vybrat vše

ActiveSheet.Range("$A$2:$W$230").AutoFilter Field:=2, Criteria1:= _
        ">=3.2.2012 6:30", Operator:=xlAnd, Criteria2:="<=4.2.2012 1:30"

Poradíte mi jakým směrem se mám vydat.

Re: Vlastní filtr Excel

Napsal: 01 srp 2012 08:32
od guest
Tenhle způsob vypadává především ze Záznamníku maker, ale nelze použít.

Mrkněte se sem:

http://excelplus.net/infusions/cvs/view ... file_id=27

Re: Vlastní filtr Excel

Napsal: 01 srp 2012 13:28
od cmuch
Tam k Vám jsem včera taky koukal, ale stejně nic nevykoukal.
Dnes to samé. Pořád se mi to celé schovává.
Já už nevím jak toho docílit.

Re: Vlastní filtr Excel

Napsal: 03 srp 2012 15:20
od cmuch
Tak už vím čím to je :D , ale nedaří se mi to nějak vyřešit :-(

Buňky v tom sloupci co chci filtrovat mám formátovany jako datum a proto to nejde.
Pokud bych filtroval sloupec vedle kde mám čísla tak to jde.
Ale já bohužel potřebuji filtrovat datum ve formátu dd.mm.rrrr hh:mm.

Neví někdo ?

Re: Vlastní filtr Excel

Napsal: 17 zář 2012 19:33
od Scraper
Zdar , tak asi máme stejný problém.Taky potřebuji filtrovat pomocí VBA makra faktury dle data ,ale nejdemi to, vše zmizí. Kyž použiju autofiltr nebo vlastní filtr z Excelu tak to jede , což ,ale není pro mě řešení potřebuji to makrem.
Našel jsem akorát tohle ,ale stejně mi mizí všechno.

Jak jsi na tom ?? pokročil jsi nějak ?? jestli jo tak mi helpni.
dík
Stana V.

http://www.excelplus.net/infusions/cvs/ ... file_id=27


Sub AutofiltrDatum3()
'kritérium ... Datum >= datum z dialogu
datum = InputBox("Zadejte datum")
Selection.AutoFilter Field:=1, _
Criteria1:="=" & CLng(CDate(datum))

End Sub

Re: Vlastní filtr Excel

Napsal: 19 zář 2012 10:28
od cmuch
Nepokročil jsem vůbec,
prostě toto nastavím ručně a pak pokračuji makrem :mad: , štve mě to ale už nevím co zkusit :cry:

Pro datum bez hodin to chodí, ale také nějak divně.
Když chci filtrovat jen jeden den tak musím použít dvě kriteria, samotné = mi nejde.

Kód: Vybrat vše

Dim OblastFiltr As Range
'definování oblasti filtru
Set OblastFiltr = Range("A5:D10")
With OblastFiltr
    .AutoFilter Field:=2, _
        Criteria1:=">=" & CLng(Range("D2")), _
        Operator:=xlAnd, _
        Criteria2:="<" & CLng(Range("E2"))
End With

Pokud chci více dní od do včetně posledního tak musím dávat znamenko < u kriteria 2 a datum o jedno vetsi. s = mi to nejde.

Ale to neresi muj problem, ja potrebuji nejak filtrovat datum i z hodinama.

Re: Vlastní filtr Excel

Napsal: 19 zář 2012 13:45
od Mirdad69
Ahoj, nechceš vystavit, prosím Tě, vzorový soubor?
Díky K.

Re: Vlastní filtr Excel

Napsal: 19 zář 2012 17:50
od cmuch
Tady je ukázka.
Jsou tam dvě buňky kam se vpíší datumy s časem a dle nich by se to mělo filtrovat (sloupec B).

Re: Vlastní filtr Excel

Napsal: 19 zář 2012 19:35
od Mirdad69
Nevím proč, ale to kritérium se musí převést na formát ">=d/m/yy hh:mm" resp. "<=d/m/yy hh:mm".
Viz. přiložený soubor.

Re: Vlastní filtr Excel  Vyřešeno

Napsal: 20 zář 2012 16:30
od cmuch
Supr, díky moc.
Nějaké formáty jsem též zkoušel, ale toto ne.