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

Příspěvky uživatele

Nič nikam nekopírujte. Urobte z programu Export do toho súboru, je jedno za aké obdobie, za celý rok, to je fuk. Dajte aktualizovať všetko na karte Údaje. To je celé. Rok, týždeň, typy vád a čo ja viem čo si ľahko vyfiltrujete rýchlymi filtrami, a zoradenie ide od najväčšieho.

Niektoré veci sa dajú jednoducho naklikať. Ten SW Vám exportuje do samostatných súborov?
Ak áno tak majú určite rovnakú štruktúru. Tu je príklad PQ.

Ak sú v exportoch aj iné vady, ako tie, ktoré potrebujete, treba ich uviesť, a urobí sa v PQ na to filter.
Tiež sa mi zdá, že to robíte to komplikovane. Alebo sa nechápeme.

Hmm, a nebolo by lepšie, keby sa cez PowerQuery naťahovali dáta rovno z tých súborov do dátového modelu, a ten by ste iba filtroval cez KT? A nevytváral by ste X listov a nekopíroval data z X súborov do nich. V zmene nejakých dát v niektorom zo zdrojových súborov, by ste iba klikol na Aktualizovať všetko, a PQ by sa aktualizoval. Žiadne makro.
Na toto je superexpert mepexg.

XLSM musíte zabaliť do ZIP, aby sa dal nahrať.

Lebo OnChange zachytí iba zmenu od užívateľa, nie zmenu vzorcom. Dá sa použiť OnCalculate, ale to bude spúšťané vždy pri akejkoľvek zmene (lebo každá vyvolá prepočet).

OnChange by fungoval, tak ako popisujete iba, ak by ste ho použil vo všetkých listoch, ktoré ovplyvňujú vzorce v liste, ktorý chcete filtrovať.

Dajte prílohu, ako to u Vás vyzerá, a popis čo potrebujete urobiť, ako sa to používa.

Zrovna tento netrval dlho, lebo ma princíp hneď trkol. Pár minút mi trvalo, kým som pochopil, že mi robia galibu tie medzery pri prevode textu na číslo. Škoda nemám stiahnutý ani Tvoj ani lugr-ov súbor, že by som si pozrel čas, tak iba tipujem 10-15-20 min? Aj s vyskúšaním. Niekedy to býva ale podstatne väčšie utrpenie, kým sa človek nakoniec dopracuje často aj k jednoduchému riešeniu. Vieš ako to býva, "Pre stromy nevidno les".

EDIT: PS: Áno vyhodnotenie vzorca je úplná tragédia. Také okno mohlo mať opodstatnenie v dobách VGA rozlíšenia, a nie FHD/4K... Nemá niekto nejakú featurku ako to zväčšiť?
Inak v bunke alebo v riadku vzorcov sa dá vyhodnotiť označená časť vzorca pomocou F9.

Makro som ešte nespustil, urobím najskôr hypotézu. Vy priraďujete do kolekcie bunky (Cell), nie hodnoty. Keď kolekciu potom čítate, v kolekcii je uložená bunka, nie hodnota. Hodnotu Vy v polke makra zmeníte, a potom z tej bunky v kolekcii prečítate hodnotu. No akú má mať asi hodnotu? Správne - tú novú.
Skúste priradiť do kolekcie Cell.Value či mám pravdu...

Pre blbca ??? To nemyslíte Vážne! Vy ste práveže šikula. Alebo si tykajme. Nehnevaj sa za katastro-formu ako som to popísal, ale už fakt ponáhľam spať. Takže nekameňovať pls :). Dúfam, že je takto pochopiteľný aj vzorec aj prečo som zmenil to A1 za B1.
Ten vzorec sa dá ešte zjednodušiť vynechaním ISNUMBER a hľadať sa v MATCH nebude TRUE ale nejaké obrovské číslo 9E+307 a tretí parameter bude 1.

EDIT:
@marjankaj : však som aj písal minule, čo mi všetko je, že som chorý

A ešte som zabudol na variant, že to čo dávate do kolekcie MAT bude vyhľadávací kľúč v INFO:
Sub KOLEKCE_LEZAKY4()

Dim myCol_MAT As Collection
Set myCol_MAT = New Collection
Dim Oblast_MAT As Range
Dim myCol_INFO As Collection
Set myCol_INFO = New Collection
Dim Oblast_INFO As Range
Dim Cell As Range
Dim Item As Range
Dim MaxRow As Long

'Tvorba KOLEKCE z MAT
MaxRow = List1.Cells(Rows.Count, "D").End(xlUp).Row

Set Oblast_MAT = List1.Range("D4:D" & MaxRow)
For Each Cell In Oblast_MAT
myCol_MAT.Add Cell
Next Cell

'Tvorba KOLEKCE z INFO
Set Oblast_INFO = List1.Range("E4:E" & MaxRow)
For Each Cell In Oblast_INFO
myCol_INFO.Add Cell, CStr(Cell.Offset(0, -1))
Next Cell

MsgBox myCol_INFO(CStr(List1.Range("I4")))
End Sub

