• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Asi si nerozumíme
Umím používat Podmíněné formátování. Chci to ale udělat jinak.
Potřebuji aby A1 převzala formát buňky F1 při splnění podmínky. Tzn bude-li F1 zelená chci aby zezelenala i A1.
F1 je pouze formátový vzor. Změním-li formát F1, projeví se to na A1...

Ahoj.

Je možné při podmíněném formátování nějak využít formátu "vzorových buněk"?
Tedy aby byl při splnění podmínky převzat formát "vzorové buňky"

Jinak...

Jak udělat aby se A1 naformátovala dle F1 bude-li buňka A1 rovna buňce F1 (=A1=$F$1)...
Tzn že kdybych později změnil formát F1, automaticky by se změnil i formát A1 bez zásahu do pravidel podmíněného formátování

Snad to dává smysl
Předem děkuji za odpověď

děkuju Poki

a nebo takhle

použil bych SVYHLEDAT v kombinaci s JE.CHYBHODN a podmíněným formátováním

a nebo zde
http://www.excelentnitriky.com/p/o-kontingencnich-tabulkach.html

není zač

fce concatenate

A nebo pomocný sloupec pomocí concatenate a pak zas kontingenční tabulka.

Ahoj,

kontingenční tabulka nebo countifs by měly vyřešit, to co potřebuješ. Jestli jsem tedy správně pochopil zadání.

máš to v mailu

moc děkuju!

poradíš mi, prosím?

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

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 Sub

příloha zde

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje