Příspěvky uživatele
< návrat zpět
?
momentík ...
tak ,či jinak
To co popsal Pavlus makrem.
Pokud potřebuješ překopírovat 1x za den, pak nemá asi makro smysl.
Pokud použiješ COPY a PASTE, tak je samozřejmé, ze Excel kopíruje prázdnou buňku jako prázdnou buňku. Jeden z mnohých jiných způsobů je makro2, ale toto makro skončí, jakmile narazí ve sloupci A na prázdnou buňku. Z popisu není jasné, zda ty prázdné buňky jsou jen v posledním řádku (zde konkrétně řádek 19)nebo kdekoli a jak velkou oblast chceš přenášet. Takže toto je jen jakási funkční ukázka. Systém vyhledání prvního volného řádku jsem nechal z makra1.
Důležité je uvědomit si co chceš, jestli kopírovat bunky, tzn. "přenést" bunku někam jinam, ale v případě, že v bunce bude vzorec, přenese vzorec nebo chceš "přenést" výsledky, tzn. to co v bunce vidíš.
Muselo by se přepsat, resp. upravit asi 70 buněk, které odkazují na "leden" tedy list s názvem 1 a je to hotovo. Pak už bys jen klikal na 1, 2 až 12 a v tabulce by se měnily měsíce. No problem.
Ale pokud chceš mít pod sebou dvanáct přehledů, tak to se ti bude kopírovat špatně, ty máš relativní adresování a potřeboval bys absolutní. Tzn. před adresu každé bunky, tedy pčed písmeni i číslo doplnit znak dolaru. Pak buNku zkopíruješ, ale stejně budeš muset měnit list, ze kterého taháš data.
Princip výběru pomocí NEPŘÍMÉHO ODKAZU
nemáš na mysli odrážku Tab ?
s = s & Cells(i, 18) & Chr(9) & Cells(i, 19) .......
to tak funguje
Nevím jestli tomu rozumím.
Range("D100:U" & radek).Copy
Lano tu mmentálně není, tak zkus takto opravit řádek 9 makra1
ostatní dvě makra jsou podle mě na nic, sloužily jako vzor
No, kdysi jsem nad tím taky bádal a ničeho se nedobádal. Pokud tabulku obsluhuješ sám, je to jednoduchý, ale pokud tam má zapisovat někdo excelu neznalý, najednou se mu cosi ztratí a on to nemůže najít, je konec. Docela mi to nasadilo brouka do hlavy a budu se tomu ještě věnovat. Pokud dodržuješ pravidlo, že otvíráš soubor v "běžícím" excelu a zase ho nejprve zavřeš a pak ukončíš Excel, bylo by to funkční stoprocentně, ale kdo to tak dělá, já ne. Info z knížek a net.
Nerozumím ...
zkus to dát znovu, píše mi to že soubor je nečitelný.
Místo jakéhosi zápisu makra
"!D2:D" & wsh.Cells(Rows.Count, "D").End(xlUp).Row
použij funkci
Application.WorksheetFunction.CountA(Range("D:D"))
několikrát jsem soubor zkoušel a vždy se mi Excel "udávil" zbledl a zemřel. 
Uživatelské menu
\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