Příspěvky uživatele

Čím ďalej častejšie som fakt nechápavý

Neviem, čo je cieľom. Skopírovať v aktívnom liste hodnotu z A do B ???
Sub ImportXml2()
Dim Bunka As Range, PodOblast As Range, Oznacene As Range

Set Oznacene = Intersect(ActiveSheet.Columns("B"), Selection.SpecialCells(xlCellTypeVisible).EntireRow)
If Not Oznacene Is Nothing Then
For Each PodOblast In Oznacene
For Each Bunka In PodOblast
Bunka.Value = Bunka.Offset(0, -1).Value
Next Bunka
Next PodOblast
End If
End Sub

Ak je príloha *.xlsm, treba ju zbaliť do ZIP/7Z/RAR.

Môžete použiť v novších Office funkciu MINIFS, alebo maticu, alebo kontingenčku. Ak ide len o toto, nepotrebujete makro vôbec. Ale tie makrá som neskúmal ešte. Neviem čo robia

Myslím, že najjednoduchšie by bolo, keby ste uviedol presne aký máte zdroj (teda napr. takýto súbor CSV mám) a takto chcem aby vyzeral výsledok (list manuálne vyrobený s požadovaným layoutom). A makro čo to urobí naraz nebude problém pre mnohých z tohto fóra...
Hodnota s Min má byť uvedená vo všetkých riadkoch daného dňa?

Neskôr pozriem na Vašu novú prílohu. Zatiaľ omrknite toto - len taký pokus. Ale meno musí byť zo zrejmého dôvodu automatického zoraďovania pridané pred započatím vpisovania údajov do listu počiatočného mesiaca pre nového pracanta. Meníte iba rok v liste Nastavení.

Hmm, niekoľko poznámok. Samotný vzorec na dotiahnutie hodnôt zo stĺpca 'Matice univerzál'!BP do listu 'sum Matice' nie je problém:
=IF($A3="";"";IFERROR(INDEX('Matice univerzál'!$BP$5:$BP$422;MATCH($A3;'Matice univerzál'!$A$5:$A$422;0)+1);""))
=KDYŽ($A3="";"";IFERROR(INDEX('Matice univerzál'!$BP$5:$BP$422;POZVYHLEDAT($A3;'Matice univerzál'!$A$5:$A$422;0)+1);""))
mení sa len to číslo +1(25%, +2(50%), +3(100%)
Ale.
Vy chcete meniť 'seznam zam' a na základe toho abecedne dynamicky radiť tieto mená v listoch 'Matice univerzál' a 'sum Matice' ??? A ako si to predstavujete, že to bude fungovať? Ak bude tabuľka vyplnená, pridáte meno, ktoré sa vsunie niekam doprostred a bác, vyplnené dáta už nesedia k menám. Ak to myslíte inak dovysvetlite.
Ďalej, Vy chcete hľadať meno v inom súbore? Ten súbor musí existovať. Na to myslite, hlavne pri zmene roka. Vzorec by mohol byť napr.:
=INDEX('E:\Download\[nv-6.xlsx]Matice univerzál'!$BP:$BP;LOOKUP(A5;'E:\Download\[nv-6.xlsx]Matice univerzál'!$A$5:$A$422;ROW('E:\Download\[nv-6.xlsx]Matice univerzál'!$BP$5:$BP$422)+1))
=INDEX('E:\Download\[nv-6.xlsx]Matice univerzál'!$BP:$BP;VYHLEDAT(A5;'E:\Download\[nv-6.xlsx]Matice univerzál'!$A$5:$A$422;ŘÁDEK('E:\Download\[nv-6.xlsx]Matice univerzál'!$BP$5:$BP$422)+1))
menenie +1,+2,+3 ako pre tým.
Ako zisťujete sviatok a víkend?

Podnet: Nebolo by lepšie to urobiť tak, že by to bol jeden súbor s listami mesiacov, kde by sa aj dátumy, sviatky, víkendy samé označili, a vzorce by na základe ich automatického výpočtu rátali 25,50,100%? Pre každé meno by stačil 1 riadok.

Zmenil som Vám tam tie divné vzorce. Vyskúšajte (červené hodnoty som si zmenil ja na skúšku).
Niektorým veciam nerozumiem.
"...zobrazí se v buňce zelený data bar, pokud ne, zobrazí se v jiné barvě..."
Akože v inej farbe? Ako chcete zobraziť dátový pruh, ktorý je mimo intervaly?
Ten "Rozptyl hodnot" sa má prejaviť aj v stĺpci N?
Teraz je tam
=IF(ABS(M3)>=1;"NOK";IF(ABS(M3)>=0,5;1;"K"))
=KDYŽ(ABS(M3)>=1;"NOK";KDYŽ(ABS(M3)>=0,5;1;"K"))
a potom čo, bude tam ?
=IF(ABS(M3)>=2*$O$3*1000;"NOK";IF(ABS(M3)>=$O$3*1000;1;"K"))
=KDYŽ(ABS(M3)>=2*$O$3*1000;"NOK";KDYŽ(ABS(M3)>=$O$3*1000;1;"K"))

Stačil by aj obyčajný maticový SUM bez MMULT
=SUM(NOT(ISERROR(FIND(G1;A2:E5)))*A1:E1)
=SUMA(NE(JE.CHYBHODN(NAJÍT(G1;A2:E5)))*A1:E1)
alebo dokonca nematicový zápis
=SUMPRODUCT(NOT(ISERROR(FIND(G1;A2:E5)))*A1:E1)
=SOUČIN.SKALÁRNÍ(NE(JE.CHYBHODN(NAJÍT(G1;A2:E5)))*A1:E1)
A ak by sa malo nejaké meno vyskytovať viackrát v jednej bunke treba to riešiť inak, napr. nematicovo takto:
=SUMPRODUCT((LEN(A2:E5)-LEN(SUBSTITUTE(A2:E5;G1;"")))*A1:E1)
=SOUČIN.SKALÁRNÍ((DÉLKA(A2:E5)-DÉLKA(DOSADIT(A2:E5;G1;"")))*A1:E1)
Čo je zatiaľ jediný z uvedených spôsobov, ktorý dá výsledok 0, ak je hľadaná bunka G1 prázdna :).

=SUM(MMULT(--(NOT(ISERROR(FIND(G1;A2:E5))));TRANSPOSE(A1:E1)))
=SUMA(SOUČIN.MATIC(--(NE(JE.CHYBHODN(NAJÍT(G1;A2:E5))));TRANSPOZICE(A1:E1)))

??? Ale veď Vám to s tým ANO nefunguje. Makrá musia fungovať správne, alebo ich odstráňte. Makrá nemajú Undo, teda ak nejaké čo tam nemá byť omylom spustíte, alebo také čo nefunguje ako má, nevrátite to naspäť. A dodrbkané dáta si nemusíte ani všimnúť. Tým duplom, ak sa makro, ako vo Vašom prípade spúšťa automaticky pri zmene bunky. Ja som tam sám zabudol makrá, ktorými som si overoval parametre pre filter. Teraz spracovávam data, nemôžem si nič v Exceli otvoriť, ale napíšte, čo má to makro s ANO robiť. Myslím, že tam bude treba len zameniť stĺpce. Potom na to pozriem.

Napríklad takto...

Ale pozerám to pôvodné makro, čo tam máte, určo nefunguje. Prečo? Lebo kontroluje, či je v O "Ano", lenže "Ano"/"Ne" nie je v O ale v K. Podľa zápisu som to makro vyhotovil ja, a očividne bolo určené na iný stĺpec. Ako to má teda byť, a čo má robiť?

Pridal som aj ten PF.

A čo znamená výraz "tak aby ho to našlo ve sloupci B" ???

To nie je odkaz na súbor, ale iba na hlášku o nahratí súboru.

EDIT:
Takže odkaz na súbor tam je
https://uloz.to/file/kA1Nsh4r2yja/pokus-xlsm

Máte nešťastne nazvaný "Objekt Tabuľka"/"Excel Table"/"Tabuľka" názvom "Tabulka1" - modrá, ale pritom názvom "Tabulka1" je nazvaný PQ dotaz v zelenej "Tabulka1_2". Pritom PQ Tabulka1 dotaz čerpá data z modrej Tabuľky Tabulka1.
Nepripadá Vám to absolútne mätúce?

Urobte príkladový súbor so zdrojovou Tabuľkou nazvanou tblZdroj, potom urobte PQ dotaz nad touto Tabuľkou tblZdroj s výsledkom do Tabuľky s názvom pqVysledok. Ak tam máte ešte viac Tabuliek či PQ dotazov, obdobným jasne nemätúcim názvoslovím pomenujte aj niektoré z nich (nemusia byť všetky, ale ak ich je viac tak aspoň 2 z každého druhu). A potom nám povedzte čo potrebujete.

Ja tam žiadne pripojenia/Connections nevidím.

EDIT2:
Nedalo mi to, a tu som pripravil nejaké príklady. Ak je PQ len do Tabuľky, stačí aktualizovať len ju. Ak je PQ do DM alebo do DM+Tabuľky aktualizujte iba Connection v DM.

Ak som ani jedno zo 4 netrafil, tak už neviem.

A neskúšal ste použiť Ron de Bruina ?

2. Ak máte Office min 2016 použite na spojenie tabuliek z listov nástroj PowerQuery (PQ) a dotaz bude slúžiť ako zdroj pre KT. Ak PQ neovládate, pridajte sem prílohu s ukážkou tých dát, čo chcete spojiť.

1. Napadá ma to jedine makrom, ale tie heslá by tam museli byť uložené, či už v zamknutom liste alebo priamo v makre. No makro nemá také zabezpečenie aby sa nedalo zdolať šikovnejším užívateľom. To nie je na zabezpečenie dát, ale na zabránenie nechcenej úprave kódu omylom.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje