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

MS Excel

Téma: Opakovane kopirovani tabulky a vkladani radku

Zaslal/a Civi 17.12.2013 15:38

Zdravim, s makry jsem začal teprve nedávno a proto bych vás rád požádal o radu.

Mám docela složitou tabulku, se kterou pracuji každý den a potřeboval bych si ušetřit práci.

1) Tlačítko na kopírování celé tabulky a vložení pod ní. Takovýchto tabulek, potřebuji i 10 pod sebou.

2) Do každé tabulky zvlášť potřebuji zabudovat tlačítka, kdy mi po stisku na konec vloží buď operaci1 nebo operaci2.

- problém je, že se mi řádky vkládají nad sebe a ne pod sebe
- když skopíruju tabulku a dám opět vložit operace, ta se přidá do první tabulky a ne do druhé
- vkládání více tabulek pod sebe - stejný problém jako s řádky...vkládají se nad sebe a ne pod

Tabulka je opravdu složitá a potřebuji, aby se zachovalo veškeré formátování a funkce!

Najde se někdo, kdo chápe můj problém a dokázal by mi v přiloženém (velmi zjednodušeném) souboru vytvořit makro?

Díky moc a případné otázky rád zodpovím.

Příloha: 16837_vba.zip (8kB, staženo 29x)

Zaslat odpověď >

---

Strana:  « předchozí  1 2 3

Civi(18.12.2013 12:20)#016871

Já bych to tak nekomplikovat.

Originální tabulka by mohla být na novém sheetu od začátku a na furt, bez makra.

To je práve to..není přesně stanovený konec.

No a co takhle použít tu poslední "žlutou tabulku" co má být na konci a použít ji jako vodítko. Vložit tabulku vždy nad ni. Tohle už by mohlo být pevně definované ne?citovat

Palooo(18.12.2013 12:22)#016872

a bude vzdy zlta? ked hej tak je to easy :)citovat

marjankaj(18.12.2013 12:26)#016873

Palooo napsal/a:

a bude vzdy zlta? ked hej tak je to easy :)

Veď ju pomenuj a nemusí byť ani žltá.citovat

Civi(18.12.2013 12:28)#016874

Tabulka vypadá asi takto, ale není problém tam změnit barvu na jakoukoli. (nějakou decentní) Jen jestli nebude problém, že není vybarvené celá..

Příloha: 16874_tabulka.zip (8kB, staženo 27x)

citovat

Palooo(18.12.2013 13:12)#016875

marjankaj ma pravdu staci ju pomenovat :)) dal som jej meno tabulka

skus toto:

Příloha: 16875_tabulka.zip (16kB, staženo 33x)

citovat

marjankaj(18.12.2013 13:17)#016876

Sub Makro1()
Range("tabulka1").Copy ' tabulka1=vkladaná tabulka
Range("tabulka2").Offset(-1, 0).Insert ' tabulka2= tabulka pred ktorú sa vkladá tabulka 1
Application.CutCopyMode = False
End Subcitovat

Palooo(18.12.2013 13:36)#016878

este to upravim:

Range("tabulka2").Offset(-1, 0).Rows(2).Insert '
Range("tabulka1").Copy ' tabulka1=vkladaná tabulka
Range("tabulka2").Offset(-1, 0).Insert ' tabulka2= tabulka pred ktorú sa vkladá tabulka 1
Application.CutCopyMode = Falsecitovat

marjankaj(18.12.2013 13:53)#016879

Pali, jasné, že to treba upraviť podľa zadávateľa. Ale naslepo, je to problematické presne utrafiť.citovat

Civi(18.12.2013 14:01)#016880

Tak sem si s tím trošku pohrál aby mi to fungovalo i v mém worksheetu a světe div se, ale jede to :))

Díky za pomoc :)citovat

Strana:  « předchozí  1 2 3

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse