» Poradna » Programy

Excel a tisk ze seznamu do připravené tabulky...

 |   | 

V excelu mám tabulku s daty (seznam) a v druhém sešitě tabulku bez dat. Chci z prvního sešitu doplnit data z prvního řádku do sešitu druhého (tabulky pro tisk) a vytisknout. Potom vymazat druhý sešit, doplnit z prvního sešitu další data (řádku) a opět vytisknout... Jak na to? Lze to vyřešit v rámci jednoho sešitu? Jeden list zdrojový, druhý tisk?

Odpovědi na otázku

 |   | 

Určitě to půjde -> vložit hodnotu buňky do jiného sešitu a vytisknout pouze list 2.
Př: A5=List1!A1 atd...

Pro filtaci dat a následné tisknutí je nejlepší použít Access.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Promin, ale co vlastne chces??? Nejdriv zadavas, ze mas jeden sesit s daty a druhy pro tisk (predpokladam predformatovany layout) a pak se najednou ptas, jestli to jde udelat v ramci jednoho sesitu...
Celkem zalezi jak vlastne ten layout vypada. Jestli jen potrebujes vytisknout kazdy 'radek' na jinou stranku, pak by snad bylo lepsi to resït primo ze zdroje tim, ze pro kazdy radek nejdrive nastavis (myslim samozrejme programove) oblast tisku.
Pokud ten layout je slozitejsi, tak se to musi resit nejdrive nactenim 'radku' a naslednym tiskem v cyklu. Je uplne jedno jestli to tahas z listu do listu v ramci jednoho workbooku nebo dvou...
Nejjednodussi je spustit nahravani makra a zkusit si to pro jeden radek a pak to zabalit do cyklu, nicmene pokud neznas alespon zaklady adresace bunek v ramci workbooku/sheetu, tak doporucuji najit nejaky postup (at uz v el. bo papir podobe...)

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Díky... Ten dotaz jestli to lze napáchat v rámci jrdnoho sešitu nebyl zrovna košer, ale šlo mi jen o to, jestli není nějaké omezení, co se týče vazeb...
Jinak se v excelu trošinku vyznám, ale jak píšu: trošinku. Dokážu načíst data ze zdroje, ale nevím, jak načítat vždy o záznam (řádek) dál (níž)...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

tady mas jak jsem to kdysi resil ja; urcite to jde nejak elegantneji, ale ja na to neprisel - resp. protoze se jednalo o programatorsky ulet, tak jsem to ani neresil Pokud prijdes na neco lepsiho, tak se klidne podel

...

' Deklarace

    Const v_Sep = ","       ' oddelovac v souboru

    Const v_NumCols = 19    ' index posledniho sloupce pro export

    Dim topCel As Range, bottomCel As Range, _

        SourceRange As Range, targetRange As Range

    Dim x, i, numofRows As Integer

    Dim v_Line As String

    Dim v_Pom As String

    Dim Filename As String

 

 

' Init

    Application.ScreenUpdating = False

    Set topCel = Range("A2")

    Set bottomCel = Range("A65536").End(xlUp)

 

    If topCel.row > bottomCel.row Then End         &n bsp;    ' test if source range is empty

 

    Set SourceRange = Range(topCel, bottomCel(1, 19))   ' me zajimalo prave 19 sloupcu

  &nb

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Dá sa to veľmi jednoducho riešiť aj bez makra. V hárku1 si vytvorím tabuľku-formulár, ktorý chcem tlačiť Jednú bunku, napr. "A1" si vyčlením na výber pre zoznam. Môže to byť napr. poradové číslo, pripadne dátum, rodné číslo či číslo tovaru. V hárku 2 mám samotný zoznam. Dôležité je aby v stlpci "A" resp. v ľavom stlpci, boli údaje, ktoré sa použijú na vyhľadávanie (por. číslo, dátum, a pod.) V tom istom riadku budú všetké údaje súvisiace s údajom v ľavom stlpci. Vrátime sa do hárka1 a každej bunke priradíme vzorec, príklad: =VLOOKUP(A1;Hárok2!A2:R300;3) V tomto prípade bude vyhľadaná hodnota ktorú napíšem do bunky "A1" napr. "8" , ktorú najde napr. v riadku č.9 a z toho riadku vyhľadá a vráti hodnotu zo stlpca 3 tj. "C" Rozsah A2:R300 je pole s údajmi, ktoré sa majú prehľadávať. Analogicky priradiš každej bunke podobný vzorec, len číslo stlpca sa bude meniť podľa pozície relevantného údaju. Dôležité je, aby v ľavom stlpci boli údaje vzostupne zoradené.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Pokud do zápisu funkce doplníš ještě paramter 0 (=VLOOKUP(A1;Hárok2!A2:R300;3;0)), tak zdrojový seznam NEMUSÍ být vzestupně seřazený, protože se najde přesně ta daná hodnota, kdežto bez paramteru se najde hodnota buď stejná, nebo pokud neexistuje, tak nejbližší menší.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Ešte ma napalo, ak používaš český Office, tak fce VLOOKUP je tam tuším SVYHLEDAT.

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Sešit, Zdrojový




