Ty makra fakt být nemůžou?
Bez nich to nepůjde, alespoň já o žádném způsobu nevím.citovat
Bez nich to nepůjde, alespoň já o žádném způsobu nevím.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: dodací listy - číselná řada
MS Excel
Téma: dodací listy - číselná řada 
Zaslal/a 6.2.2014 16:37
Ahoj,
potřeboval bych prosím pomoct s číselnou řadou. Mám 10 dodacích listů (každý na samostatném listu v excelu) a tyto každý den pravidelně vystavuji. Někdy za den vystavím jen 6 z těchto 10 dodáků, někdy vystavuji všech 10. A dělá mi problém automatické číslování (bez makra) dodáků tak, aby číselná řada šla za sebou a vyhnul jsem se cyklickému odkazu.
Např. včera jsem skončil s řadou na čísle 150. Dnes tedy začnu se 151 atd. Automatické doplňování čísla dodacího listu je postaveno na nějaké podmínce, např. že vyplním alespoň jednu položku v dodáku.
Děkuju za jakoukoli radu.
Posilam prilohu
Příloha: 
17724_priloha.rar (9kB, staženo 48x)
citovat17724_priloha.rar (9kB, staženo 48x)Omlouvám se, ale z té přílohy moc chytrý nejsem. Můžete vložit s tím cyklickým odkazem? Třeba pochopíme, jak to děláte.citovat
V příloze s cyklickým odkazem. Potřebuji asi nějak fixovat výsledek vzorce, aby se výsledek neměnil po každé změně vstupních dat, ale nevím jak :(
Příloha: 17768_priloha2.rar (9kB, staženo 38x)
citovat17768_priloha2.rar (9kB, staženo 38x)Na každém DL jsou asi jiné položky, je tak?
Jinak by stačil jen jeden a do toho psát.
Když se vyplní DL co se děje potom, dá se tisk nebo se někam odešle nebo co?
Na nějakou takovou událost se bude muset navázat aby se mohlo zvýšit číslo DL.citovat
Jinak by stačil jen jeden a do toho psát.
Když se vyplní DL co se děje potom, dá se tisk nebo se někam odešle nebo co?
Na nějakou takovou událost se bude muset navázat aby se mohlo zvýšit číslo DL.citovat
Ano, kdyz je dodak hotovy, tiskne se.
Tou udalosti by mozna mohlo byt vyplneni alespon jedne polozky v (jinem) dodaku, nebo zmena data, tedy kdyz je novy den, zjisti max. hodnotu v rade a zafixuje - od te se pak odviji dalsi cisla.citovat
Tou udalosti by mozna mohlo byt vyplneni alespon jedne polozky v (jinem) dodaku, nebo zmena data, tedy kdyz je novy den, zjisti max. hodnotu v rade a zafixuje - od te se pak odviji dalsi cisla.citovat
No - možná to vidím moc jednoduše, ale než to začnu komplikovat taxe zeptám
nestačí prostě na každém dalším listu odkaz na předchozí + 1 s tím, že do prvního listu napíšete ručně každý den o jedno číslo vyšší, než jste použil den předtím?
Jedna hodnota v tom listu musí být nezávislá na těch ostatních, jinak se cyklického odkazu nezbavíte.
no a pokud pracujete každý den s tím samým souborem, nejjednodušší mi přijde toto řešení
nestačí prostě na každém dalším listu odkaz na předchozí + 1 s tím, že do prvního listu napíšete ručně každý den o jedno číslo vyšší, než jste použil den předtím?
Jedna hodnota v tom listu musí být nezávislá na těch ostatních, jinak se cyklického odkazu nezbavíte.
no a pokud pracujete každý den s tím samým souborem, nejjednodušší mi přijde toto řešení
Příloha: 17780_priloha.zip (10kB, staženo 53x)
citovat17780_priloha.zip (10kB, staženo 53x)Nejjednodušším řešením Tvého problému by bylo primitivní makro na dva řádky uložené ve vlastním modulu. Makro by sloužilo k tisku DL a zvýšení hodnoty (čísla dodacího listu) v určené buňce. Na jednotlivé listy by se vložily tlačítka spouštějící makro. Po stisku by se provedl tisk dodacího listu a zároveň o 1 zvýšilo číslo dodacího listu v určené buňce. Do jednotlivých dodacích listů by se číslo vložilo odkazem na určenou buňku např. buňka A1 na prvním listu.
Jednoduché a blbuvzdorné
edit:
Sub TISK()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
List1.Range("A1").FormulaR1C1 = List1.Range("A1").Value + 1
End Subcitovat
Jednoduché a blbuvzdorné
edit:
Sub TISK()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
List1.Range("A1").FormulaR1C1 = List1.Range("A1").Value + 1
End Subcitovat
Bez makra je jediné řešení tak, jak psal eLCHa.
S makrem lze poslední použité číslo uložit "někam" do sešitu nebo do registru a při dalším otevření načíst. Někdo se změny v registrech může bát, ale k tomu není důvod. Zkusil jsem to možná složitě, ale funguje to. Při otevření jakéhokoli listu (dodáku) se připočte 1. Jednou otevřený se pro připočítání již zablokuje. Čísluje postupně, při zavření uloží poslední hodnotu a při novém otevření a kliknutí na DL přičte 1 a zapíše. Abyste se vyhnul cyklickému odkazu, nesmíte mít vzorec v té buňce, na niž je ve vzorci odkaz.
S makrem lze poslední použité číslo uložit "někam" do sešitu nebo do registru a při dalším otevření načíst. Někdo se změny v registrech může bát, ale k tomu není důvod. Zkusil jsem to možná složitě, ale funguje to. Při otevření jakéhokoli listu (dodáku) se připočte 1. Jednou otevřený se pro připočítání již zablokuje. Čísluje postupně, při zavření uloží poslední hodnotu a při novém otevření a kliknutí na DL přičte 1 a zapíše. Abyste se vyhnul cyklickému odkazu, nesmíte mít vzorec v té buňce, na niž je ve vzorci odkaz.
Příloha: 17818_dl-cislovani.zip (26kB, staženo 67x)
citovat17818_dl-cislovani.zip (26kB, staženo 67x)Uživatelské menu
Nejste přihlášen(a)
\n
\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