Příspěvky uživatele

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.

Prípadne si do PERSONAL.XLSB hodiť makro, ktoré bude fungovať napr. skratkou Ctrl+M iba na hociakom súbore začínajúcom "Export" (prípadne iné pravidlo)
Sub CopyActiveUsedColumns()
Dim RNG As Range
With ActiveWorkbook
If Left(.Name, 6) = "Export" Then
Set RNG = Intersect(Selection.EntireColumn, .ActiveSheet.UsedRange)
If Not RNG Is Nothing Then RNG.Copy
End If
End With
End Sub

Nemáte to náhodou objekt Tabuľka? Nie obyč. tabuľka. Ak by ste to mohli prehodiť na objekt Tabuľka (Ctrl+T), tak by to bola brnkačka - iba klik na hornú hranu hlavičky.

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje