< návrat zpět

MS Excel


Téma: filtr + skrýt rss

Zaslal/a 22.8.2013 12:12

M+Ahoj,

potřebuji poradit se skrýváním řádků. Nejspíš pomocí makra.
Mám tabulku, kterou chci vyfiltrovat dle data (bude to včera, tedy proměnlivé) a pak seřadit od největšího k nejmenšímu dle sloupce Support time. Na to si makro umím nahrát. Potřebuju ale zachovat jen tři řádky s největšími časy a zbytek skrýt. I to jsem si nahrál. Ale v dalším dni se mi skrývaly stejné řádky a tím pádem mi zůstala tabulka prázdná 7

Jak to udělat, aby zůstaly vždy neskryté tři řádky s největším časem?

Snad to dává smysl, případně dovysvětlím.
Předem děkuji za pomoc

M+

Příloha: zip14810_skryt.zip (11kB, staženo 33x)
stop Uzamčeno - nelze přidávat nové příspěvky.

#014811
M+
příloha zde
Příloha: zip14811_skryt-2.zip (11kB, staženo 35x)
citovat
icon #014816
Poki
Jeste to zkus udelat sam - tim se neco naucis.
Pokud potrebujes filtrovat vcerejsi datum, neni nic snazsiho nez misto "8/21/2013" ve filtru nahradit tuto fixni hodnotu promennou typu date

nadeklarujes promennou:
Dim DEN as date
a vlozis do ni vcerejsi hodnotu:
DEN = Date - 1
Potom v nahranem kodu nahradis "8/21/2013" jmenem promenne (DEN)

Jen si davej pozor na to razeni, at to seradis spravne - obcas byva problem, kdyz jsou razeny bunky, ktere obsahuji vzorce...citovat
#014818
M+
děkuju moc, rád se naučím víc, ale na makra jsem zatím fakt jen začátečník...
problém ale myslím není ve filtrování "včerejška" ale ve skrývání ostatních buněk 7

tohle jsem nahrál:

vcera
'

'
ActiveSheet.Range("$A$1:$AG$2014").AutoFilter Field:=3, Criteria1:= _
xlFilterYesterday, Operator:=xlFilterDynamic
ActiveWorkbook.Worksheets("report").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("report").AutoFilter.Sort.SortFields.Add Key:=Range _
("R1:R2014"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("report").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-12
Range("A372").Select
Range(Selection, Selection.End(xlToRight)).Select
Rows("372:372").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Hidden = True
End Sub
citovat
icon #014819
Poki
Jelikoz jsi priloz soubor .xlsx, předpokladam, ze mas verzi 2007 nebo 2010, kde existuje moznost filtru: "Filtry čísel/ Prvních 10", kde muzes nastavit, kolik prvnich hodnot se zobrazi.

Takze pokud mas serazena data od nejvyssiho a vyfiltrovan den, ktery potrebujes - staci jeste pouzit tento filtr se zadanim poctu zobrazenych polozek (je to vcetne hlavičky, takze o jeden vic = 4)

ActiveSheet.Range("$A$1:$K$45").AutoFilter Field:=11, Criteria1:="4", Operator:=xlTop10Itemscitovat
#014823
M+
nevím, co dělám špatně 6

Sub vcera()
'
' vcera Macro
' vcera
'

'
ActiveSheet.Range("$A$1:$AG$2014").AutoFilter Field:=3, Criteria1:= _
xlFilterYesterday, Operator:=xlFilterDynamic
ActiveWorkbook.Worksheets("report").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("report").AutoFilter.Sort.SortFields.Add Key:=Range _
("R1:R2014"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("report").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Range("$A$1:$K$45").AutoFilter Field:=11, Criteria1:="4", Operator:=xlTop10Items
End Sub
Příloha: gif14823_error.gif (9kB, staženo 32x)
14823_error.gif
citovat
#014824
M+
poradíš mi, prosím?citovat
icon #014825
Poki
posli mi ten soubor, kde mas svoje makro, at to nemusim davat dohromady...citovat
#014827
M+
máš to v mailu

moc děkuju!citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09