MS Excel

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á

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+

Uzamčeno - nelze přidávat nové příspěvky.

M+(22.8.2013 12:15)#014811

příloha zde

Příloha: zip

14811_skryt-2.zip (11kB, staženo 35x)

citovat

Poki(22.8.2013 12:54)#014816

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

M+(22.8.2013 13:01)#014818

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

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 Subcitovat

Poki(22.8.2013 13:05)#014819

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

M+(22.8.2013 14:36)#014823

nevím, co dělám špatně

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: gif

14823_error.gif (9kB, staženo 32x)

citovat

M+(22.8.2013 14:38)#014824

poradíš mi, prosím?citovat

Poki(22.8.2013 14:43)#014825

posli mi ten soubor, kde mas svoje makro, at to nemusim davat dohromady...citovat

M+(22.8.2013 15:52)#014827

máš to v mailu

moc děkuju!citovat

Téma: filtr + skrýt

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje