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

Příspěvky uživatele

Stačia 3 možnosti ? (z brucha bez skúšky):
"=když(A(G" & j & "=""a"";H" & j & "=""a"";I" & j & "=""a"";J" & j & "=""a"";K" & j & "=""a"");""Hotovo"";""dělej"")"
Replace("=když(A(G?=""a"";H?=""a"";I?=""a"";J?=""a"";K?=""a"");""Hotovo"";""dělej"")", "?", j)
"=když(COUNTIF(G" & j & ":K" & j & ";""a"")=5;""Hotovo"";""dělej"")"

Alebo tam nechajte SUM() ako je, ale zmeňte Formát bunky napr. na :
General;General;;@

Tak si to vyskladajte cez IF a MATCH:
=IF(NOT(ISERROR(MATCH($T16;$P$16:$P$19;0)));$D$18:$D$20;IF(NOT(ISERROR(MATCH($T16;$P$26:$P$27;0)));$D$28:$D$30;""))
=KDYŽ(NE(JE.CHYBHODN(POZVYHLEDAT($T16;$P$16:$P$19;0)));$D$18:$D$20;KDYŽ(NE(JE.CHYBHODN(POZVYHLEDAT($T16;$P$26:$P$27;0)));$D$28:$D$30;""))
Dal by som to do Definovaného Názvu, ten do Overenie dát.
Ale odporúčam aj farebnú kontrolu cez Podmienené formátovanie s kontrolou MATCH, či sa nachádza v už vybraná hodnota v zozname danom tým počítaným Definovaným názvom. Z prostého dôvodu. Ak zmeníte modrý, v žltej bunke ostane pôvodne vybraná hodnota z predchádzajúceho zoznamu, aj keď je nad bunkou už vypočítaný nový zoznam.

EDIT:
Pridaná príloha s príkladom aj toho Podmieneného formátovania, kde je aj iný príklad, nie cez MATCH ale cez COUNTIF.

=SUMIFS(T:T;R:R;">="&DATE(YEAR(TODAY());1;1);R:R;"<="&DATE(YEAR(TODAY());12;31))
=SUMIFS(T:T;R:R;">="&DATUM(ROK(DNES());1;1);R:R;"<="&DATUM(ROK(DNES());12;31))

Sub T()
With Worksheets("Home")
DoData = Format(.Range("B1").Value, "d.m.yyyy")
OdData = Format(.Range("B3").Value, "d.m.yyyy")
With .ChartObjects("Graf 2").Chart.PivotLayout.PivotTable.PivotFields("Datum")
.ClearLabelFilters
.PivotItems("(blank)").Visible = False
.PivotFilters.Add2 Type:=xlCaptionIsBetween, Value1:=OdData, Value2:=DoData
End With
End With
End Sub

Ja by som si ale previedol ten "dátum" na dátum a potom by to bolo
Sub T()
With Worksheets("Home")
DoData = CDbl(.Range("B1").Value)
OdData = CDbl(.Range("B3").Value)
With .ChartObjects("Graf 2").Chart.PivotLayout.PivotTable.PivotFields("Datum")
.ClearLabelFilters
.PivotItems("(blank)").Visible = False
.PivotFilters.Add2 Type:=xlDateBetween, Value1:=OdData, Value2:=DoData
End With
End With
End Sub

Chýba Vám tam ukončenie chodu makra pred "Copy:". Vám teraz makro za každých okolností pokračuje za podmienkou If.

musíte dať buď
...
End If

Exit Sub

Copy:
...

alebo, ak sa má Copy: správa iba preskočiť a makro pokračuje za ňou tak napr.
...
End If

GoTo Pokracuj

Copy:
MsgBox "kopírujem"

Pokracuj:
...

alebo tú správu a iné veci, čo chcete v jednotlivých prípadoch urobiť, urobte rovno v If Then Else

+-, ale veľmi bude záležať čo, kam, a koľkokrát budete logovať, zápis logu naraz alebo po jednom...

Vy chcete vypísať zoznam prvých neprejdených dátumov? V to prípade nemôžete brať do úvahy prvý riadok oblasti, ale prvý neprejdený, čo môže byť aj tretí a pod. Alebo za každých okolností vždy prvý? Napadlo ma, a čo tak to urobiť pri každom prepočítaní makrom? Rovnako ako očerveňovanie tlačítka?
Tie oblasti budú vždy rovnaké (počet, veľkosť, umiestnenie)?

Zmenené Podmienené formátovanie, zoraďovacia procedúra, volanie makier, doplnené hľadanie danej bunky do bunky pod tlačítko, prefarbenie tlačítka, zmena výberového zoznamu...

Ak máte hľadaný výraz v C1 a prehľadávané výrazy v A a lat. v B tak napr.:
=IFERROR(VLOOKUP(C1;A2:B100;2;FALSE);"")
=IFERROR(SVYHLEDAT(C1;A2:B100;2;NEPRAVDA);"")

Poslal som Vám SZ...

Asi nerozumiem čo chcete:
=HYPERLINK("#'List1'!M"&ROW();"123")
=HYPERTEXTOVÝ.ODKAZ("#'List1'!M"&ŘÁDEK();"123")

Skúste priložiť nejakú anonymizovanú prílohu. Keď si máme všetko vytvárať a premýšľať nad eventualitami, to je na figu...
Znázornite tam, aký požadujete výsledok - manuálne vyrobený.

Dalo by sa to obabrať ešte cez SUMPRODUCT/SOUČIN.SKALÁRNÍ bez zmeny pôvodných dát

Problém je v tom "dátume" - nie je to dátum. Treba ho previesť na dátum, nestačí iba nastaviť formát na dátum. Treba to napr. vynásobiť 1* alebo previesť text na stĺpce alebo dočasne pomocný stĺpec s DATEVALUE/DATEVALUE a pod.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje