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

Příspěvky uživatele

Nematicovo ma napadá proste sčítať jednotlivé zlomky:
=SUMPRODUCT($B$1:$F$1*ISNUMBER(FIND("|"&H1&"|";$B$2:$F$5)))+SUMPRODUCT($B$1:$F$1/2*ISNUMBER(FIND("|"&H1&"2|";$B$2:$F$5)))+SUMPRODUCT($B$1:$F$1/3*ISNUMBER(FIND("|"&H1&"3|";$B$2:$F$5)))+SUMPRODUCT($B$1:$F$1/4*ISNUMBER(FIND("|"&H1&"4|";$B$2:$F$5)))
=SOUČIN.SKALÁRNÍ($B$1:$F$1*JE.ČISLO(NAJÍT("|"&H1&"|";$B$2:$F$5)))+SOUČIN.SKALÁRNÍ($B$1:$F$1/2*JE.ČISLO(NAJÍT("|"&H1&"2|";$B$2:$F$5)))+SOUČIN.SKALÁRNÍ($B$1:$F$1/3*JE.ČISLO(NAJÍT("|"&H1&"3|";$B$2:$F$5)))+SOUČIN.SKALÁRNÍ($B$1:$F$1/4*JE.ČISLO(NAJÍT("|"&H1&"4|";$B$2:$F$5)))

Asi takto.
Inak neviem načo je tam to podmienené červené formátovanie iba bunky E6 v listoch mesiacov ... Buď to odstráňte alebo nastavte pre celé stĺpce E6:E75 príp. E6:G75 ... (v každom liste zvlášť!)

Hmm, dnes mi teda ide karta. Pridávam sa k Lugrovi - netuším ako to funguje

1. Takže ako sa Vy dostanete k tomu, že sú vyplnené tabuľky nákladov lietadiel ktoré prileteli? Teda tabuľky na liste Zdroj. To tam kolegyňa manuálne opisuje s vytlačeného papieru, ale kopíruje z PDF, alebo importuje nejaký iný elektronický súbor? Už sa na to pýtal Lugr.

2. Takže funkcia Vašich listov je vlastne nasledovná???
Zdroj - Príjem
Kontingenčky - (asi) Sklad
Letecká - Objednávky/Výdaj

3. Ak si niekto objedná 16 a balenie je po 20, tak mu pošlete 20? A na základe čoho má makro poznať, čo je kusový, a čo balíkový materiál? Chýba nejaká infotabuľka.

4. "Requested Date" - asi ťažko bude kolegyňa hľadať ďalšie meruňky v poradí, ak treba brať v úvahu požadovaný dátum doručenia - teda nie ďalší riadok.

5. Vy potrebujete uchovávať informácie o tom, z ktorého lietadla sú tie odoslané meruňky? Normálne predsa sklad funguje tak, že je jedno ktorý kamión mi doviezol tehly. Kamióny mi plnia sklad, a zo skladu distribuujem objednané materiály. Že 20% tehál čo zákazníkovy naložím na auto mi priviezol na sklad kamión A, a 80% z tých čo mu naložím pochádza z kamiónu B, je predsa fuk. Či? Pretože stĺpce "14.6.2022A" a "14.6.2022.B" (inak nemajú rovnakú notáciu) na liste "Letecká" obsahujú koľko bolo pre danú objednávku odoslané z ktorého lietadla. To je problém, lebo nikde nevidím, že by sa uchovávala hodnota, koľko ktorého materiálu ostáva z ktorého lietala neexpedovaného.

6. Vybavené objednávky sa potom iksujú "X", teda mažú??? Tým duplom chýba zostávajúci počet na sklade, spomínaný vyššie.

Ďalšie otázky, upresnenia, nápady možno neskôr, keď sa trochu vyjasní logika veci. Ak teda vôbec...

Lepší a pochopiteľnejší by bol upresnený zápis:
...
For Each PodOblast In Oznacene.Areas
For Each Bunka In PodOblast.Cells
...
Lebo Cells/Areas/Range všetko je stále Range, tak je dobré to takto upresniť.

Čím som starší, tým som nechápavejší

Čí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.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse