< návrat zpět

MS Excel

Téma: Opakovane kopirovani tabulky a vkladani radku rss

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: zip16837_vba.zip (8kB, staženo 30x)
Zaslat odpověď >
Strana:  « předchozí  1 2 3
Civi(18.12.2013 12:20)#016871
avatar
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
avatar
a bude vzdy zlta? ked hej tak je to easy :)citovat
marjankaj(18.12.2013 12:26)#016873
avatar

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
avatar
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: zip16874_tabulka.zip (8kB, staženo 28x)
citovat
Palooo(18.12.2013 13:12)#016875
avatar
marjankaj ma pravdu staci ju pomenovat :)) dal som jej meno tabulka

skus toto:
Příloha: zip16875_tabulka.zip (16kB, staženo 34x)
citovat
marjankaj(18.12.2013 13:17)#016876
avatar
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
avatar
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
avatar
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
avatar
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)
avatar\n

Menu

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.

On-line nástroje