• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

?

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

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse