Stránka 1 z 1

Přenos dat mezi sešity Excel - dodací listy

Napsal: 01 lis 2010 20:31
od d1amond
Zdravím,
programátor ve VB nejsem, to říkám rovnou. Proto se obracím na zkušenější. Už delší dobu si pohrávám s myšlenkou ulehčení práce (od doby co jsem začal pracovat). Mám šablonu pro dodací list (předem definovaný sešit), do které by se stiskem tlačítka kopírovaly data ze zdrojového sešitu. Neznám možnosti VB a proto se raději ptám, jak moc velká vymyšlenost to je - přikládám "ZdrojData" a "Sablona", kde je na List2 i úkazkové naplnění daty, příznak 5698.
Zdrojový soubor "ZdrojDATA" obsahuje na listech řádky s údaji(1 údaj = 1 řádek), které se mají přenášet - určující je příznak. Přenášet se mají vždy data se stejným příznakem. Může být více řádků na listu a na více listech, ale vždy je jeden shodný příznak.
Pokud se vyskytne více řádků na listu se stejným "Popis", jejich počet se sečte a přenese jako jedna položka + "SN" se přenáší každé zvlášť. Dále se přenáší "ZAR", "Kód" a buňka A1.
Po úspěšném přenosu se druhým tlačítkem naplní ve ZdrojData položka "DL" - všude, kde je shodný příznak.

Díky
ZdrojData.xls
(24 KiB) Staženo 433 x

Šablona.xls
(37.5 KiB) Staženo 491 x

Re: Přenos dat mezi sešity Excel - dodací listy

Napsal: 01 lis 2010 21:59
od navstevnik
Na listu Priklad v sesitu Sablona.xls komentare v bunkach B4 a D4 odkazuji na nespravne bunky, ma bytv B4 odkaz na prvni list B3 a v D4 odkaz na prvni list J3?
Data prenest v poradi listu MBG, MBMSI, MEM v sesitu ZdrojData.xls?
Nutne musi byt jako tlacitka na listu sablona pouzity automaticke tvary namisto ovladacich prvku ActiveX - tlacitka?
Je nejaky duvod k oddeleni prikazu na nacteni dat a doplneni cisla dodaciho listu? Vhodnejsi je vykonat neoddelene.
Data doplnovat na list sablona (na sablonu je to trochu hubene)? List bude vzdy obsahovat jen radky 1 a 3 a tlacitko(a)?
Predpokladas, ze bude sesit obsahovat procedury VBA? Predpokladam, ze budou jednotlive sesity ukladany, je zbytecne, aby obsahovaly procedury VBA, takze pouzit reseni, kdy budou pouze data prenesena do sesitu Sablona?

Re: Přenos dat mezi sešity Excel - dodací listy

Napsal: 01 lis 2010 22:24
od d1amond
Detaily
► Zobrazit spoiler


Data by se mohla začít plnit např. od řádku 15, bez ohledu na to, co je nad. Vzhledem k tomu, že se bude sešit ukládat, tak by asi bylo vhodné pouštět procedury ze ZdrojData, směrem na sablonu.

Re: Přenos dat mezi sešity Excel - dodací listy

Napsal: 02 lis 2010 11:30
od navstevnik
V proloze je pracovni verze (nejsou osetreny nektere chybove stavy) a sablona. Na listu Start prilozeneho souboru uprav cesty, nazvy, seznam listu. Sesity ZdrojDat a Dodlistxxxx jsou na konci procedury ulozeny a uzavreny.

Pro kontrolu. Pokud vše projde v pořádku, tak potom teprve doplnit číslo DL. Ale nevím, co to obnáší za proceduru?

Procedura data vlozi do dodaciho listu spravne, kontrola by mela probehnout ve fazi vkladani priznaku do sesitu ZdrojDat.
V procedure je potreba oznacit prenesene polozky shodne popisem (sloupec B:B) pro zadany priznak; k tomu se hodi prave vlozeni cisla dodaciho listu. Vlozene cislo dodaciho listu jiz neumozni opakovat vygenerovani dodaciho listu pro tentyz priznak. Pokud by toto reseni bylo nepruchodne, bude potrebna uprava.

Re: Přenos dat mezi sešity Excel - dodací listy

Napsal: 02 lis 2010 12:05
od d1amond
Pokorně se skláním. Je to přesně tak jak to má být!
Jdu se tím prokousat a dám vědět. 10e6 Díky:)

//Do šablony se vkládá i příznak, to by nemuselo být. Má tam nějakou fci? // oprava, využiju to.
//ještě jsem to neověřil, ale pokud data přesáhnou velikost papíru, pokračují dále svisle?

Re: Přenos dat mezi sešity Excel - dodací listy

Napsal: 02 lis 2010 16:40
od navstevnik
...pokud data přesáhnou velikost papíru, pokračují dále svisle?

Pokud mas na mysli zalomeni textu v bunce, tak to zatim neni ostreno, nyni je pouzito autoformatovani. Ma byt nastavena pevna sirka sloupcu a pripadne zalamovat text? Asi bude vhodne nastavit zalamovani v sablone a nepouzit autoformat, navrhni tedy sablonu i se slucovanymi sloupci, zvlaste kdyz predpokladas na prvnich radcich vkladat fakturacni udaje. Podle tohoto navrhu pak bude potreba upravit vkladani dat.
V priloze je sesit (stale to je pracovni verze) s doplnenym osetrenim dalsich moznych chybovych stavu (neseoulad nazvu listu v seznamu se zdrojovym sesitem), opraveno vyhledavani polozek se shodnym popisem prislusejicich temuz priznaku.

Re: Přenos dat mezi sešity Excel - dodací listy

Napsal: 02 lis 2010 18:42
od d1amond
Funguje vše perfektně, teď to akorát poskládám do nějaké podoby. Tím pokračováním jsem měl namysli, kam bude pokračovat seznam položek, když se dojde na konec stránky. Pravděpodobně to pokračuje normálně po řádcích dále.
S tím zalamováním, to bych neřešil, spíš bych nechal všechna pole na konkrétní, pevnou šířku (aby to vyšlo rovnoměrně do kraje stránky). Víc položek na šířku nebude a pokud se text nevejde, tak se uřízne.

Největší obavy jsem měl z toho sloučení stejných popisů a přiřazení SN, ale je to dokonalé. Těch ošetřujících vyjímek bych si ani nevšimnul :bigups:

Re: Přenos dat mezi sešity Excel - dodací listy

Napsal: 02 lis 2010 20:33
od navstevnik
V proloze je sesit po zaverecnych upravach, list Start je uzamknut bez hesla, mimo bunky pro vlozeni dat, z duvodu potlaceni nechtene zmeny.
Sablona ma upravene sirky sloupcu, automaticka uprava sirky sloupcu je deaktivovana, lze v procedure pripadne aktivovat.