Musel by ste si urobiť ešte jednu pomocnú kolekciu s kľúčom a priradeným indexom, alebo rovno uložiť do kolekcie viacero info Array(index, hodnota) a hľadať kľúčom, alebo použiť jednu kolekciu, ale tu bude záležať na tom, čo potom potrebujete spraviť.

EDIT: Tu máte narýchlo všetky 3 spomenuté:
Sub KOLEKCE_LEZAKY()

Dim myCol_MAT As Collection
Set myCol_MAT = New Collection
Dim Oblast_MAT As Range
Dim myCol_INFO As Collection
Set myCol_INFO = New Collection
Dim Oblast_INFO As Range
Dim Cell As Range
Dim Item As Range
Dim MaxRow As Long
Dim i As Long

'Tvorba KOLEKCE z MAT
MaxRow = List1.Cells(Rows.Count, "D").End(xlUp).Row

Set Oblast_MAT = List1.Range("D4:D" & MaxRow)
For Each Cell In Oblast_MAT
i = i + 1
myCol_MAT.Add Array(Cell, i), CStr(Cell)
Next Cell

'Tvorba KOLEKCE z INFO
Set Oblast_INFO = List1.Range("E4:E" & MaxRow)
For Each Cell In Oblast_INFO
myCol_INFO.Add Cell
Next Cell

MsgBox myCol_INFO(myCol_MAT(CStr(List1.Range("I4")))(1))
End Sub
Sub KOLEKCE_LEZAKY2()

Dim myCol_MAT As Collection
Set myCol_MAT = New Collection
Dim Oblast_MAT As Range
Dim myCol_INFO As Collection
Set myCol_INFO = New Collection
Dim Oblast_INFO As Range
Dim Cell As Range
Dim Item As Range
Dim MaxRow As Long

'Tvorba KOLEKCE z MAT
MaxRow = List1.Cells(Rows.Count, "D").End(xlUp).Row

Set Oblast_MAT = List1.Range("D4:D" & MaxRow)
For Each Cell In Oblast_MAT
myCol_MAT.Add Array(Cell, Cell.Offset(0, 1)), CStr(Cell)
Next Cell

MsgBox myCol_MAT(CStr(List1.Range("I4")))(1)
End Sub
Sub KOLEKCE_LEZAKY3()

Dim myCol_MAT As Collection
Set myCol_MAT = New Collection
Dim Oblast_MAT As Range
Dim myCol_INFO As Collection
Set myCol_INFO = New Collection
Dim Oblast_INFO As Range
Dim Cell As Range
Dim Item As Range
Dim MaxRow As Long
Dim i As Long
Dim myCol_IDX As Collection
Set myCol_IDX = New Collection

'Tvorba KOLEKCE z MAT
MaxRow = List1.Cells(Rows.Count, "D").End(xlUp).Row

Set Oblast_MAT = List1.Range("D4:D" & MaxRow)
For Each Cell In Oblast_MAT
i = i + 1
myCol_IDX.Add i, CStr(Cell)
myCol_MAT.Add Cell
Next Cell

'Tvorba KOLEKCE z INFO
Set Oblast_INFO = List1.Range("E4:E" & MaxRow)
For Each Cell In Oblast_INFO
myCol_INFO.Add Cell
Next Cell

MsgBox myCol_INFO(myCol_IDX(CStr(List1.Range("I4"))))
End Sub

To radšej nie, aby som nezostal namyslený, prípadná chyba potom o to viacej bolí

Upravený aj vzorec v rozbaľovacom zozname, aj vzorec v ANO/NE.

Inak zdroj upravený na Váš prípad. Pitvať ten vzorec nebudem.

Ak použijete maticové vzorce, nemusíte mať tú prevodnú tabuľku, len 1 pomocný stĺpec.
Mená zapisujte bez medzery na konci. Matica si to spojí. Urobí zoznam bez medzier. Rozbaľovací zoznam berie iba vyplnené, a ďalšia matica počíta overenie na základe podmienok.
Pr.

Spodný dátum "poučení" netreba kontrolovať? Teda nemôže nastať, že bude napr. naplánované poučenie do budúcna na nejaký dátum? Je to vždy len minulý alebo dnešný dátum?

Tá medzitabuľka H2J16 je potrebná? Nestačí iba 1 pomocný/skrytý spájajúci stĺpec v prvotnej tabuľke?

Medzi menami sú medzery, a teda netreba urobiť výberový zoznam bez medzier? To by sa urobilo v tom istom spomínanom pomocnom stĺpci.

Teraz, takto ako to máte to bude:
=IF(COUNTIFS($I$3:$I$16;I22;$D$3:$D$16;"<="&G22;$E$3:$E$16;">="&G22);"ANO";"NE")
=KDYŽ(COUNTIFS($I$3:$I$16;I22;$D$3:$D$16;"<="&G22;$E$3:$E$16;">="&G22);"ANO";"NE")
ak budete zadávať dátum iba do prvej bunky z trojice, tak musí byť namiesto ...&G22... toto ...&$G$22... pre prvú trojicu, ...&$G$27... pre druhú trojicu atď.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse