Vlastní filtr Excel Vyřešeno

[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.

[Reklama]

[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

[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.

[cmuch]

Tak už vím čím to je , 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 ?

[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

[cmuch]

Nepokročil jsem vůbec,
prostě toto nastavím ručně a pak pokračuji makrem , štve mě to ale už nevím co zkusit

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.

[Mirdad69]

Ahoj, nechceš vystavit, prosím Tě, vzorový soubor?
Díky K.

[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).

[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.

[cmuch]

Supr, díky moc.
Nějaké formáty jsem též zkoušel, ale toto ne.