Příspěvky uživatele
< návrat zpět
Ahoj všem,
prosím o radu, jakým způsobem ošetřit vkládání dat z jednoho listu (formulář) do druhého (databáze) a to za podmínky, pouze tehdy, pokud se vedle stroje ukáže projekt, potom vezmi z "formuláře" celý řádek a vlož ho do databáze.
Níže je popsáno, jak soubor fuguje-má fungovat(občas tam jsou chyby a data se ne a ne přesunout do listu "databáze"
A)mám v listu "01_Formular" buňky, do kterých zapisuje mistr 1 celou směnu:
1.Jsou tam pevně dané (poslední tři stroje se musí vybrat) stroje a ke každému zapisuje výrobu
2.Ke každému stroji musí zapsat vyráběný projekt (řešeno Axctive ComboBoxem)
3. Ostatní hodnoty jsou zapsány do klasických buněk
B)po zapsání všech směny/projekty/ok ks/nok ks atd.
je tlačítko VLOŽIT
C) Tlačítko VLOŽIT vezme všechny data z listu "01_Formular" a přesune je do listu "02_VyrobniData" a tam se data poskládají do sloupců ALE S MEZERAM (prázdnými řádky)
Děkuji za jakoukoliv radu.
O.B. 
Ještě prosím o jednu pomoc. Když se stáhnou všechny data ze všech souborů z adresáře DATA do souboru Souhrn02_funguje, ale v listu DataSouboru ve sloupci G jsou příliš "nafouklá" čísla a to vždy o "tři nuly" takže pak umazávám poslední 000, zřejmě je to chyba při převodu z jednotlivých souborů (hodnoty jsou čísla) z adresáře DATA.
Díky.
Ahoj ještě se vracím k vynikající práci, kterou odvedl Stalker. Používám to a funguje skvěle. Ještě prosím o pomoc s tím, když se z jednotlivých souborů nahrávají data, co v jednotlivých souborech mají FORMÁT DATUM, tak aby i v tom souboru Souhrn02 ty stejné data měla FORMÁT DATUM, teď se v souboru Souhrn02 v listu DataSouboru tváří jako číslo s tečkami (obecný formát) a to nelze použít pro pozdější formátování datumu (v kont. tabulkách atd.).
Prosím o pomoc.
Děkuji. 
Ahoj vyzkouším. Díky za pomoc.
Ahoj díval jsem se na kód, ale nemůžu přijít na to, jak přidat ještě jednu hodnotu ze zdrojových dat, aby se automaticky překopírovala do souboru Souhrn02. Jde o sloupec Datumstyp. Ten je ve zdrojových souborech (adresář DATA) ve sloupci H:H.
Prosím o přidání části kódu do souboru Souhrn02 do listu DataSouboru sloupec H:H.
Děkuji.O.B.
Najdu si čas a projdu si to. Zrovna testuji soubor "na živo" a mám zásek....
Mám tam tak min. 65 souborů, ze kterých chci tahat data a kód se zasekl něco 3.. (viz výstřižek v listu1)
Prosím znovu o pomoc.
Děkuji.
Jinak to jak jsi to naprogramoval je super. Ušetří mi to hromadu času.
Děkuji.
Ahoj děkuji za takovou pomoc. Máš prosím nějaké zdroje, školení, ze kterých by se mohl začít učit takovéto věci programovat?
To co jsi poslal funguje perfektně. Bohužel jsem nedomyslel, že moje datové soubory jsou staré excel 1997 až 2003 viz příloha, no a z těch to vytáhnout neumím. Popravdě potřebuji ze souborů vytáhnout a uložit více dat, které se vyskytují pořád na stejném místě.....v souboru Souhrn01 v listu2 jsou popsané sloupce co se kde vyskytuje v souborech z adresáře DATA. Vždycky tam jsou pevně dané texty, které představují záhlaví a pak data.
Všechny oblasti ze souborů z adresáře DATA vytáhnout a vložit do spojité oblasti v listu2 pro snadnou filtraci, kont. tabulky atdd.
Kdyby se to někomu povedlo bylo by to eňo ňuno.
Ahoj asi to budu rozebírat postupně.
1.Mám dva soubory, každý v jiném adresáři
2.Jeden v adresáři někde na C:TEST\DATA\data01.xlsx a soubor se jmenuje např. data01 a další data02 (název souboru může být proměnný)
3.Druhý v adresáři někde na C:TEST\souhrn.xlsx
4.Otevřu soubor souhrn.xlsx v list1 a po zmáčknutí tlačítka si do sloupce A:A si vygeneruji seznam souborů z adresáře DATA
5.po zmáčknutí dalšího tlačítka VBA začne otvírat postupně soubory data01 až...... (dle vytvořeného seznamu na listu1) a z těchto souborů, bude postupně kopírovat hodnoty z buněk A1 do souboru souhrn.xlsx do listu2 do sloupce A:A
6. po zkopírovaní hodnoty se danný sobour data01 až...., vždy uzavře
7. výsledek je, že ze všech souborů z adresáře C:TEST\DATA\
budu mít zkopírované hodnoty na jedno místo v souboru souhrn.xlsx v listu2 sloupci A:A
Problém je, že je tam spousta poměnných:
- cesta do adresáře
- názvy souborů
.....
Snad je to teĎ jasnější 
makro pro vytvoření seznamu mám a celkem funguje....
Dobrý den,
prosím o pomoc s otevřením sešitu někde na disku a zkopírováním dat do otevřeného sešitu:
1. Mám soubory .xlsx uložené v adresáři DATA a soubory budou mít různé názvy (proměnné, ale vždy koncovka xlsx)
v každém souboru mám v buňce list1, buňka A1 hodnotu v textovém formátu např. "8Y0"
2. Mám otevřený soubor SOUHRN.xlsx a v listu1 a sloupci A:A , bude textový seznam souborů (který pomoci makra vygeneruji z adresáře DATA (např.data01 .. 02... 03, tzn. je to proměnná v názvu-textu souboru)
3. Zmáčknu tlačítko generovat data z adresáře DATA a makro, bude postupně otvírat jednotlivé soubory dle seznamu v aktivním sešitu, listu1, sloupce A:A a kopírovat z každého otevřeného souboru z listu1 hodnotu v buňce A1 do aktivního sešitu do listu2 do sloupce A:A
4. Po zkopírování textu ze souboru otevřeného dle seznamu v souboru SOUHRN.xlsx a v listu1 a sloupci A:A.
Se aktuálně otevřený soubor (např. data01) uzavře a pak makro pokračuje dalším otevřením souboru dle seznamu v souboru SOUHRN.xlsx a v listu1 a sloupci A:A.
Je to taková slovní úloha.
Poradil bych si s tímto v rámci jednoho aktivního sešitu z listu1 do listu2, ale tady se jedná o mnohem hlubší znalost práce s proměnnými.
Prosím tedy o pomoc.
Děkuji.
OB
Děkuji.
Dobrý den,
prosím o pomoc s automatizací pro přetočení celé tabulky a výsledek, aby byl ve čtyřech sloupcích.
Aktuální stav:
Mám standartní tabulku v prvním levém sloupci jsou čísla materiálů a v dalších jsou v prvním řádku datumy a pod těmi jsou čísla, které v řádku patří k jednotlivým materiálům.
Vzor:
Materil numb. / Material text / 14.4./ 15.4 / 16.4 / 17.4/
16A.01 A 1 2 0 8
Nový stav:
udělat 4 sloupce
Materil numb. / Material text / Datum / Qty /
16A.01 A 14.4 1
16A.01 A 15.4 2
16A.01 A 16.4 0
16A.01 A 17.4 8
Vzorový příklad dávám do přílohy.
Děkuji za pomoc.
S pozdravem,
OB
elninoslov - Děkuji za pomoc. Vše funguje dle představ.
SUPER!Ano děkuji. Takto to funguje. Ještě prosím o info, jak to udělat, aby se mi dynamicky přepsala informace:
Set LOsource = ListObjects("Tabulka1")
když budu kopírovat List1 a vytvořím List1(2) tak se mi tam ukáže tabulka pojmenovaná "Tabulka14".
Když budu znovu kopírovat ten samý List1 a vytvořím další List1 (3) tak je tam opět tabulka s jiným názvem, tentokrát "Tabulka15" a opět jak tento název dostat v rámci aktivního listu do:
Set LOsource = ListObjects("Tabulka15")?
Děkuji za radu.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články