Určitě si přečtěte

Praktické vychytávky, které si chcete doinstalovat do Windows

Praktické vychytávky, které si chcete doinstalovat do Windows

** Pokud vás nudí vzhled nabídky Start, snadno jej můžete změnit. ** Stejně tak existují programy na přidání záložek do programů. ** Spokojit se ani nemusíte se základním ovládáním hlasitosti.

Vladislav Kluska | 45

Do kanceláře to nejlepší: Test notebooku HP Elitebook 830 G5

Do kanceláře to nejlepší: Test notebooku HP Elitebook 830 G5

** HP se u nového Elitebooku snaží o nadstandardní výbavu ** Notebook klade důraz na videokonference ve firemním prostředí ** Unikátní displej umí omezit čitelnost z boku

Tomáš Holčík | 57

Vyzkoušeli jsme eObčanku a přihlásili se s ní na weby úřadů. Vážně to funguje!

Vyzkoušeli jsme eObčanku a přihlásili se s ní na weby úřadů. Vážně to funguje!

** Máme eObčanku, máme čtečku, vyzkoušeli jsme přihlášení na weby úřadů. ** Objevily se drobné problémy, podařilo se nám je vyřešit. ** Používání eObčanky pro online identifikaci je velmi pohodlné.

Marek Lutonský | 35

Jak a proč používat alternativní DNS: Zrychlí internet a odblokuje weby

Jak a proč používat alternativní DNS: Zrychlí internet a odblokuje weby

** Alternativní DNS servery mohou zpříjemnit surfování na internetu ** Existuje několik ověřených alternativ, nejen známé DNS od Googlu ** Alternativní DNS však mají i své nevýhody, pozor na ně

Petr Březina | 33

Lenovo přivezlo na IFA 2018 skutečné inovace. Tyto tři notebooky stojí za to

Lenovo přivezlo na IFA 2018 skutečné inovace. Tyto tři notebooky stojí za to

** Yoga C930 nabídne revoluční reproduktor v kloubu displeje ** Yoga Book C930 představuje zdařilý reparát podivného Yoga Booku ** ThinkPad X1 Extreme se může pochlubit extrémní výbavou v tenkém těle

Tomáš Holčík | 16

Nedávno detekovaná potulná planeta je ohromné magnetické monstrum

Nedávno detekovaná potulná planeta je ohromné magnetické monstrum

** Astronomové nedávno zaznamenali pozoruhodné prvenství ** Poprvé s radioteleskopem detekovali planetární objekt za hranicemi Sluneční soustavy ** Stejně tak poprvé změřili magnetické pole takové planety

Stanislav Mihulka | 6

Nový iPhone a další novinky Applu: sledujte, na co se zase budou stát fronty

Nový iPhone a další novinky Applu: sledujte, na co se zase budou stát fronty

** Apple dnes představuje nové produkty v čele s novými iPhony ** Nemusí zůstat jen u telefonů, čekají se i další novinky ** Úvodní přednáška začíná v 19:00 našeho času

David Polesný | 57


Jízdní řády Bileto
Aktuální číslo časopisu Computer

Megatest: 13 grafických karet

Srovnání 7 dokovacích stanic s USB-C

Jak na perfektní noční fotografie

Kvalitní zdroje informací pro sebevzdělávání