Díky, kontigenčka mě nanapadla.
Ten výstup není z PQ, to jsem udělal jen cvičný soubor.
Zdravím, potřeboval bych pomoct se vzorečkem. Funguje mi pro jeden řádek, ale ne pro ostatní. Je nějaká možnost jak to udělat, abych nemusel pro každý řádek psát vzorec zvlášť, ale jen to klasicky stáhnout dolů? Viz příloha.
Potřebuji sečíst hodnoty pro jednotlivé řádky a zapsat je do daných měsíců. Ale z té přilohy to bude asi více pochopitelné.
A ještě bych měl jeden dotaz, můj původní soubor má tabulku vygenerovanou z Power query, mám tam stejný vzorec, ale nenačte to žádnou hodnotu. Je nějaká možnost jak to načítat přímo z toho? Pokud ne, tak nevadí, překopíruju si to jako hodnoty na jiný list. Ale kdyby to šlo, bylo by to fajn.
Díky za tipy
Nakonec jsem na to přišel. Ale kdyby byla nějaká lepší varianta klidně si nechám poradit.
Kde v Excelu najdu nějaké doplnění procent podle zadání uživatele?
V příloze je příklad. Mám tam objem materiálu, objem kontjneru, celková spotřeba kontejnerů. Ale to je využití při zaplnění kontejneru ze 100 %, což úplně není reálné.
Potřebuji aby v buňce B4 byl nějaký list s procenty nebo, že by uživatel sám doplnil procenta. Např. by klikl nebo napsal, že chce zaplnění ze 70 % a vypočítá se mu 70 %.
nedávno jsem na to viděl nějaké návody, ale teď nic nemůžu najít.
Ideálně bez makra.
Děkuji.
Díky, funguje to. Proškolim se pořádně v těch polích, vypadá to užitečně.
Rozumím, děkuji.
Ještě bych měl dotaz. Mám tam vlookup na jiný Excel. Je nějaká možnost, abych ho nemusel mít otevřený při spuštění makra? Zkoušel jsem to pomocí data = GetObject(ThisWorkbook.Path & "\" & "masterdata_test.xlsx")
Ale chtělo to po mě zvolit soubor, když jsem spustil makro.
Díky moc, druhá verze funguje tak, jak jsem chtěl.
Edit: Můžu se se jen zeptat proč to je s tím with? Když odstraním with a tečky před Range, tak to funguje taky.
Pardon B5.
Zdravím, měl bych dva dotazy.
1) Jak zapsat do buňky odkaz na jinou buňku? Mám buňky AJ2:AJ5, do nich potřebuju napsat odkaz na buňku B5.
Range("AJ2").FormulaR1C1 = "=R[3]C[-34]"
Range("AJ3").FormulaR1C1 = "=R[2]C[-34]"
Range("AJ4").FormulaR1C1 = "=R[1]C[-34]"
Range("AJ5").FormulaR1C1 = "=R[0]C[-34]"
Tak mi to zapíše jen hodnotu té buňky, já potřebuju odkaz na ni, aby tam bylo =B4
2) Jak pak stáhnu buňky AJ2:AJ5 k poslednímu řádku? Pokud je to jeden řádek dělal bych to Range("AJ2").AutoFill Destination:=Range("AJ2:AO" & posledni_radek), Type:=xlFillDefaultJenže u více řádků nevím jak.
Děkuji za rady.
Děkuji moc. Funguje to tak, jak jsem chtěl, následující dny budu testovat a pokusím se to předělat na náš soubor.
ctrl + ; vám vypíše dnešní datum.
Já se omlouvám, ale fakt si nerozumíme.
Psal jsem, že data se mají zapsat nově do sloupce E.
Do toho souboru, který jste pojmenoval Úprava se nemá zapisovat nic. Tam si jen uživatel sám, ručně zadá čísla těch dílů, u kterých chce zapsat číslo z týdne, který si zvolí. Pak klikne na tlačítko makro.
Například: Uživatel chce díl 2B-2B a potřebuje údaje z týdne 45. Tak otevře soubor Úprava a tam napíše název dílu (2B-2B) a zapíše vedle toho 14 (Protože 45. týden odpovídá čtrnáctému sloupci). Bude to lepší, když to bude psát jako pořadí takže buď 1-19 nebo sloupce M-AE. Protože za týden se to zase posune.
Pak klikne na tlačítko macro. Macro se spustí, podívá se do souboru Úprava jaké díly má hledat. Najde díl 2B-2B a hledá ten díl v soboru Data, když ho najde vezme data z třetího řádku daného dílu, ve sloupci, který uživatel předtím zadal. Chtěl 45. týden, takže vezme číslo -49 401 a zkopíruje a vloží/přepíše data ve sloupci E, takže vloží -49 401 do E7-E10.
Edit: Pročetl jsem své odpovědi ještě jednou a jestli jsem koukal správně, tak jsem nepsal, že má zapsat data do týdne ale vzít data/zkopírovat data z týdne.
Ono to řešení bude ještě triviálnější, jen se navzájem nechápem.
Prostě jen chci přetáhnout data z jednoho týdne, který si uživatel zvolil do sloupce E pro díl, který si uživatel zvolil. Viz příloha.
Ano, všechny tři sobory budou otevřené.
Ale asi jsme se zase nepochopili. jaká dvě makra? Jen jedno. Máme první makro a to je nastavené, že do Sloupce E zapíše data z pevně daného týdne. A já potřebuji, aby si uživatel mohl zvolit, které díly se zapíšou z týdne, který si zvolí.
A k tomu editu: Máte pravdu, já si toho nevšiml, když ve sloupci D je 0, tak se číslo vlastně nezmění. Tak v tom případě to potřebuji zapsat do sloupce E (Req. qty) aby ve sloupci C zůstal zachovaný vzorec.
Do PERSONAL.XLSB asi ne, ten sobour bude časem cestovat mezi více uživateli.
Bavil jsem se s kolegyní a ty tři poslední týdny jsou akorát v jiném formátu, protože se přidávaly nedávno a už se neupravilo makro, takže by se mělo počítat i s nima.
A k tomu mému zmatečnému popisu, zkusím to znovu.
Z listu zdroj se načte pouze název dílu, ty se pak porovnají s listem data a ty které najde, tak přepíše diff. podle týdne, který si uživatel zvolí.
Přikládám soubor, jak by to mělo ve finále vypadat. Uživatel chce tři díly, ty si nakopíruje do souboru (pouze názvy dílů) zapíše vedle nich číslo 14, to odpovídá týdnu 45. V soboru data spustí macro a to vezme data z 45. týdne a zkopíruje je to sloupce C. Pouze u těch dílů, které makro našlo v přechozím souboru. Ostatní díly nepřepisuje.
Ano budou to dva soubory a budou oba otevřené. List2 se může jmenovat třeba Zdroj. Makro bude ve třetím souboru, ale pro tento případ to může být v soboru Data, to pak snad zvládnu předělat na naše data.
Týdny by měly být v pořádku, měli bychom počítat jen na těch 16 týdnů, takže stačí sloupce M-AB, ale doptám se zítra kolegyně, proč jsou ty tři týdny jinak.
V listu2 nejsou žádné údaje. Tam si uživatel nakopíruje jen ty díly, u kterých potřebuje data v týdny, které si zvolí. Prostě si tam nakopíruje díly, které chce, někde zadá ze kterého týdne chce načíst data a makro bude pracovat jen v souboru Data, vezme data z týdne 44. a nakopíruje je do sloupce C (Diff.) pouze u těch dílů, které našel v soboru, Zdroj (List2).
Vím, je to trochu krkolomné, ale takhle jsem to dostal.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.