Příspěvky uživatele
< návrat zpět
A čo tak jednoduchá kontingenčka?
To
... sh.Name ...
nahraďte za toto
... sh.Name & Format(Now(), "-ddmmyyyy-hhnnss") ...
Ale treba si dať pozor, či nebude súbor otváraný aj na inojazyčnom Exceli. Ak áno, tak to české "rrrr" bude hádzať chybu, len napr. v SK alebo v EN je to "yyyy". Preto radšej odporúčam rok prilepiť samostatne.
="Datum: "&TEXT(TODAY();"dd.mm.")&YEAR(TODAY())
="Datum: "&HODNOTA.NA.TEXT(DNES();"dd.mm.")&YEAR(DNES())
Ale ešte lepšie bude nechať v bunke klasický dátum
=TODAY()
=DNES()
a bunke dať Vlastný formát
"Datum: "dd.mm.yyyy
(ak budete ten Vlastný formát po 1. krát vytvárať v CZ verzii bude to "Datum: "dd.mm.rrrr a pri prenose do inojazyčnej verzie sa to samé upraví)
Vyskúšajte prílohu. V CZ verzii by nemal fungovať A1.
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ší 
"Baja" napsal/a:
...po úpravě vyhodí chybu...
Akej úprave? Úprave čoho? V ktorom súbore a liste? Ten čo som poslal ja/Vy? Takže tam nebude ani "zůstatek 25%/50%/100%/Celkem"?
"Baja" napsal/a:
...poprosit o tu zkrácenou verzi...
Takže žiadne dátumy, ani "V" ani "Č".
Žiadne automatické počítanie víkendov/sviatkov?
Žiadna tabuľka sviatkov vlastne nieje potreba.
Žiadne automatické abecedné radenie mien?
Najlepšie by bolo priložiť požadovaný výsledok, a ja Vám na to vzorce už napáskujem
Čí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"))
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články